inserir dados

[joaofrancisco]

olá galera estou precisando da ajuda de vcs, impanquei nesse codigo, é o seguinte galera tenho um formulario e nesse formulario tem um listbox quero jogar o conteudo desse listbox na planilha, a partir da range("a6") o caodigo que esta ai embaixo ele esta certo só que ele joga a partir da range("a2") é só um complemento desse codigo que ta faltando que eu não consiguir fazer, desde ja eu agradeço a ajuda e a ate4nção de todos, um abraço!





Private Sub cmb_inserir_Click()

Dim i As Integer
Dim Cont As Integer
i = 1

Set tabela = banco.OpenRecordset("select * from [relatorio_saida$];")

Plan7.Range("A6:G65000").ClearContents

For Cont = 0 To Me.ListBox_imprimir.ListCount - 1

Plan7.Range("A" & i + 1) = Me.ListBox_imprimir.List(Cont, 0)
Plan7.Range("B" & i + 1) = Me.ListBox_imprimir.List(Cont, 1)
Plan7.Range("C" & i + 1) = Me.ListBox_imprimir.List(Cont, 2)
Plan7.Range("D" & i + 1) = Me.ListBox_imprimir.List(Cont, 3)
Plan7.Range("E" & i + 1) = Me.ListBox_imprimir.List(Cont, 4)
Plan7.Range("F" & i + 1) = Me.ListBox_imprimir.List(Cont, 5)
Plan7.Range("G" & i + 1) = Me.ListBox_imprimir.List(Cont, 6)

i = i + 1

Next

End Sub

[Mauro Coutinho]

Altere a Variável " i " para 5 :

Dim i As Integer
Dim Cont As Integer
i = 5


[]s

[joaofrancisco]

valeu meu amigo amigo, muito obrigado pela dica, funcionou beleza, muito obrigado mesmo!