Listview'de tekrarlayan isim sorunu

[seddur]

Pencere4 adlı listview'de combobox1'den seçilen isme göre o isme ait satırların dökümünü almaktayım ancak aynı isimden iki tane varsa aşağıdaki satır hata veriyor aynı isimden bir tane varsa hata vermiyor."D" sütununda bulunan o isme ait açıklamaların listview'de gözükmesi istenmektedir.Yardımcı olacak arkadaşa Teşekkür ediyorum.

With UserForm15.pencere4
.ListItems.Clear
Set S1 = Sheets("Anasayfa")
For i = 15 To S1.Cells(Rows.Count, "a").End(xlUp).Row
If Sheets("Anasayfa").Range("a" & i).Value = UserForm8.ComboBox1.Text Then
Set List = .ListItems.Add(, , S1.Cells(i, "a").Text)
List.ListSubItems.Add , , S1.Cells(i, "c").Text
List.ListSubItems.Add , , S1.Cells(i, "D").Comment.Text ' (Hata verdiren satır)
List.ListSubItems.Add , , S1.Cells(i, "g").Text
List.ListSubItems.Add , , S1.Cells(i, "h").Text
List.ListSubItems.Add , , S1.Cells(i, "ı").Text
List.ListSubItems.Add , , S1.Cells(i, "j").Text
List.ListSubItems.Add , , S1.Cells(i, "k").Text
List.ListSubItems.Add , , S1.Cells(i, "m").Text
End If
Next
End With

 

[ÖmerFaruk]

S1.Cells(i, "D") .CommentThreaded.Text
Şeklinde olması lazım.
Eğer hücrede Açıklama yoksa kod hata verir. Kontrolünü sağlamanız lazım.

 

[seddur]

Ekranda görünen hatayı verdi.

 

[ÖmerFaruk]

ben 365 de bu komutla yapabiliyorum.

 

[Zeki Gürsoy]

Ekranda görünen hatayı verdi.

Office 365'te durum nasıldır bilmiyorum. Ama normal sürümlerde Excel uygulaması tek iş parçacıklı, yani STA (Single Thread Apartment) olduğundan bu yöntem desteklenmiyor olmalı. Kısaca... bu özelliği kullanamayacaksınız sanırım.

.

 

[seddur]

Ürün anahtarını Aliexpresden aldığım 32 bit ofis 2019 programını kullanıyorum.Yalnız ürünü etkinleştiremedim telefonda geçersiz ürün mesajı verdi ama bu güne kadar sorunsuz bir şekilde kullanmaktayım