entere basınca hücre sag tarafa gitsin

[jambow]

arkadaşlar entere basınca f sutununa kadar sağa gitmesi gereken hücre sadece b sutununa kadar gidiyor. yanlız sayfada ikitane chance olayı var sanırım kodlar oradan karışıyor anlayan bir arkadaş yardımcı olabilirmi

 

[hurkanpisirici]

araçlar özellik gelişmişten enter yönü ayarı olması lazım ben 2007 kullanıyıorum sizin sürümünüzünde tam olarak nerede olduğunu hatırlayamadım.

 

[hurkanpisirici]

araçlar--seçenekler--düzen--yönü sağ yapın

 

[jambow]

2003 kullanıyorum ... sadece o sayfada gerekli sağa gitmesi

 

[hurkanpisirici]

hımm o zaman makro kodu ile halledebilirsiniz.Forumda örnekleri var.Aratırsanız bulabilirisniz.

 

[jambow]

makro kodunu yazdım ancak 2 tane change olayı var kodları birleştiremedim

 

[janveljan]

Sayfada çok fazla kod vardı ne yapmak istediğinizi tam anlamadım. Ancak kodları şu şekilde düzenledim. A:F arasında hücreye değer yazılıp entera basıldığında o değer o sütunda yoksa yana geçiyor, var ise bu değer zaten var deyip tekrar aynı hücreye dönüyor. F sütununda ise entera basınca bir alt satıra A sütununa geçiyor.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [A2:F65536]) Is Nothing Then GoTo Son
k = ActiveCell.Row - 1
s = ActiveCell.Column
If WorksheetFunction.CountIf(Range(Cells(2, s), Cells(Cells(65536, 1).End(xlUp).Row, s)), Cells(k, s)) > 1 Then
MsgBox " Bu Veriyi Daha Önce de Girmiştiniz. ?"
Cells(k, s).Select
Exit Sub
End If
Son:
If Target.Column = 6 Then
    Target.Offset(1, -5).Select
Else
    Target.Offset(0, 1).Select
End If
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error GoTo Son
If Target.Column > 6 Then Target.Offset(1, -6).Select
Son:
End Sub

 

[jambow]

çok teşekkür ederim tamamdır