Вывести в таблицу определенное количество записей - VBA

Узнай цену своей работы

Формулировка задачи:

Есть ячейка ("W4") на листе ("КомпьюВеда") в которой указано количество единиц техники. В ячейке ("C4") лежит наименование техники. Необходимо нажатием кнопки перенести на лист ("Лист1") в список столько наименований сколько указано в ячейке ("W4"). Список длится от Range("B6:B53"). Скриншот прилагаю. Есть коды. Я с ними весь день толкаюсь.

Решение задачи: «Вывести в таблицу определенное количество записей»

textual
Листинг программы
Public Sub Stepan888()
If Workbooks("888.xlsm").Worksheets("КомпьюВеда").Range("W4").Value > 0 Then
Dim S As String
S = Workbooks("888.xlsm").Worksheets("КомпьюВеда").Range("W4").Value + 5
Workbooks("888.xlsm").Worksheets("Лист1").Range("A2:A49").ClearContents
Workbooks("888.xlsm").Worksheets("КомпьюВеда").Activate
Range("C6:C" & S).Select
Selection.Copy
Workbooks("888.xlsm").Worksheets("Лист1").Activate
Range("A2").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
End If
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.2 из 5