Página 1 de 1
Macro para importar duas datas
Enviado: 07 Jun 2019 às 17:08
por LeoHenrique
Boa tarde Colegas !!
Na planilha em anexo, preciso de uma macro para importar da aba ao lado, as duas datas da referência do item, porém não consegui imaginar uma que faça isso !
Fiz uma tabela dinâmica, e digitei manual... mas se tiver como, preciso ...
Da aba "Atualizado_sell_out", tenho códigos na coluna B, onde na coluna S, preciso importar as datas da aba "Nao_Faturados". Fiz um procv, mas quando a existe duas datas, o procv importa apenas a primeira.
Se alguém puder ajudar, agradeço imensamente !
Leandro
Macro para importar duas datas
Enviado: 07 Jun 2019 às 17:22
por LeoHenrique
Complementando... as duas datas têm que ficar na mesma coluna ex: 21/06 e 12/07
Re: Macro para importar duas datas
Enviado: 07 Jun 2019 às 20:06
por osvaldomp
Experimente:
Código: Selecionar todosSub ReplicaDatas()
Dim ref As Range, dat As Range, refAdd As String
Range("S7:S" & Cells(Rows.Count, 19).End(3).Row).Value = ""
For Each ref In Range("B7:B" & Cells(Rows.Count, 2).End(3).Row)
Set dat = Sheets("Nao_Faturados").[G:G].Find(ref.Value)
If Not dat Is Nothing Then
refAdd = dat.Address
Do
ref.Offset(, 17) = IIf(ref.Offset(, 17).Value = "", _
dat.Offset(, 19).Value, ref.Offset(, 17).Value & Chr(10) & dat.Offset(, 19).Value)
Set dat = Sheets("Nao_Faturados").[G:G].FindNext(After:=dat)
Loop While dat.Address <> refAdd
End If
Next ref
End Sub
Re: Macro para importar duas datas
Enviado: 08 Jun 2019 às 13:57
por LeoHenrique
Muito obrigado pela ajuda Osvaldo !! Top top mesmo !!
Tentei usar o código que você passou, porém ele coloca as datas na coluna onde está a quantidade, na coluna "S" onde têm uma fórmula de somase, que puxa a quantidade.
Tentei entender o código, para adaptar, mas não consegui. Se puder me explicar cada linha, agradeço pois vou aprendendo também ! E se puder ajustar também para que as datas "uma ou duas datas na mesma célula" apareçam na coluna "T". Agradeço !!
Segue em anexo a planilha com o código !
Obrigado novamente.
Leandro Henrique M. Moreira
Re: Macro para importar duas datas
Enviado: 08 Jun 2019 às 22:42
por osvaldomp
LeoHenrique escreveu:
... na coluna S, preciso importar as datas ...
Antes eu havia entendido que você queria as datas na coluna S.
LeoHenrique escreveu:
... porém ele coloca as datas na coluna "S" ...
... ajustar para que as datas apareçam na coluna "T"
Para colocar as datas na coluna T, altere o código conforme abaixo.
substitua esta linha
Código: Selecionar todos Range("S7:S" & Cells(Rows.Count, 19).End(3).Row).Value = ""
por esta
Código: Selecionar todos If [T7] <> "" Then Range("T7:T" & Cells(Rows.Count, 20).End(3).Row).Value = ""
substitua esta linha
Código: Selecionar todosref.Offset(, 17) = IIf(ref.Offset(, 17).Value = "", _
dat.Offset(, 19).Value, ref.Offset(, 17).Value & Chr(10) & dat.Offset(, 19).Value)
por esta
Código: Selecionar todos ref.Offset(, 18) = IIf(ref.Offset(, 18).Value = "", _
dat.Offset(, 19).Value, ref.Offset(, 18).Value & Chr(10) & dat.Offset(, 19).Value)
Re: Macro para importar duas datas
Enviado: 10 Jun 2019 às 09:49
por LeoHenrique
Muito obrigado Osvaldo !! Show de bola !!
Deu certo !!
Leandro
leandro.manhani@gmail.com