|
|
Postada em 11/12/2007 06:17 hs
Bom dia, Preciso de uma ajuda dos Srs. Estou tentando pegar dados que está na planilha excel e quero colocar em dos combo box, so que não sei como fazer. tenho um código que carrega só uma combo.. já tentei adaptar mais não consegui. Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim NumLinha, Linha As Long
NumLinha = 1
Set xlw = xl.Workbooks.Open(App.Path & "" & "Banco")
xlw.Application.Visible = True
xlw.Sheets("Plan1").Select Do While Range("Plan1!A" & NumLinha).Value <> ""
NumLinha = NumLinha + 1
CboConta.AddItem Cells(NumLinha, 1)
Loop
Obrigado, |
|
|
|
|
|
Roßerto
|
SAO PAULO
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 11/12/2007 09:23 hs
Dim xl As New Excel.Application
Dim xlw As Excel.Workbook
Dim NumLinha, Linha As Long
NumLinha = 1
Set xlw = xl.Workbooks.Open(App.Path & "" & "Banco")
xlw.Application.Visible = True
xlw.Sheets("Plan1").Select Do While Range("Plan1!A" & NumLinha).Value <> ""
NumLinha = NumLinha + 1
CboConta.AddItem Cells(NumLinha, 1) CboConta2.AddItem Cells(NumLinha, 1)
Loop
Roberto |
|
|
|
Marcelo(mfc)
não registrado
|
|
Postada em 11/12/2007 11:31 hs
Roberto.. eu já tinha tentado assim, só que a primeira combo pega range celula "a" e segunda combo pela range celula "d". Obrigado.. |
|
|
|
|
|
Postada em 11/12/2007 11:42 hs
Roberto, Consegui fazer... só tem uma coisa, na coluna "a" tem 300 linhas e na coluna "d" tem 1500 linhas, como que posso ajustar isso.. Obrigado, |
|
|
|
Roßerto
|
SAO PAULO
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 11/12/2007 15:10 hs
antes de inserir no combo verifique se a cedula tem tamanho maior que 1 ou que seja diferente de NULO. Roberto |
|
|
|
|
|
Postada em 12/12/2007 06:01 hs
Roberto, Em que local eu coloco maior que 1, desculpa estou aprendendo a mecher com vb.. Obrigado, |
|
|
|
