İmlecin Boş Hücreyi Atlaması

[Seyit Tiken]

Herkese Selamlar,
B1:B20 hücre aralığında, hangi hücre boşsa, imleç boş hücrenin sağına gitsin. Yani bu aralıkta hangi hücre boş ise, imleç boş hücreyi atlasın. Eğer doluysa yoluna devam etsin. Yani belirtilen aralıkta hücre doluysa, imleç yoluna devam etsin. Teşekkürlerimi sunuyorum...

 

[Kemal Demir]

Sn.Seyin Tien Bir Örnek Dosya ekleyebilirmisiniz.

 

[Seyit Tiken]

Soru ile ilgili dosya ekte.

 

[Korhan Ayhan]

Selamlar,

Peki bu işlemin hücreye veri girdikçemi olmasını istiyorsunuz?

 

[Kemal Demir]

Sn.Seyit İtken
Yanlıs anlamadı ısem B1 hucresi boş ise 1 satırdan devam edecek dolu ıse ı kolondan devam edecek.
Doğru anladı ısem Bu kod üzerinden bir az yol alabilirz.

Sub Düğme3_Tıklat()
If Range("b1").Value = "" Then
ActiveCell.Offset(0, 1).Select
Else
ActiveCell.Offset(1, 0).Select
End If
End Sub

 

[Seyit Tiken]

Nasıl Tab tuşuna yada Sağ Ok tuşuna bastığımızda imleç hücre hücre sağa gidiyorsa; imleç tanımlı aralığa geldiğinde, eğer imlecin sağındaki hücre boş ise o boş hücreyi atlasın, eğer imlecin sağındaki hücre dolu ise(yani herhangi bir veri varsa) normal gitsin yani tanımlı hücreyi atlamasın.....

 

[Kemal Demir]

Yanlıs Cevap tan Dolayı Sİldim.

 

[hamitcan]

bende bir örnek yaptım. :idea:

Private Sub Worksheet_selectionChange(ByVal Target As Range)
If Target.Column = 1 And IsEmpty(Target.Next) Then Target.Offset(0, 2).Select
End Sub

 

[bulentkars]

120