Este fórum está sendo desativado

[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

[LeoHenrique]

Complementando... as duas datas têm que ficar na mesma coluna ex: 21/06 e 12/07

[osvaldomp]

Experimente:

Código: Selecionar todos

Sub 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

[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

[osvaldomp]

... na coluna S, preciso importar as datas ...

Antes eu havia entendido que você queria as datas na coluna S.

... 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 todos

ref.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)

[LeoHenrique]

Muito obrigado Osvaldo !! Show de bola !!

Deu certo !!

Leandro

leandro.manhani@gmail.com