Hello,
Take an excel document, name the cell H3 as "test" (without " ")
Put "tes" (without " ") in the cell F3 as a cell value
The aim of the sub, is to take the F3.Value, and the range H1:H100, and find the value of the cell H3.
I find a code to find the value, but not with the cell name information (the one in F3) :
Can you help me to find the correct way to do it ?
Thanks you
Take an excel document, name the cell H3 as "test" (without " ")
Put "tes" (without " ") in the cell F3 as a cell value
The aim of the sub, is to take the F3.Value, and the range H1:H100, and find the value of the cell H3.
I find a code to find the value, but not with the cell name information (the one in F3) :
Code:
Sub Bouton1_Cliquer()
Dim FindString As String
Dim Rng As Range
FindString = InputBox("Enter a Search value")
If Trim(FindString) <> "" Then
With Sheets("Feuil1").Range("H:H")
Set Rng = .Find(What:=FindString, _
After:=.Cells(1), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlPrevious, _
MatchCase:=False)
If Not Rng Is Nothing Then
Application.Goto Rng, True
Else
MsgBox "Nothing found"
End If
End With
End If
End Sub
Can you help me to find the correct way to do it ?
Thanks you