Makro Kaydını Seçilen Sütuna Göre Yapmak

[1Al2Ver]

Merhaba,

Aşağıdaki kod'da bir değişiklik arzuluyorum,

Mevcut kod, "UserForm" dan seçilenleri "B" sütununa, ilk boş satırdan itibaren, alt alta aktarıyor,

Benim isteğim, "UserForm" dan seçilenleri, "N2" hücresinde belirtilen sütunda ( Örneğin ; "N2" de yazan sütun adı ; C ) , ilk boş satırdan itibaren alta alta aktarması,

Teşekkür ederim.

Private Sub CommandButton1_Click()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
If ListBox1.Selected(i) = True Then
Sheets("sayfa1").Range("b65536").End(3)(2, 1).Value = ListBox1.List(i, 0)
End If
Next i
i = Empty
End Sub

 

[Korhan Ayhan]

Deneyiniz.

Sheets("sayfa1").Range(Range("N2").Value & Rows.Count).End(3)(2, 1).Value = ListBox1.List(i, 0)

 

[1Al2Ver]

Sayın Korhan Ayhan, merhaba,

Elinize sağlık, sorunsuz çalışıyor, teşekkür ederim.

Saygılarımla.