Este fórum está sendo desativado

[MauroR]

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.

[osvaldomp]

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

[MauroR]

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

[osvaldomp]

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)

[MauroR]

Muito obrigado.