I want to only find replace in the selected cells.
Following code only find replace change the first cell of the selected cells.
Can you please help?
Sub FormulaTab36()
Dim CMonth As Variant
Dim FirstM As Variant
CMonth = Sheets("000.Current month").Cells(6, 2).Value
FirstM = Sheets("000.Current month").Cells(59, 2).Value
'MsgBox CMonth
'MsgBox FirstM
Sheets("36.Graphs").Select
Sheets("36.Graphs").Range(FirstM & "34:" & "M34").Select
Call ReplaceMultipleTabs36
Sheets("36.Graphs").Range(FirstM & "88:" & "M88").Select
Call ReplaceMultipleTabs36
Sheets("36.Graphs").Range(FirstM & "141:" & "M141").Select
Call ReplaceMultipleTabs36
Sheets("36.Graphs").Range(FirstM & "215:" & "M215").Select
Call ReplaceMultipleTabs36
End Sub
Sub ReplaceMultipleTabs36()
Dim c As Range
Dim Opt As Variant
Dim Fnd36 As Variant
Dim RplAce36 As Variant
Fnd36 = Sheets("000.Current month").Cells(61, 2).Value
RplAce36 = Sheets("000.Current month").Cells(62, 2).Value
ActiveCell.Replace What:=Fnd36, Replacement:=RplAce36, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Find(What:=Fnd36, After:=ActiveCell, LookIn:= _
xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub
Following code only find replace change the first cell of the selected cells.
Can you please help?
Sub FormulaTab36()
Dim CMonth As Variant
Dim FirstM As Variant
CMonth = Sheets("000.Current month").Cells(6, 2).Value
FirstM = Sheets("000.Current month").Cells(59, 2).Value
'MsgBox CMonth
'MsgBox FirstM
Sheets("36.Graphs").Select
Sheets("36.Graphs").Range(FirstM & "34:" & "M34").Select
Call ReplaceMultipleTabs36
Sheets("36.Graphs").Range(FirstM & "88:" & "M88").Select
Call ReplaceMultipleTabs36
Sheets("36.Graphs").Range(FirstM & "141:" & "M141").Select
Call ReplaceMultipleTabs36
Sheets("36.Graphs").Range(FirstM & "215:" & "M215").Select
Call ReplaceMultipleTabs36
End Sub
Sub ReplaceMultipleTabs36()
Dim c As Range
Dim Opt As Variant
Dim Fnd36 As Variant
Dim RplAce36 As Variant
Fnd36 = Sheets("000.Current month").Cells(61, 2).Value
RplAce36 = Sheets("000.Current month").Cells(62, 2).Value
ActiveCell.Replace What:=Fnd36, Replacement:=RplAce36, _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:= _
False, ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Selection.Find(What:=Fnd36, After:=ActiveCell, LookIn:= _
xlFormulas2, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
End Sub