Finding matching date in column and pasting in that row

[01MooKy]

Hi,

I'm trying to create a macro. Lets say I have 2 sheets, Sheet 1 and Sheet 2. In Sheet 1, column A, cells A1 to A31 are just dates from Jan 1 - 31, 2025. Sheet 2, I have a single row of data in row 1, with cell A1 containing the date 1/22/2025.

I would like to copy the row of data in Sheet 2 and then have it find the matching date from cell A1 of Sheet 2 to the date in Sheet 1 column A and paste it in that row of Sheet 1, which should be cell A22. It doesn't matter if it overwrites the date in Sheet 1 when it pastes since it should be the exact same date.

I hope that makes sense.

Thanks,
K

 

[DanteAmor]

Hi and welcome to MrExcel

Try this:

Sub copyrow()
  Dim f As Range
 
  Set f = Sheets("Sheet1").Range("A:A").Find(Sheets("Sheet2").Range("A1").Value, , xlFormulas, xlWhole)
  If f Is Nothing Then
    MsgBox "Date not exists"
  Else
    Sheets("Sheet2").Rows(1).Copy Sheets("Sheet1").Range("A" & f.Row)
  End If
End Sub

 

[01MooKy]

Hi and welcome to MrExcel

Try this:

Sub copyrow()
  Dim f As Range
 
  Set f = Sheets("Sheet1").Range("A:A").Find(Sheets("Sheet2").Range("A1").Value, , xlFormulas, xlWhole)
  If f Is Nothing Then
    MsgBox "Date not exists"
  Else
    Sheets("Sheet2").Rows(1).Copy Sheets("Sheet1").Range("A" & f.Row)
  End If
End Sub

Thank you! It worked perfectly.