none
Transferir dados de uma ListBox para uma planilha de forma acumulada RRS feed

  • Pergunta

  • 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.

    quarta-feira, 28 de setembro de 2016 23:19

Todas as Respostas

  • @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

    quinta-feira, 29 de setembro de 2016 12:01
    Moderador
  • Poxa perdão não me atentei desculpe pelo post errado.

    Junior

    quinta-feira, 29 de setembro de 2016 12:43