Bom dia, precisava de uma ajuda com uma macro que estou tentando fazer. No caso eu terei uma planilha de busca (Consulta) com um campo para colocar manualmente 100 codigos e ao clicar no botão *Buscar* ele iria coletar as informações correspondentes ao codigo em uma outra pasta de trabalho.
Estou tentando utilizar este codigo, porém ele só me mostra a msg de carregado e nao faz nada, alguem saberia consertar ? ou me passar outro modo ?
Private Sub Buscar_Click() On Error Resume Next Dim Dept_Row As Long Dim Dept_Clm As Long Table1 = Sheet1.Range("F2:F101") Table2 = Workbooks("CadPeso.xlsx").Sheets("Plan1").Range("A2:A65653") Dept_Row = Sheet1.Range("G2").Row Dept_Clm = Sheet1.Range("G2").Column For Each cl In Table1 Sheet1.Cells(Dept_Row, Dept_Clm) = Application.WorksheetFunction.VLookup(cl, Table2, 1, False) Dept_Row = Dept_Row + 1 Next cl MsgBox "Carregado" End Sub
Verifiquei no forum e também achei este outro
Dim WBjun As Workbook, WBjul As Workbook, ws As Worksheet Set WBConsulta = Workbooks("Consulta") Set WBpeso = Workbooks("CadPeso") For Each ws In WBConsulta.Worksheets WBpeso.Sheets(ws.Name).Range("A2:A65653").Value = ws.Range("CodigoLista").Value Next ws
porém o mesmo da erro de subscrito fora de parametro ("?talvez por não ter localização dos workbooks?") ...
Sera que alguem consegue me ajudar ?
Obrigado, Paulo R.