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
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
inserir dados
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
-
- Colaborador
- Mensagens: 35
- Registrado em: Sex Jan 28, 2011 9:02 pm
Re: inserir dados
valeu meu amigo amigo, muito obrigado pela dica, funcionou beleza, muito obrigado mesmo!