Listview'e açıklama yazdırma

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Altın Üyelik Bitiş Tarihi
18-12-2024
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Örnek dosya olmadığı için denemeden yazıyorum.
Aşağıdaki şekilde bir dener msini?
C++:
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

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Altın Üyelik Bitiş Tarihi
18-12-2024
Maalesef hata veriyor
 

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
Keşke hatayı da söyleseydiniz.
Müşteri .
Yerine listeview nesnesinin adını düzeltebilirsiniz.
Müşteri1.
 

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Altın Üyelik Bitiş Tarihi
18-12-2024
"Index out of bounds" şeklinde hata veriyor.Müşteri1 olarak düzelterek uygulamıştım zaten.
 

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Altın Üyelik Bitiş Tarihi
18-12-2024
Dosyayı hata verdiği şekliyle ekliyorum
 

Ekli dosyalar

ÖmerFaruk

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,779
Excel Vers. ve Dili
Microsoft 365 Tr-64
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.
C++:
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
C++:
List.ListSubItems.Add , , S1.Cells(i, "D").Comment.Text
 
Son düzenleme:

Orion1

Uzman
Uzman
Katılım
1 Mart 2005
Mesajlar
22,254
Excel Vers. ve Dili
Win7 Home Basic TR 64 Bit

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

seddur

Altın Üye
Katılım
12 Nisan 2012
Mesajlar
531
Excel Vers. ve Dili
Microsoft office professional plus 2019
Altın Üyelik Bitiş Tarihi
18-12-2024
Kod çalışıyor katkınız için tekrar Teşekkür ederim.
 
Üst