Guru do Excel e Power BI

Saudação a todos,
Estou com dificuldade de implementar no botão executar a seguinte rotina:
Se a data que está na coluna T no ficheiro CopiarValor for igual a data que está na linha numero 1 no ficheiro ColarValor então copia os valores da coluna B do ficheiro CopiarValor e colar no ficheiro ColarValor, onde a data for igual. Será que é possível?
Desde já agradeço ajuda de todos.
Segue em anexo os dois ficheiros.

Experimente:

Código: Selecionar todos

Sub ReplicaDados()
 Dim c As Range
  Application.ScreenUpdating = False
  Set c = Workbooks("ColarValor.xlsx").Sheets("ColarValor").Rows(1).Find([T2])
   If Not c Is Nothing Then
    Range("B1:B" & Cells(Rows.Count, 2).End(3).Row).Copy
    Workbooks("ColarValor.xlsx").Sheets("ColarValor").Cells(2, c.Column).PasteSpecial xlPasteValues
   End If
  Application.ScreenUpdating = True
End Sub

és um génio. Por favor, agradeço que comentasse cada linha para meus conhecimento e fazer adaptação futuras, ainda não domino bem VBA. Os número que está no código não consigo identificar se são colunas ou linhas!
Obrigado.

MauroR escreveu: Os número que está no código não consigo identificar se são colunas ou linhas!

End(3) ~~~> equivale a End(xlUp)

a sintaxe para Cells é ~~~> Cells(linha, coluna), então Cells(1,1) refere-se a A1 (neste caso)

Muito obrigado.

Guru do Excel e Power BI

Copiar e Colar Valor

Copiar e Colar Valor

Re: Copiar e Colar Valor

Re: Copiar e Colar Valor

Re: Copiar e Colar Valor

Re: Copiar e Colar Valor