boş hücrelere sıçrayarak ilerleme (butonla sağa doğru)

[EKREM1661]

saygı değer üstadlar..

80-100 sütunluk veritabanı olarak kullandığım bir sayfam var..verileri yatay olarak sağa doğru işleyerek kullanıyorum..fakat arada boşluklar olup, yeri geldikçe bilgi girişi yapıyorum..

sayın.leventm hocamdan faydalanarak aldığım;

Sub SatırSonu()
ActiveCell(, 80).End(xlToLeft).Next.Select
End Sub

bu kod; beni, bulunduğum aktif (seçili) hücreden (sağa doğru), en son boş hücreye ulaştırıyor..

Fakat şimdi biraz daha içerikli düşünerek..arada boş hücreler olduğu için, her tıklamada bir sonraki (sağa doğru), ilk boş hücreye ulaşmayı yeğliyorum..

örneğin, A5 hücresi üzerinde bulunuyorsam; E5, H5, L5 hücreleri de boş olduğunu varsayalım; ilk tıklamada E5'e, ikinci tıklamada H5'e ve üçüncü tıklamada L5'e giderek bu şekilde sona kadar devam edecek..

Tabii bu da, fare işaretçisinin bulunduğu aktif hücreden hareket edecek..

böyle bir düzenek kurulabilirmi..(forumda bulduğum örneklerle çözüme ulaşamadım.)

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın. Boş hücreye bir veri girip entere bastığınızda sağdaki ilk boş hücreye gidecektir.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Target.Next.End(xlToRight).Next.Select
End Sub

 

[EKREM1661]

sayın.Leventm hocam..elinize sağlık çok güzel olmuş..teşekkür ediyorum..
sayenizde ihtiyaç duyduğumuz bir çok noksanlıklarımızı gidermiş oluyoruz..
hayırlı çalışmalar diliyorum..