Este fórum está sendo desativado

[nuno78]

Oi pessoal,

Com alguma ajuda e pesquisa consegui criar esta macro, o que ela faz é ir buscar dados em uma planilha que vem de ser aberta.
Copia e fecha essa mesma planilha, o que preciso é que assim que fecha os proximos dados sejam copiados na seguinte linha.
ou sera preciso criar um loop?
podem ajudar?

Sub CopyOutput()
Dim wb1 As Workbook, wb2 As Workbook
Dim Ret1, Ret2
Dim linha As Double, coluna As Double


Set wb1 = ActiveWorkbook
'~~> Clear CopyData tab

'~~> Get the File
Ret1 = Application.GetOpenFilename("Excel Files (*.xls*), *.xls*", _
, "Please select file")
If Ret1 = False Then Exit Sub


Set wb2 = Workbooks.Open(Ret1)

If wb2.Sheets(1).Range("g7") <> "" Then


wb2.Sheets(1).Range("G6").Copy Destination:=wb1.Worksheets(1).Range("A4").Cells
wb2.Sheets(1).Range("s10").Copy Destination:=wb1.Worksheets(1).Range("b4").Cells
wb2.Sheets("final flight report").Range("i36").Copy Destination:=wb1.Worksheets(1).Range("c4").Cells
wb2.Sheets(1).Range("e41").Copy Destination:=wb1.Worksheets(1).Range("d4").Cells
wb2.Sheets("final flight report").Range("i66").Copy Destination:=wb1.Worksheets(1).Range("e4").Cells
wb2.Sheets(1).Range("e43").Copy Destination:=wb1.Worksheets(1).Range("h4").Cells
wb2.Sheets("final flight report").Range("j72").Copy Destination:=wb1.Worksheets(1).Range("m4").Cells
'wb2.Sheets(1).Range("D1:D13").Copy Destination:=wb1.Worksheets("Control").Range("B12:B27").Cells


wb2.Close SaveChanges:=False



Else
wb2.Close SaveChanges:=False
MsgBox "No data.", vbExclamation, "CIS"
End If

Set wb2 = Nothing
Set wb1 = Nothing
End Sub

[PHSabater]

Os dados que quer pegar e incluir na planilha em questão é do mesmo tipo? Limpa as informações atuais ou acrescenta?

[nuno78]

sim os dados sao do mesmo tipo e é para acrescentar.

[PHSabater]

Certo. Nesse caso precisamos pegar a última linha com registro para saber onde começar a incluir.
A planilha que você abre para copiar tem que fazer alguma validação de onde tem as informações ou só selecionar o intervalo e fazer a cópia?

[nuno78]

Só precisa de selecionar e copiar.
depois o resultado serve para KPIs.

[PHSabater]

Pelo código abaixo, sua rotina faz isso e sobrepõe os dados ao colar a cópia. A não ser que esteja fazendo manualmente os caminhos das células...

wb2.Sheets(1).Range("G6").Copy Destination:=wb1.Worksheets(1).Range("A4").Cells
wb2.Sheets(1).Range("s10").Copy Destination:=wb1.Worksheets(1).Range("b4").Cells
wb2.Sheets("final flight report").Range("i36").Copy Destination:=wb1.Worksheets(1).Range("c4").Cells
wb2.Sheets(1).Range("e41").Copy Destination:=wb1.Worksheets(1).Range("d4").Cells
wb2.Sheets("final flight report").Range("i66").Copy Destination:=wb1.Worksheets(1).Range("e4").Cells
wb2.Sheets(1).Range("e43").Copy Destination:=wb1.Worksheets(1).Range("h4").Cells
wb2.Sheets("final flight report").Range("j72").Copy Destination:=wb1.Worksheets(1).Range("m4").Cells
'wb2.Sheets(1).Range("D1:D13").Copy Destination:=wb1.Worksheets("Control").Range("B12:B27").Cells


Disponibiliza as planilhas com algumas poucas informações que te ajudo.

[nuno78]

Ola Pedro,
Em anexo envio duas planilhas de onde preciso recolher dados.
ao abrir 1235 quero colar os dados na linha seguinte aos dados copiados do anexo 1234

[PHSabater]

Ambas as planilhas estão vazias... pode simular uma com informações que serão importadas e o destino delas na outra planilha?
A planilha que recebe a importação tem a nomeação fixa ou é renomeada nessa sequência?

[PHSabater]

Se preferir pode me enviar por e-mail pra te ajudar nessa solução.
E-mail: p.h.sabater@gmail.com