Hücreler arası geçiş

[mbattal]

Arkadaşlar Merhaba,

Örneğin A5 hücresine veri girilip enterleyince B5'e geçsin. B5'e veri girip enterleyince A6'ya geçsin enterleyince B6'ya geçsin......... böyle devam edecek.
Bunu makro ile herhangi bir düğmeye bağımlı olmaksızın nasıl yapabilirim

Saygılarımla

 

[Mahir64]

Arkadaşlar Merhaba,

Örneğin A5 hücresine veri girilip enterleyince B5'e geçsin. B5'e veri girip enterleyince A6'ya geçsin enterleyince B6'ya geçsin......... böyle devam edecek.
Bunu makro ile herhangi bir düğmeye bağımlı olmaksızın nasıl yapabilirim

Saygılarımla

Merhaba
Sayfanın kod blölümüne ekleyerek deneyiniz

Private Sub Worksheet_Change(ByVal Target As Range)
sat = [a65536].End(3).Row
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "A") Then
Worksheets(ActiveSheet.Name).Cells(sat, "B").Select
End If
If Target.Cells = Worksheets(ActiveSheet.Name).Cells(sat, "B") Then
Worksheets(ActiveSheet.Name).Cells(sat + 1, "A").Select
End If
End Sub

Kodlar Alıntıdır

 

[mbattal]

çok teşekkür ederim

 

[Mahir64]

çok teşekkür ederim

kodlar alıntı
Kolay gelsin
iyi çalışmalar

 

[dark41]

ben bunu yapamadı daha açıklayıcı olurmusunuz

 

[İhsan Tank]

ben bunu yapamadı daha açıklayıcı olurmusunuz

Yapamadığınız nedir.
Arkadaşın verdiği kodu sayfanın kod bölümüne kopyalayın ve deneyin.

 

[dark41]

selam

öncelikle cevap yazdığınız için teşekkürler dediğiniz gibi yapptım ama hata verdi defalarca denedim olmadı

 

[İhsan Tank]

öncelikle cevap yazdığınız için teşekkürler dediğiniz gibi yapptım ama hata verdi defalarca denedim olmadı

Denediğiniz dosyayı kaydedip eklermisiniz_?