Страницы: 1
RSS
Получение и присвоение значения ячейки с другого листа в VBA
 
Сделал макрос, который должен скажем так, переносить массив с одного листа на другой, однако при его запуске выдает Runtime error 1004 в чем косяк кода?
Код
Dim i As Integer
i = Worksheets("Лист1").Range("K2")
For j = 3 To i
    Worksheets("Лист2").Cells(n, 19).Value = Worksheets("Лист1").Cells(n, 1)
Next j
 
 У Вас объявлена 1 переменная i, цикл определен для переменной j, а номер строки в Cells(n
 
И еще, а зачем Вам цикл? Присваиваем сразу значение диапазона.
Код
Dim i As long
i = Worksheets("Лист1").Range("K2").value

    Worksheets("Лист2").range(Cells(3, 19),Cells(i, 19)).Value = Worksheets("Лист1").range(Cells(3, 1),Cells(i, 1)).Value
Изменено: Igor67 - 23.12.2016 23:09:43
 
Благодарю, после такого иногда хочется одеть очки :cry:
Страницы: 1
Наверх