Курсор

[Vitalii197777]

Уважаемые подскажите пожалуйста возможно ли сделать макросом : При попадании курсора на ячейки С Д6-200 -АJ6-200 выделялись данные ячейки перехожу энтером т,е как ввел данные AJ6 курсор сразу переходил Д7 итд .Спасибо за помощь!!!

[IgorGO]

Private Sub worksheet_change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Intersect(Target, [d6:aj200]) Is Nothing Then Exit Sub
  If Target.Column = 36 Then Cells(Target.Row + 1, 4).Select Else Target.Offset(0, 1).Select
End Sub

[Vitalii197777]

Спасибо огромное очень помогли ,Игорь а можно как то прописать если даже не ввожу данные в AJ6 а просто нажму энтер чтоб не переходило в ячейку АК а сразу в Д7? спасибо!!

[IgorGO]

см.вложение

[Vitalii197777]

Игорь спасибо большое человеческое!!! Игорь я в эксель вобще учусь в макросах не понимаю а для работы нужна программка. Не могли бы подшаманить еще один вопрос вижу вы достаточно умный и грамотный программист .Как сохранить лист(называетсяТабель1) с книги ,на рабочий стол в папку табель ,а в папке в папку ОтчетТабеля. с названием его и месяцем и годом когда сохранили. Спасибо огромное!!!!

[IgorGO]

Sub SaveSheetAsWorkbook()
  Dim pth$
  pth = Environ("USERPROFILE") & "\Desktop\Табель\ОтчетТабеля\"
  Worksheets("Табель1").Copy
  ActiveWorkbook.SaveAs pth & Format(Date, "MMMMYYYY"), xlOpenXMLWorkbookMacroEnabled
  ActiveWorkbook.Close
End Sub

предполагается, что папка Табель\ОтчетТабеля уже есть на рабочем столе

[Vitalii197777]

Спасибо огромное!!!!!!!!!!!!!!!!!!!!!!!!!!! !!!!!!!!!!!!!!!!!!