Sayfada İmleç Yönü.

[Ridan]

Excel sayfasında H sütununda herhangi bir hücreye veri girip enter'ladıktan sonra imleç en son dolu hücrenin altındaki boş hücreye gitsin. Bunu yapacak makro kodu için üstadlarımdan yardım bekliyorum.

 

[Necdet]

Merhaba,

H sütunun son boş hücresine mi gitmesini istiyorsunuz?
Eğer amacınız bu ise Aşağıdaki kodları ilgili sayfanın kod bölümüne kopyalayınız.

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, [H:H]) Is Nothing Or Target.Row < 2 Then Exit Sub
   
    Range("H1").End(xlDown).Offset(1, 0).Activate               'İlk Boş Hücreye Gider
    Range("H" & Cells(Rows.Count, "H").End(3).Row + 1).Activate 'Arada boş veri olsa bile verinin sonuna gider
   
End Sub

 

[Ridan]

Necdet bey teşekkürler.. Bu koddan iki tane Worksheet_Change olayında çalıştıramadım. F sütununda bir hücrede veri girip enterla'dığımda H sütununa gitmiyor.

Private Sub Worksheet_Change(ByVal Target As Range)

If Intersect(Target, [H:H]) Is Nothing Or Target.Row < 2 Then Exit Sub
Range("C1").End(xlDown).Offset(1, 0).Activate 'İlk Boş Hücreye Gider
Range("C" & Cells(Rows.Count, "C").End(3).Row + 1).Activate 'Arada boş veri olsa bile verinin sonuna gider

If Intersect(Target, [F:F]) Is Nothing Or Target.Row < 2 Then Exit Sub
Range("H1").End(xlDown).Offset(1, 0).Activate

End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F:F,H:H")) Is Nothing Then Exit Sub
    Cells(Rows.Count, "H").End(3)(2, 1).Select
End Sub

 

[Ridan]

Korhan bey..
İmleç, F sütununda iken enterladığımda H sütunundaki en son dolu hücreden sonraki boş hücreye,
H sütununda iken enterladığımda C sütunundaki en son dolu hücreden sonraki boş hücreye,
..gidecek.

 

[Korhan Ayhan]

@Ridan ben daha önceki mesajlarınızda "C" sütunu bilgisini göremiyorum!

Sorularınızı açık bir dille net bir şekilde sorarsanız bizlerde gereksiz yere defalarca kod yazma zahmetine girmeyiz.

 

[Seyit Tiken]

Korhan Bey'in revize edilmiş kodlarını bu şekilde bir deneyiniz.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("F:F,H:H")) Is Nothing Then GoTo Hata
Cells(Rows.Count, "H").End(3)(2, 1).Select
Hata:
If Intersect(Target, Range("C:C,H:H")) Is Nothing Then GoTo Hata2
Cells(Rows.Count, "C").End(3)(2, 1).Select
Hata2:
If Intersect(Target, Range("C:C")) Is Nothing Then GoTo Hata3
Cells(Rows.Count, "F").End(3)(2, 1).Select
Hata3:
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("F:F,H:H")) Is Nothing Then Exit Sub
    If Target.Column = 6 Then Cells(Rows.Count, "H").End(3)(2, 1).Select
    If Target.Column = 8 Then Cells(Rows.Count, "C").End(3)(2, 1).Select
End Sub

 

[Ridan]

Cevaplarınız için teşekkürler..