Note: The other languages of the website are Google-translated. Back to English
Support is Online
We're back! We are here to assist you. Please be patient, we will respond to your tickets shortly.
Official support hours
Monday To Friday
From 09:00 To 17:30
  Monday, 25 October 2021
  1 Replies
  2.5K Visits
0
Votes
Undo
Hey!
I am trying to change more then 1 column with data at once.
I am using the VBE macro u see below. When i use it i mark the space i want to mark using this ($D$2:$E$10 but i don't get the 2nd popup where i write down the data i want to change to.

I make an 'Modul' first to place the macro in, is that right?

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
9 months ago
·
#2341
0
Votes
Undo
Hi Benny,

Sorry for the late reply. When you run the code and don't get the 2nd popup where you write down the data you want to change to, please try to click on the window of your excel, the popup should come out then.

Amanda
  • Page :
  • 1
There are no replies made for this post yet.