Excelde satırbaşı yapma

[aalgg]

Beş sütunlu bir tablom var, E sütununa geldiğimde enter a basınca, bir alt satırın A sütununa geçmesini istiyorum.Çok aradım (ya da aramasını beceremedim) böyle bir makro bulamadım.(Bu beş sütuna veri girişini manuel olarak yapmıyorum, barkot okutarak yapıyorum.)

 

[Necdet]

Merhaba,

Başka türlüde yapılabilir.

E sütunundan fazla bir yere geldiğinizde A sütunu bir sonraki kayıt seçilir.

Kodlar ilgili sayfanın kod bölümünde olmalı.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 5 Then Cells(Target.Row + 1, "A").Select
End Sub

 

[aalgg]

Merhaba, ilginize çok teşekkür ederim.Henüz denemedim.Deneyip geri döneceğim.Tekrar teşekkürler.

 

[aalgg]

Kodu çalıştırdım.Yalnız enter la değil, sağ cursorla çalışıyor, ama olsun işimi görür.Tekrar teşekkür ederim.

 

[Necdet]

Merhaba,

Aşağıdaki iki kodu da aynı sayfanın kod bölümüne kopyalayıp deneyiniz. Enter sorununuzda gitmiş olur.

Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo Son
If Intersect(Target, [A:E]) Is Nothing Then Exit Sub
Target.Offset(0, 1).Select
Son:
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column > 5 Then Cells(Target.Row + 1, "A").Select
End Sub