Windows("Книга1.xls").Activate
Application.CutCopyMode = False
Worksheets("Лист1").Range("H15").Copy
Windows("Книга2.xls").Activate
ActiveSheet.Range("K15").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Смена ячейки каждый новый месяц
Есть простенький код!!!Мне нужно его усложнить, а именно сделать так чтобы в конце каждого месяца он менял имя ячейки на следующую, т.е. А1->В1?
Код:
Код:
nMont = Month(Date) ' определяет номер месяца
Workbooks("Книга1.xls").Worksheets("Лист1").Range("H15").Copy 'копирует в буфер
Workbooks("Книга2.xls").Sheets(1).Cells(15, nMont).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' вставляет
Workbooks("Книга1.xls").Worksheets("Лист1").Range("H15").Copy 'копирует в буфер
Workbooks("Книга2.xls").Sheets(1).Cells(15, nMont).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False ' вставляет
Спасибо!!!
А как он выбирает изночальную ячейку ввода???