How to move to cells after finding a search value

[Feroz90]

Hi All,

I have Sheet 1 and Sheet 2, I have code to search a date from one sheet to another, but after I get my results, I want to add a formula in some of the cells in a row, like If I found the value in A10 in A:A, I wanted to add formulas in B10, D10, E10. Can anyone give me a code how to move cells after finding a search value.

[TMS]

I guess it would help if you shared the code you have and, ideally, a sample workbook.


Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

[Feroz90]

Hi,

Please find below the code.

Sub Find_First()
Dim FindString As Date
Dim Rng As Range
FindString = Sheets("Sheet1").Range("A1").Value
If Trim(FindString) <> "" Then
With Sheets("Sheet2").Range("A:A")
Set Rng = .Find(What:=FindString, _
After:=.Cells(.Cells.Count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Nothing found"
End If
End With
End If


End Sub

Thanks