Listboxda açıklama listesi

[fehdur]

Aşağıdaki kod ile İsim ve açıklama listesini listboxa alıyorum ancak açıklama yazılı olmayan satırlarda listboxa geliyor sadece açıklama yazan satırları nasıl alabilirim.Teşekkürler.


On Error Resume Next
ListBox1.Clear
For i = 15 To Sheets("Anasayfa").Range("L65536").End(3).Row
ListBox1.AddItem
ListBox1.List(UserForm18.ListBox1.ListCount - 1, 0) = Sheets("Anasayfa").Range("L" & i)
ListBox1.List(UserForm18.ListBox1.ListCount - 1, 1) = Sheets("Anasayfa").Range("L" & i).Comment.Text
Next

 

[PLİNT]

Merhaba
Aşağıdaki gibi denermisiniz?

On Error Resume Next
ListBox1.Clear
With Sheets("Anasayfa")
For i = 15 To .Range("L65536").End(3).Row
If Not .Range("L" & i).Comment Is Nothing Then
If Trim(Replace(.Range("L" & i).Comment.Text, Chr(10), "")) <> "" Then
ListBox1.AddItem
ListBox1.List(UserForm18.ListBox1.ListCount - 1, 0) = .Range("L" & i)
ListBox1.List(UserForm18.ListBox1.ListCount - 1, 1) = .Range("L" & i).Comment.Text
End If: End If
Next
End With

 

[fehdur]

Tamam.Çalışıyor.Sağolasın.

 

[fehdur]

Merhaba
Aşağıdaki gibi denermisiniz?

On Error Resume Next
ListBox1.Clear
With Sheets("Anasayfa")
For i = 15 To .Range("L65536").End(3).Row
If Not .Range("L" & i).Comment Is Nothing Then
If Trim(Replace(.Range("L" & i).Comment.Text, Chr(10), "")) <> "" Then
ListBox1.AddItem
ListBox1.List(UserForm18.ListBox1.ListCount - 1, 0) = .Range("L" & i)
ListBox1.List(UserForm18.ListBox1.ListCount - 1, 1) = .Range("L" & i).Comment.Text
End If: End If
Next
End With

Bu koda ilave etmek suretiyle listboxdaki seçili veri (açıklama) üzerinde değişiklik yapma imkanı sağlayabilirmiyiz?Ayrı bir command butona yazacağım.