Здравствуйте! Огромное спасибо за ответ!! Целый час набирал сообщение, редактировал, расписывал что да как, и потом что-то не то нажал и первое сообщение исчезло... Сижу расстраиваюсь...)) Как так?!!) И тут ваш ответ!))) Не ожидал, думал все... (Пойду застрелюсь ) ЕЩЕ РАЗ СПАСИБО!!!
Ураааа!!!!)))) Получилось!!! Спасибо Вам огроооомное!!!)))) Еще немного подправил чтоб выводилось сообщение "
Код
Sub ДанныеВКвит()
' For I = 1 To 1000
If ActiveCell.Column = 5 Then 'Exit Sub (засолил на всякий случай)
ActiveCell.Offset(0, 4).Range("A1").Select
ActiveCell.FormulaR1C1 = "=TODAY()"
ActiveCell.Offset(0, -4).Range("A1:M1").Select
Selection.Copy
Sheets("Квитанция").Select
ActiveCell.Offset(-3, 0).Range("A1").Select
Sheets("Обслуж. Не Обслуж").Select
Sheets("Квитанция").Select
Range("O3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Обслуж. Не Обслуж").Select
ActiveCell.Offset(0, 4).Range("A1").Select
Application.CutCopyMode = False
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Sheets("Квитанция").Select
Range("O6").Select
Else: MsgBox "Не правильно выбрана ячейка!" (я крут!! :DD)))))
End If
' Next
End Sub
Пройденный сегодня материал закрепил)))) Только недавно познакомился с макросами и VBA (в частности)... Эксель и макросы ВЕЩЬ!!!!)))) Еще раз СПАСИБО!!!!)) Так?
Sub ДанныеВКвит()
If ActiveCell.Column = 5 Then
rw = ActiveCell.Row
Cells(rw, 9).Value = Date
Sheets("Квитанция").Range("O3:AA3").Value = Range("E" & rw & ":Q" & rw).Value
Sheets("Квитанция").Select
Range("O6").Select
Else: MsgBox "Не правильно выбрана ячейка!"
End If
End Sub