Otomatik satır eklemek

[rekkezum]

Merhaba arkadaşlar,
Şunu yapabilirmiyiz, a1 hücresine belirleyeceğim değerlerden herhangibiri yazdığımda a1 in altına yeni bir satır eklesin. Yani a1 için belirlediğim 10 değer olacak mesela 1254,3653,4522,7810 gibi. Bunlardan herhangi biri a1 e yazıldığında a1 hücresi altına yeni satır eklesin. Bu arada a2 den aşağıya doğru değerler mevcut.
Şimdiden teşekkürler...

 

[Necdet]

Merhaba,

İstediğiniz kodları yazmak ve yazılan kodları denemek için bir veri gerek, bunu hazırlamamızı ister misiniz? Hani size zahmet olmasın diye
.

 

[rekkezum]

Merhaba,

İstediğiniz kodları yazmak ve yazılan kodları denemek için bir veri gerek, bunu hazırlamamızı ister misiniz? Hani size zahmet olmasın diye
.

Özür hocam dosya ekte

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.


İlgili sayfanın kod bölümüne uygulayın.

Option Explicit
 
Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [A:A]) Is Nothing Then Exit Sub
    If Target = 6634 Or Target = 6405 Or Target = 5698 Then
    Application.EnableEvents = False
    Target.Offset(1, 0).EntireRow.Insert
    Application.EnableEvents = True
    End If
End Sub