Soru Listview selecteditem sorun

[FERAZ]

Merhabalar.

Giftende anlaşılacağı gibi userform açıldığında listview seçili geliyor.
Benim istediğim seçili olmadan geldin.
Butona tıklayınca seçili değilse diye şart koymak istiyorum lakin devamlı seçili olduğu için olmuyor.

https://dosya.co/vqd6t3xrqkja/listview_selecteditem.rar.html

 

[Korhan Ayhan]

Deneyiniz.

Private Sub CommandButton1_Click()
    If Not Me.ListView1.SelectedItem Is Nothing Then
        MsgBox Me.ListView1.SelectedItem.Index
    End If
End Sub

Private Sub UserForm_Activate()
    Dim lstv As ListItem
    
    With Me.ListView1.ColumnHeaders
        .Clear
        .Add , , "Baslik1"
        .Add , , "Baslik2"
        .Add , , "Baslik3"
    End With
    
    With Me.ListView1
        .ListItems.Clear
        .View = lvwReport
        .FullRowSelect = True
        
     For i = 2 To 15
      Set lstv = .ListItems.Add(, , Cells(i, 1))
                  lstv.SubItems(1) = Cells(i, 2)
                  lstv.SubItems(2) = Cells(i, 3)
    Next i
    
    End With
    
    Set ListView1.SelectedItem = Nothing
    Set lstv = Nothing
End Sub

 

[FERAZ]

Elinize sağlık @Korhan Ayhan hocam.
Kodunuza alttaki kırmızı yeride ekleyince süper oldu.

Private Sub CommandButton1_Click()
    If Not Me.ListView1.SelectedItem Is Nothing Then
        MsgBox Me.ListView1.SelectedItem.Index
    End If
   Set ListView1.SelectedItem = Nothing
End Sub


Private Sub UserForm_Initialize()
   Dim lstv As ListItem
    
    With Me.ListView1.ColumnHeaders
        .Clear
        .Add , , "Baslik1"
        .Add , , "Baslik2"
        .Add , , "Baslik3"
    End With
    
    With Me.ListView1
        .ListItems.Clear
        .View = lvwReport
        .FullRowSelect = True
        
     For i = 2 To 15
      Set lstv = .ListItems.Add(, , Cells(i, 1))
                  lstv.SubItems(1) = Cells(i, 2)
                  lstv.SubItems(2) = Cells(i, 3)
    Next i
    
    End With
    
    Set ListView1.SelectedItem = Nothing
    Set lstv = Nothing
End Sub