Macro to select Row as well as any particular column

[RAJESH1960]

Hello,
Sheets("Sheet1").Activate
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Range("A2").Select

This formula selects and replaces & in the column D
I want it to select the first full row also along with column D
what is the code to be added and where.?

 

[RAJESH1960]

Sorry, Just got a little confused. There are 2 similar codes in the Macro. One in the beginning and one in the end.
1. Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
2.
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
It should replace twice, so that in the end the data is at its original display.

 

[Fluff]

Did the code I supplied do what you wanted?

 

[RAJESH1960]

Do you have the code laid out as per post#5, or in one line like your quote in in post#6?

Sorry. Just got a little confused. I have 2 codes in the macro one to replace & with & and the other to replace & to &. So that the orginal data stays the same after import.
1.
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
2.
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

 

[Fluff]

That is nothing more than a duplicate of post#11
Please answer my question.

 

[RAJESH1960]

Sorry. Just got a little confused. I have 2 codes in the macro one to replace & with & and the other to replace & to &. So that the orginal data stays the same after import.
1.
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
2.
Columns("D:D").Select
Selection.Replace What:="&", Replacement:="&", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Let me try again

 

[RAJESH1960]

Do you have the code laid out as per post#5, or in one line like your quote in in post#6?

 

[RAJESH1960]

Sorry, Fluff, I am not getting you.

 

[Fluff]

Take the code form post#5 & run it (without changing anything) & see if it does what you want.

 

[Fluff]

This will do both replacements

Sub Rajesh()
   With Union(Sheets("sheet1").Range("1:1"), Sheets("Sheet1").Range("D:D"))
      .Replace "&", "&amp", xlPart, , False, , False, False
   End With
   'do something
   With Union(Sheets("sheet1").Range("1:1"), Sheets("Sheet1").Range("D:D"))
      .Replace "&amp", "&", xlPart, , False, , False, False
   End With
End Sub

 

[RAJESH1960]

With Union(Sheets("SalesData").Range("1:1"), Sheets("SalesData").Range("D:D"))
.Replace "&amp", "&", xlPart, , False, , False, False
End With
The name of the sheet is SalesData. As there were multiple sheets I selected a common name. When I run F8, it doesn't replace & with &