Modifica dati in colonne

Hey!
Sto cercando di modificare più di 1 colonna con i dati contemporaneamente.
Sto usando la macro VBE che vedi sotto. Quando lo uso, contrassegno lo spazio che voglio contrassegnare usando questo ($ D $ 2: $ E $ 10 ma non ottengo il secondo popup in cui scrivo i dati che voglio modificare.

Per prima cosa creo un "Modul" in cui inserire la macro, giusto?

Sub

MultiFindNReplace()

'Updateby Extendoffice

Dim

Rng 

As

Range

Dim

InputRng 

As

Range, ReplaceRng 

As

Range

xTitleId = 

"KutoolsforExcel"

Set

InputRng = Application.Selection

Set

InputRng = Application.InputBox(

"Original Range "

, xTitleId, InputRng.Address, Type:=8)

Set

ReplaceRng = Application.InputBox(

"Replace Range :"

, xTitleId, Type:=8)

Application.ScreenUpdating = 

False

For

Each

Rng 

In

ReplaceRng.Columns(1).Cells

InputRng.Replace what:=Rng.Value, replacement:=Rng.Offset(0, 1).Value

Next

Application.ScreenUpdating = 

True

End

Sub



I hope you understand what i mean.



Regards

Benny