looking up cell in vba to paste extra data in that row

[B-Man]

I currently have some vba code that opens another workbook and sheet, finds the last row and pastes the data in the blank row below.

 With wsDest.Range("A" & wsDest.Rows.Count).End(xlUp).Offset(1, 0) ' Find Column A last row + 1 to paste data
                    
                .Value = wsSource.Range("C3").Value                       ' (A) Batch
                .Offset(0, 1).Value = wsSource.Range("C2").Value          ' (B) Date
                .Offset(0, 2).Value = wsSource.Range("C4").Value          ' (C) Input

Im trying to add some code in another macro to lookup the sheet/column wsDest.Range("A:A") and find the wsSource.Range("C3").Value (Batch Number) that was pasted earlier so I can paste more data in that row. but struggling trying to get vba to somehow match wsSource.Range("C3")with the value in wsDest.Range("A:A") and select it so I can reference it to offset that cell to paste more data.

 

[MARK858]

Maybe something like the code below

Sub Findit()
    Dim FoundCell As Range
    
    Set FoundCell = wsDest.Range("A:A").Cells.Find(wsSource.Range("C3"), , xlValues, xlWhole, , xlNext)
    
    If Not FoundCell Is Nothing Then
        FoundCell.Offset(, 10).Value = "your value" 'change offset to suit and "your value" to your pasted data
    Else
        MsgBox "cell not found"
    End If
End Sub

 

[B-Man]

Champion. that works. Only spent 5 hours on that will match it to suit my code now.

 

[MARK858]

You're welcome