VBA to Match Row and Column to Value, then copy and paste into intersection

[mill6210]

Hello,

I have a table with many fields, and each record in the table has a unique ID.
I want to find the intersection of a particular ID and a particular field , and then copy and paste a value into the cell where they intersect.

In the attached example, I need a macro that when run, the name and the date would be inserted into the respective columns, in the row that matches the value in F2. I am struggling with the VBA to accomplish this, I greatly appreciate any help!

Cheers.

 

[Alex Blakenburg]

Do you just mean something like this ?

Sub AddDataToTable()

    Dim ws As Worksheet
    Dim lo As ListObject
    Dim loRow As Long
    
    Set ws = ActiveSheet                        ' Ideally put in the worksheet name ie Worksheets("NameOfSheet")
    Set lo = ws.Range("Table1").ListObject      ' Change to your table name
    
    'Find record in table
    With Application
        loRow = .IfError(.Match(ws.Range("F1"), lo.ListColumns("Column1").DataBodyRange, 0), 0)
    End With
    
    'Write data
    With ws
        If loRow <> 0 Then
            lo.ListColumns(.Range("E3").Value).DataBodyRange(loRow) = .Range("F3")
            lo.ListColumns(.Range("E4").Value).DataBodyRange(loRow) = .Range("F4")
        End If
    End With
        
End Sub

 

[mill6210]

That worked perfectly! Thank you sir.

 

[Alex Blakenburg]

Thanks for letting me know. Glad I could help.