Açıklamaları hücreye Kaydetme

[fehdur]

Aşağıdaki kod ile Anasayfada L sütununda bulunan isimlere ait açıklamaları Sayfa3'e listelemek istiyorum.Ama listboxa listelenirse onu tercih ederim.Kod şu anda çalışmıyor.Bir fikir versin diye ekledim.kodu düzenleyecek arkadaşa teşekkürler



Sheets("Sayfa3").Select
For i = 15 To Sheets("Anasayfa").Range("L65536").End(3).Row
Sheets("Anasayfa").Range("L" & i).Comment.Text.Copy Sheets("Sayfa3").Range("a65536").End(3)(2, 1)
Next

 

[ÖmerBey]

Merhaba,
Yazdığınız kodu aşağıdaki şekilde ters çevirip deneyiniz.

Sheets("Sayfa3").Range("a65536").End(3)(2, 1) = Sheets("Anasayfa").Range("L" & i).Comment.Text

 

[fehdur]

Merhaba,
Yazdığınız kodu aşağıdaki şekilde ters çevirip deneyiniz.

Sheets("Sayfa3").Range("a65536").End(3)(2, 1) = Sheets("Anasayfa").Range("L" & i).Comment.Text

Çalıştı ama ilk iki satıra açıklama yazdı diğerlerini yazmadı.

 

[fehdur]

Tamam sorun çözüldü.Çalışıyor.Sayfaya değilde listboxa nasıl yazdırabiliriz ?

 

[hamitcan]

Bir Module içine;

Public arr()

Sub AciklamalariListBoxaEkle()
    For Each hcr In Range("L15:L20").SpecialCells(xlCellTypeComments)
        k = k + 1
        ReDim Preserve arr(0 To k)
        arr(k) = hcr.Comment.Text
    Next
        UserForm1.Show
End Sub

Bir UserForm içine;

Private Sub UserForm_Initialize()
    ListBox1.List = arr()
End Sub

Ekleyip deneyin.

 

[fehdur]

modüle yapıştırdım ama nasıl çalışacak anlayamadım.Modüle değilde butona yazabilirmisin.

 

[hamitcan]

Bir de UserForm oluşturmalısınız. Module oluşturduğunuz yerin altında yer almaktadır. Userform oluşturduktan sonra içine bir ListBox ekleyin.