VBA-Macro

[sitelbanat]

I need help writing a macro that would

if cell AJ116 = any of the columns in row 2 then copy the data in column AG117-141 and paste in the cells that match the currency in column B.

the data in AF117-114 has the currencies AG117-114 has the amounts

cell AJ116 = one of the dates from row 2

and column B has different currencies

B2 = usd
B3 = aud
B4 = nok

and row 2 has a different date in every column

help


i want the macro to paste the amounts into the right date with the right currencies

 

[agihcam]

not sure if this you are after but try;

Sub test()
Dim i As Long
'find the column# where the date is
With Rows(2)
    Set c = .Find(Range("aj116").Value, , , xlWhole)
        If Not c Is Nothing Then
            rfnd = c.Column
        End If
End With

'find the match currencies of all the records from aj117 to last row
'and put the values in desired date column
For i = 117 To Range("af" & Rows.Count).End(xlUp).Row
    With Columns("b")
        Set fc = .Find(Cells(i, "af").Value, , , xlWhole)
            If Not fc Is Nothing Then
                On Error GoTo err:
                    Cells(fc.Row, rfnd).Value = Cells(i, "ag").Value
            End If
    End With
Next
'if no date found from row 2
err:
MsgBox "Date: " & Range("aj116").Value & " " & " could not be found fron row#2", vbInformation + vbOKOnly, "No Record Found!"
End Sub

 

[sitelbanat]

How would i change the macro so it WONT have a msg box

 

[agihcam]

just delete it.