replace with cell reference

[dheeraj27]

i want to replace things with reference of cell for example:-

Find value in B2
replace with value in C2

in whole sheet

 

[Andrew Poulsom]

Select a single cell on your worksheet and activate the Replace dialog. Right click B2 and choose Copy. In the Find what box press Ctrl+v. Right click C2 and select Copy. In the Replace with dialog press Ctrl+v. Then click Replace All.

 

[kevatarvind]

TRY BELOW CODE

Sub Replace()
Dim old As Variant
old = Application.InputBox("Enter Value of Range-B2 Or Select")
Set ne = Range("C2")
If IsNumeric(old) Then
old = Int(Val(old))
Else
old = old
End If
For Each cell In ActiveSheet.UsedRange
If cell.Value = old Then cell.Value = ne.Value
Next
End Sub

 

[dheeraj27]

it is nt working...

it gives the pop-up to enter the value ,, but nthing happen after that.

 

[kevatarvind]

ADVERTISEMENT

it is nt working...

it gives the pop-up to enter the value ,, but nthing happen after that.

can you pls provide data some and where are using this code bcoz this same code is working in mine file after i tried then given to you

 

[dheeraj27]

its working.. i was trying it wrong, i was nt entreing the value i put in B2


i can u make it in the way.. when i can macro, it doest ask for input.. it change whatover B2 to C2...

i mean no inputbox

 

[kevatarvind]

its working.. i was trying it wrong, i was nt entreing the value i put in B2


i can u make it in the way.. when i can macro, it doest ask for input.. it change whatover B2 to C2...

i mean no inputbox

if you dont want to put value in input box you can also select that cell using mouse or cursor