VBA Find/Replace but have input box for replacement value

[Knockoutpie]

Hi all,

is there a way to have the below code prompt for user input for the replacement value?

The below is basically searching the entire sheet for "$1" and replacing it with "$2"

But I was wondering if there was a way to search "$numerical value" and replace with "$inputboxvalue"

Sub Macro1()
'
' Macro1 Macro
'

'
    Cells.Replace What:="$1", Replacement:="$2", LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True, _
        FormulaVersion:=xlReplaceFormula2
End Sub

 

[Micron]

maybe

Sub Macro1()
Dim strInput As String

strInput = InputBox("Enter replacement value")
If strInput <> "" Then
    Cells.Replace What:="$1", Replacement:=strInput, LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True, _
        FormulaVersion:=xlReplaceFormula2
End If

End Sub

 

[Knockoutpie]

maybe

Sub Macro1()
Dim strInput As String

strInput = InputBox("Enter replacement value")
If strInput <> "" Then
    Cells.Replace What:="$1", Replacement:=strInput, LookAt:=xlPart, SearchOrder _
        :=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=True, _
        FormulaVersion:=xlReplaceFormula2
End If

End Sub

Thank you! Do you know if there’s a way to search for “$numerical value” instead of specifying “$1”?

 

[Micron]

If I understand the question, then basically the same method. strInput is a reference to a value provided by an input box. All you should need is a reference to the numerical value, but I have no idea what that is in your situation. Is that something that is in a cell on a sheet?

 

[Knockoutpie]

If I understand the question, then basically the same method. strInput is a reference to a value provided by an input box. All you should need is a reference to the numerical value, but I have no idea what that is in your situation. Is that something that is in a cell on a sheet?

I ended up putting the value into a cell and having the cell be refrenced in the "find", so when i replace the value on the whole sheet it also replaces the cell value.