İlgili veriyi bir alttan eklesin

[steppe]

Değerli arkadaşlar,
İlgili kodla D14 aralığında herhangi bir hücreye tıklayınca A sütununda dolu hücre sayısı kadar B sütununa tıklanan veriyi yazıyor.
Yalnız A4 ve altına yeni isimler eklenince tıklanan kelimeyi B1 den itibaren yazıyor.Oysa A4 ve altına yeni eklenen isimler olursa yukarıdakileri bozmadan B4 ten itibaren yeni tıkladığım kelimeyi altına ilave etsin.

Yardımlarınız için şimdiden teşekkürler

 

[YUSUF44]

Şöyle dener misiniz?

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
aa = [A65536].End(3).Row
bb = [B65536].End(3).Row

If Intersect(Target, [D1:D4]) Is Nothing Then Exit Sub
On Error Resume Next

Application.ScreenUpdating = False


For i = bb + 1 To aa
Cells(i, "b") = Target
Next i

Application.ScreenUpdating = True
End Sub

Eski koddaki

Range("b1:b" & bb).ClearContents

ifadesi B sütununu boşaltıyordu, o yüzden iptal ettim. doldurulacak hücreleri de i=1'den itibaren değil de bb+1'den faydalanarak buldum. Tamamen deneme yanılma

 

[steppe]

YUSUF44 Kardeş,
İlgin için teşekkür ederim.Yalnız ilk veriyi B1'den değilde B2'den başlıyor.İlk veriyi B1'den nasıl başlatabiliriz.

 

[Mahir64]

+1 silerek deneyiniz.

 

[YUSUF44]

Sayın Mahir, +1'i silince de sonraki adımlarda bir önceki satırdan alıyor.

 

[YUSUF44]

Sayın steppe, +1 sorununu çözemiyorum. Mutlaka vardır bir yolu ama belirttiğim gibi önceki çözümüm de deneme yanılmaydı zaten. Basit bir çözüm olarak listenizi b1'i başlık olarak kullanarak yapabilirsiniz, yani verileri 2. satırdan itibaren girebilirsiniz.