Вывести в таблицу определенное количество записей - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д