Find the given value from the on a column of table then replace it with the value that was given on a cell, its like Find and replace

[mark692]

i guys can you help me on my problem, I need a code that will find the number given on cell D2 on the column number and replace it with the value from cell D3. Here is the table below

Book1
	A	B	C	D	E	F	G	H	I
1
2			Value To Replace	11111				Group Letter	number
3			New Value	123				A	11111
4								B	6546
5								C	1561
6								E	65198494
7								F	9191
8								G	1616
9								H	13211
10								I	89849
11								J	11111
12								K	165132
13								L	1651
14								M	98491
15								N	1651
16								O	11111
17								P	98495
18								A	5944
19								B	126151
20								C	1111
21								E	1111
22								F	1561
23								G	1651
24								H	6894984
25								I	1111
Sheet1

 

[Takae]

Hope this helps.

Sub sampple()
Dim LR As Long
LR = Cells(Rows.Count, 8).End(xlUp).Row
Range("H2").AutoFilter 2, Range("D2").Value
If WorksheetFunction.Subtotal(3, Range("H:H")) > 1 Then
    Range(Range("I3"), Cells(LR, 9)).Value = Range("D3").Value
End If
Range("H2").AutoFilter
End Sub

 

[Peter_SSs]

its like Find and replace

Isn't it exactly Find/Replace?

Sub FindReplace()
  Columns("I").Replace What:=Range("D2").Value, Replacement:=Range("D3").Value, LookAt:=xlWhole
End Sub

 

[mark692]

Isn't it exactly Find/Replace?

Sub FindReplace()
  Columns("I").Replace What:=Range("D2").Value, Replacement:=Range("D3").Value, LookAt:=xlWhole
End Sub

oh yes its find and replac, thank you this code works

 

[Peter_SSs]

You're welcome. Thanks for the follow-up.