Skip to main content
Support is Offline
Today is our off day. We are taking some rest and will come back stronger tomorrow
Official support hours
Monday To Friday
From 09:00 To 17:30
  Wednesday, 05 February 2020
  1 Replies
  3.7K Visits
0
Votes
Undo
Dear Sir
I  need to 
-How To Find And Replace Text In sheet excel same CTRL+H with VBA
As I find https://www.extendoffice.com/documents/excel/1720-xcel-find-and-replace-chart-title.html  about Text box and chart 
IF I need "Find And Replace Text In sheet excel same CTRL+H with VBA"
Thank you
art
This code my revise not work refer
 Sub TextBoxReplace()
'Updateby20140603
Dim xWs As Worksheet
Dim xFindStr As String
Dim xReplace As String
Dim YY As String
xFindStr = Application.InputBox("Find:", xTitleId, "", Type:=2)
xReplace = Application.InputBox("Replace:", xTitleId, "", Type:=2)
Set xWs = Application.ActiveSheet
On Error Resume Next
For
Each YY In xWs.Worksheest("Sheet1").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next

Each YY In xWs.Worksheets("Sheet2").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet3").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next
Each YY In xWs.Worksheets("Sheet4").Range("A2:Z")
xValue = shp.TextFrame.Characters.Text
shp.TextFrame.Characters.Text = VBA.Replace(xValue, xFindStr, xReplace, 1)
Next



End Sub

3 years ago
·
#2071
0
Votes
Undo
Replace one value with another
The detailed steps follow below. Select the range of cells where you want to replace text or numbers. To replace character(s) across the entire worksheet, click any cell on the active sheet. Press the Ctrl + H shortcut to open the Replace tab of the Excel Find and Replace dialog.
  • Page :
  • 1
There are no replies made for this post yet.