Sıradaki Veri Girilecek Hücre..!

[sensizsoldum]

Merhaba,
Aşağıdaki kod ile Bsütun aralığında sıradaki veriye gidiyorum. Ancak arada süzme olunca sıradaki veriye gitmek istediğimde süzme olan kısım gizlenmiş olduğundan arada kalıyor. arada süzme olduğunda da sıradaki veri hangisi ise oraya gidecebilecek şekilde uyarlayabilirmiyiz.

Range("B65536").End(xlUp).Offset(1, 0).Select

 

[sensizsoldum]

Merhaba,
Örnek dosyayı ekledim arkadaşlar, buton tıklandığında, b52 hücreye gitmesi gerekirken... sıradaki veri b38 olarak algılamaktadır. arada süzme olsada sıradaki hüvre hangisi ise oraya gitmesi gerekiyor.
Umarım anlatabildim.

İyi çalışmalar dilerim.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Down()
    Range("B65536").End(xlUp).Select
    [COLOR=red]SendKeys "{DOWN}", True[/COLOR]
End Sub

.

 

[sensizsoldum]

Merhaba,
Teşekkürler Ömer Bey, Elinize Sağlık.
İyi çalışmalar dilerim.

Saygılarımla.