Copy Listview items to new row in excel sheet Hi, I am trying to copy items in l

Question

Copy Listview items to new row in excel sheet

Hi,

   I am trying to copy items in listview to new row in excel sheet without disturbing the earlier data in excel sheet. With following code it is not possible, can anybody help.

Private Sub CommandButton1_Click()
Dim i As Long
     Dim r As Long
     Dim c As Long
    
     Sheet14.Activate
    
     'Clear any existing data
     Range("A2:J100").CurrentRegion.ClearContents
    
     'List the column headers in the Second row, starting at A1
     With Me.ListView1
         For i = 1 To .ColumnHeaders.count
             Cells(2, i).Value = .ColumnHeaders(i)
         Next i
     End With
    
    
     'List the selected items and subitems starting at Row 2
     r = 3
     With Me.ListView1
         For i = 1 To .ListItems.count..
             If .ListItems(i).Checked Then
                             Cells("r, "A:").Value = .ListItems(i).Text
                 For c = 1 To .ListItems(i).ListSubItems.count
                     Cells(r, c + 1).Value = .ListItems(i).ListSubItems(c).Text
                 Next c
                 r = r + 1
             End If
         Next i
     End With.
    
    
     Unload Me.
     UserForm26.Show
End Sub

Explanation / Answer

Hi..

Try replacing...

r = 3

with

r = Cells(Rows.Count, "A").End(xlUp).Row + 1;

Hope this helps!!

Related Questions

Navigate

• Browse (All)
• Browse C
• Subjects

Integrity-first tutoring: explanations and feedback only — we do not complete graded work. Learn more.