Добрый день!
У меня возникла следующая проблема в связи с недостатком знаний)
Код |
---|
Sub Макрос1()
'
' Макрос1 Макрос
'
'
Range("A77").Select
Selection.Copy
Sheets("анализ дней авто").Select
Range("A6").Select
ActiveSheet.Paste
Sheets("свод авто").Select
Range("B77").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("анализ дней авто").Select
Range("B6").Select
ActiveSheet.Paste
Range("D6").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("свод авто").Select
Range("AF77").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub
|
Необходимо чтоб ячейки A77,B77 и AF77 менялись дальше вниз по таблице т.е А78, В78 иAF78 и т.д. ,а ячейки на другом листе А6, В6 и D6 не менялись в процессе.
Перелопатил уже кучу форумов но так и не нашел подходящего случая(ну или гуглил не правильно).