Verileri Girildikçe Bir Aşağı Kaydır

[baydeniro]

Arkadaşlar, verilerin girildikçe aynı sütun içinde bir aşağı kaydırılması mümkün müdür ? Hep A5 hücresine giriş yapılacak. Ancak girişler A6 ya kayacak, Tabii ki daha altta olanlar da hep bir aşağıya kayacak.

 

[Levent Menteşoğlu]

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Intersect(Target, [a5,c5,e5]) Is Nothing Then Exit Sub
Target.Offset(1, 0).Insert
Target.Offset(1, 0) = Target
Target.Offset(1, 0).Interior.ColorIndex = xlNone
Target = ""
End Sub

 

[baydeniro]

Teşekkür

Sayın leventm süpersiniz, yine ustalığınızdan güzel bir örnek. Mümkünse bir küçük ekleme yapabilir miyiz. Giriş yaptıkça sonra cursor hep A5 hücresinde kalabilir mi !!!!

 

[Ali]

Range("A5").Select satırını ekleyin.

 

[baydeniro]

Teşekkür

Sayın Ali çok teşekkürler. Şimdi tam istediğim gibi oldu. Sağlıcakla kalın.

 

[chevmet]

eline sağlık

Aşağıdaki kodu sayfanın kod sayfasına kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "" Then Exit Sub
If Intersect(Target, [a5,c5,e5]) Is Nothing Then Exit Sub
Target.Offset(1, 0).Insert
Target.Offset(1, 0) = Target
Target.Offset(1, 0).Interior.ColorIndex = xlNone
Target = ""
End Sub

paylaşımınız için teşekkürler