Listview'e açıklama yazdırma

[seddur]

Merhabalar.Aşağıdaki kod ile Anasayfa isimli sayfanın A sütunundaki ismin 4.sütununda bulunan açıklamayı Müşteri1 adlı listview'in 3.kolonuna yazdırmak istedim ama olmadı,yardımcı olabilecek arkadaşa Teşekkür Ediyorum.
With Müşteri1
For X = 15 To Sheets("Anasayfa").Range("A65536").End(xlUp).Row
For a = 1 To Müşteri.Müşteri1.ListItems.Count
Sheets("Anasayfa").Range(X, 4).Comment.Text = .ListItems(a).SubItems(3)

Next: Next
End with

 

[ÖmerFaruk]

Örnek dosya olmadığı için denemeden yazıyorum.
Aşağıdaki şekilde bir dener msini?

For X = 15 To Sheets("Anasayfa").Range("A65536").End(xlUp).Row
    Müşteri .ListItems(X-14).SubItems(3)=Sheets("Anasayfa").Range("D" & X).Comment.Text
Next X

 

[seddur]

Maalesef hata veriyor

 

[ÖmerFaruk]

Keşke hatayı da söyleseydiniz.
Müşteri .
Yerine listeview nesnesinin adını düzeltebilirsiniz.
Müşteri1.

 

[seddur]

"Index out of bounds" şeklinde hata veriyor.Müşteri1 olarak düzelterek uygulamıştım zaten.

 

[seddur]

Dosyayı hata verdiği şekliyle ekliyorum

 

[ÖmerFaruk]

Zaten bir üst satırda diğer SubItems lara veri alıyorsunuz.
Yapmaya çalıştığınız şeyi anlamış değilim.

Şu şekilde iki For döngüsünü içiçe kullanıyorsunuz. İkisi de aynı aralıkta işlem görüyor.

For X = 2 To Sheets("Anasayfa").Range("A65536").End(xlUp).Row
For i = 1 To S1.Cells(Rows.Count, "a").End(xlUp).Row

ListView öğesine SubItem için diğer satırlardaki gibi ekleyeceksiniz.
Açıklama için de

List.ListSubItems.Add , , S1.Cells(i, "D").Comment.Text

 

[Orion1]

Not , önemli;
Nesne isimlerinde,prosedür isimlerinde,değişken isimlerinde Türkçe karakterler kullanmayınız.

 

[seddur]

Kod çalışıyor katkınız için tekrar Teşekkür ederim.