ListBox2'den Tabloya Veri Aktarmak

[1Al2Ver]

Merhaba,

Sayfanın Koduna kayıtlı aşağıdaki kod ile, ListBox1'den Tablomda B2 den itibaren veri aktarıyorum,

Private Sub ListBox1_Click()
    Cells(Rows.Count, 2).End(3) (2, 1) = ListBox1.Value
End Sub

ListBox2 ile, aynı tabloya, 2 nci sütun (B) 20 nci satırdan itibaren de veri aktarmak istiyorum,

İlgili kodu rica ediyorum,

Teşekkür ederim.

 

[cicosz]

Merhaba,

Aşağıdaki kod işinizi görür mü?

Private Sub ListBox2_Click()
    Cells(Application.CountA(Range("B20:B" & Rows.Count)) + 20, 2).Value = ListBox2.Value
End Sub

 

[1Al2Ver]

Sayın cicosz merhaba,

Öncelikle duyarlığınız ve çözüm için teşekkür ederim.

Evet, kod çözüm sundu,

ListBox2'ye veri aldıktan sonra, ListBox1'e kayıt yapmak istediğimde; ListBox1'in kodu aktarılmak istenen veriyi ListBox2'nin ilk boş satırına kayıt yaptı,

Bu nedenle ; Önerdiğiniz kodu, ListBox1 için revize edip (kısıtlama getirmek için) şöyle düzenledim ama hata aldım,

Private Sub ListBox1_Click()

    Cells(Application.CountA(Range("B2:B19" & Rows.Count)) + 2, 2).Value = ListBox1.Value

End Sub

Zamanınız olur ise, çözüm rica ediyorum,

Teşekkür ederim.

 

[cicosz]

Merhaba,

ListBox1 için aşağıdaki kodu deneyiniz.

Private Sub ListBox1_Click()
    
    If Application.CountA(Range("B1:B18")) + 2 >= 19 Then Exit Sub
    
    Cells(Application.CountA(Range("B1:B18")) + 2, 2).Value = ListBox1.Value

End Sub

 

[1Al2Ver]

Merhaba,

ListBox1 için aşağıdaki kodu deneyiniz.

Private Sub ListBox1_Click()
   
    If Application.CountA(Range("B1:B18")) + 2 >= 19 Then Exit Sub
   
    Cells(Application.CountA(Range("B1:B18")) + 2, 2).Value = ListBox1.Value

End Sub

Merhaba sayın cicosz,

Kod sorunsuz çalışmaktadır, emekleriniz için teşekkür ederim.

Saygılarımla.

 

[cicosz]

Rev; B1 hücresi durumuna göre

Private Sub ListBox1_Click()
 
    If Application.CountA(Range("B1:B19")) >= 18 Then Exit Sub
 
    Cells(Application.CountA(Range("B1:B18")) + 2, 2).Value = ListBox1.Value

End Sub

 

[1Al2Ver]

Merhaba,

Revizyon için teşekkür ederim.