Este fórum está sendo desativado

[Joaopmata182]

Bom dia,

Estou desenvolvendo um novo "sistema" para controle de estoque e gostaria de transferir os dados de uma listbox para uma planilha. Consegui transferir os dados porém não consegui dar sequência procurando a próxima célula vazia.
Segue o código que estou usando :


Private Sub CommandButton7_Click()


Sheets("Entrada").Select

'testa se a list esta vazia
If ListBox1.ListCount = 0 Then
MsgBox ("Não há itens a serem adicionado..."), vbInformation, ("Erro")
Else

'lança os dados na planilha

Dim Item As Double
Dim linha As Integer
Dim valor_unitario As Double
Dim valor_total As Double

linha = 4

For Item = 0 To ListBox1.ListCount - 1


Sheets("Entrada").Cells(linha, 2) = ListBox1.List(Item, 0)
Sheets("Entrada").Cells(linha, 3) = ListBox1.List(Item, 1)
Sheets("Entrada").Cells(linha, 4) = ListBox1.List(Item, 2)
Sheets("Entrada").Cells(linha, 5) = ListBox1.List(Item, 3)
Sheets("Entrada").Cells(linha, 6) = ListBox1.List(Item, 4)
Sheets("Entrada").Cells(linha, 7) = ListBox1.List(Item, 5)
Sheets("Entrada").Cells(linha, 8) = ListBox1.List(Item, 6)
Sheets("Entrada").Cells(linha, 9) = ListBox1.List(Item, 7)
Sheets("Entrada").Cells(linha, 10) = ListBox1.List(Item, 8)
Sheets("Entrada").Cells(linha, 11) = ListBox1.List(Item, 9)

linha = linha + 1

Next


End If



End Sub



Abraços.

[osvaldomp]

Experimente:

Código: Selecionar todos

substitua esta linha
   linha = 4
por estas
  'Procurar a primeira célula vazia na coluna "B"
   linha = Cells(Rows.Count, "B").End(3).Row + 1

apague o trecho abaixo (este trecho não está no código que você colocou acima mas está no seu arquivo)

Código: Selecionar todos

      'Procurar a primeira célula vazia
Do
  If Not (IsEmpty(ActiveCell)) Then
      ActiveCell.Offset(1, 0).Select
  End If
Loop Until IsEmpty(ActiveCell) = True