Transferir dados de uma ListBox para uma planilha de forma acumulada

Question

Como transferir os dados de uma ListBox para uma planilha, porem de forma acumulada.

Ex.: Independente de quantas vezes eu clicar em salvar os dados devem se acumular na planilha sendo inseridos da próxima linha vazia em diante.

Answer 1

@Junior,
Este é um fórum de VBA.

---

Option Explicit

Private Sub UserForm_Initialize()
    Dim List(1 To 3, 1 To 3)
    
    List(1, 1) = 1
    List(1, 2) = 2
    List(1, 3) = 3
    List(2, 1) = 4
    List(2, 2) = 5
    List(2, 3) = 6
    List(3, 1) = 7
    List(3, 2) = 8
    List(3, 3) = 9
    
    ListBox1.List = List
End Sub

Private Sub CommandButton1_Click()
    Dim LastRow As Long
    Dim ws As Worksheet
    
    Set ws = ThisWorkbook.Worksheets("Plan1")
    With ws
        LastRow = .Cells(.Rows.Count, "A").End(xlUp).Row + 1
        
        .Cells(LastRow, "A").Resize(ListBox1.ListCount, ListBox1.ColumnCount) = ListBox1.List
    End With
End Sub

---

http://www.ambienteoffice.com.br - http://www.clarian.com.br

Answer 2

Poxa perdão não me atentei desculpe pelo post errado.

---

Junior