İmlecin Üç Hücre Atlaması

[Seyit Tiken]

Herkese Selamlar,
Veri aralığımız C1 ile C20 hücreleri. İmleç belirtilen aralıkta hangi hücrede ise ve sıfırdan büyük yada herhangi bir değer girilip enterlendiğinde aktif hücrenin sağına üç hücre atlayıp seçili yapacak. Teşekkür eder, saygılar sunuyorum.

 

[Ali]

Üç hücre atlayıp 4 üncü hücre seçilecek sanırım

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c1:c20]) Is Nothing Then Exit Sub
If Target <> 0 Then Target.Offset(0, 4).Select
End Sub

 

[karamurselli]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C1:C20]) Is Nothing Then Exit Sub
Application.EnableEvents = False
If Target.Value > 0 Then
ActiveCell.Offset(-1, 3).Select
Application.EnableEvents = True
End If
End Sub

 

[Seyit Tiken]

Sayın fructose ve sayın karamurselli teşekkür ediyorum. Süper oldu. Allah razı olsun. Başarılarınızın devamını dilerim.