enter ile belirli bir aralıkta hareket

[masuk500]

merhaba arkadaşlar

c ve f sütunları arasına bilgi girişi yapılıyor.enter tuşu sağa doğru ayarlı ve f sütununda iken entere basınca c sütununa gelmesini sağlayabilirmiyiz

 

[Necdet]

Merhaba,

Aşağıdaki kodları sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [C:C, F:F]) Is Nothing Then Exit Sub
If Target.Column = 3 Then
    Target.Offset(0, 3).Select
Else
    Target.Offset(1, -3).Select
End If
Son:
End Sub

 

[masuk500]

sayın necdet hocam
aynı sayfada aşağıdaki kodu kullanıyorum sizin vermiş olduğunuz kodu ekledim olmadı veya ben yapamadım


Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
Cells.Interior.ColorIndex = xlNone
Range(Cells(2, Target.Column), Cells(1502, Target.Column)).Interior.ColorIndex = 4
Range(Cells(Target.Row, 1), Cells(Target.Row, 23)).Interior.ColorIndex = 4


On Error GoTo Son
If Intersect(Target, [B3:Q1502]) Is Nothing Then Exit Sub
If ActiveCell.Offset(-1, 0).Value = "" Then
MsgBox "ÜSTTEKİ BİLGİLER EKSİK, LÜTFEN EKSİK BİLGİLERİ GİRİN."
ActiveCell.End(3).Offset(1).Select
End If
If ActiveCell.Offset(0, -1).Value = "" Then
MsgBox "ÖNCEKİ BİLGİLER EKSİK, LÜTFEN EKSİK BİLGİLERİ GİRİN."
ActiveCell.End(1).Select
If ActiveCell <> "" Then ActiveCell.Next.Select
End If
Son:
End Sub