Есть макрос - копирует данные из донора в файл. Возможно ли сделать, чтобы данные вставлялись в первую пустую ячейку столбца B ? ну и сколько есть данных вставлялись вниз и вправо. цель - по кнопке добавлять ниже новые данные из донора.
Sub объем()
Dim sht As Worksheet
Dim i As Long
With Application: .ScreenUpdating = False: .DisplayAlerts = False: End With
Set sht = ThisWorkbook.Sheets("Остатки")
'Открываем другой файл'
With Application.Workbooks.Open("C:\Users\Desktop\ppweb2.xls")
With .Sheets("Sheet1")
'Обрабатываем диапазон'
For i = 3 To 200
If .Cells(i, 3).Value = "" Then Exit For
'значение ячейки из другого файла вставляем куда надо'
sht.Cells(i - 2, 1).Value = .Cells(i, 1).Value
sht.Cells(i - 2, 2).Value = .Cells(i, 2).Value
sht.Cells(i - 2, 3).Value = .Cells(i, 3).Value
sht.Cells(i - 2, 4).Value = .Cells(i, 4).Value
sht.Cells(i - 2, 5).Value = .Cells(i, 5).Value
sht.Cells(i - 2, 6).Value = .Cells(i, 6).Value
sht.Cells(i - 2, 7).Value = .Cells(i, 7).Value
sht.Cells(i - 2, 8).Value = .Cells(i, 8).Value
sht.Cells(i - 2, 9).Value = .Cells(i, 9).Value
sht.Cells(i - 2, 10).Value = .Cells(i, 10).Value
sht.Cells(i - 2, 11).Value = .Cells(i, 11).Value
sht.Cells(i - 2, 12).Value = .Cells(i, 12).Value
sht.Cells(i - 2, 13).Value = .Cells(i, 13).Value
sht.Cells(i - 2, 14).Value = .Cells(i, 14).Value
sht.Cells(i - 2, 15).Value = .Cells(i, 15).Value
sht.Cells(i - 2, 16).Value = .Cells(i, 16).Value
sht.Cells(i - 2, 17).Value = .Cells(i, 17).Value
sht.Cells(i - 2, 18).Value = .Cells(i, 18).Value
sht.Cells(i - 2, 19).Value = .Cells(i, 19).Value
Next i
End With
.Close
End With
With Application: .ScreenUpdating = True: .DisplayAlerts = True: End With
Set sht = Nothing
End Sub
Range("B:B").End(xlDown).Offset(1,0).Address
. 'значение ячейки из другого файла вставляем куда надо' А про существованиеRange.Copy
Вы типа не в курсе?