- 15 Ago 2020 às 10:09
#57945
eU QUERO COPIAR INFORMAÇÃO DE UMA PLANILHA PARA OUTRA , EU QUERIA CRIAR A FUNÇÃO DO UNITIL para enquanto o nome da plailha aberta igual a da condição ele copiar as informações dela planilha e colar na outra. sO QUE EU não consigo fazer essa comparação.
Sub DB_consolidar()
Dim lin1, lin2, lin3
Dim arq As String
lin1 = 17
Do Until Sheets("Base ").Cells(lin1, 119).Value = Empty
arq = Sheets("Base ").Cells(lin1, 119).Value
Workbooks.Open (ThisWorkbook.Path & "\BD\" & arq & ".xlsx")
lin2 = 2
Do Until ActiveWorkbook.Name = Workbooks("PRODUTO ESTOQUE ").Name
linha_fim = Range("A2").End(xlDown).Row
Sheets(1).Range("C2:K" & linha_fim).Copy
ThisWorkbook.Sheets(1).Range("C3").PasteSpecial
Loop
ActiveWorkbook.Close
lin1 = lin1 + 1
Loop
Sub DB_consolidar()
Dim lin1, lin2, lin3
Dim arq As String
lin1 = 17
Do Until Sheets("Base ").Cells(lin1, 119).Value = Empty
arq = Sheets("Base ").Cells(lin1, 119).Value
Workbooks.Open (ThisWorkbook.Path & "\BD\" & arq & ".xlsx")
lin2 = 2
Do Until ActiveWorkbook.Name = Workbooks("PRODUTO ESTOQUE ").Name
linha_fim = Range("A2").End(xlDown).Row
Sheets(1).Range("C2:K" & linha_fim).Copy
ThisWorkbook.Sheets(1).Range("C3").PasteSpecial
Loop
ActiveWorkbook.Close
lin1 = lin1 + 1
Loop
