Find and Replace with condition

Closed
smuneeb Posts 67 Registration date Saturday September 5, 2015 Status Member Last seen March 8, 2017 - Apr 24, 2016 at 01:09 AM
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 - Apr 25, 2016 at 12:16 PM
Hello,
I would like to ask that in the Range D11 to D510 of all sheets in workbook find "." and replace with ". "

If in the above mention range ". " find then their would be no replacement

Thanks Regards


Related:

2 responses

TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 555
Apr 25, 2016 at 11:25 AM
Hi Smuneeb,

Try this:
Select your range.
Right-click sheets tab and select "Select all sheets".
Hit Ctrl+H to open find and replace.
Enter your criteria and hit OK.

Works for me.

Best regards,
Trowa
smuneeb Posts 67 Registration date Saturday September 5, 2015 Status Member Last seen March 8, 2017 1
Apr 25, 2016 at 11:59 AM
Hi
Trowa
I think you are not happy with me.
Ok No Problem, if I did something wrong with you then I apologies
I request for Macro
but Thanks for your reply

Regards
Muneeb
TrowaD Posts 2921 Registration date Sunday September 12, 2010 Status Moderator Last seen December 27, 2022 555
Apr 25, 2016 at 12:16 PM
Hi Muneeb,

No problems here. But you didn't mention anything about a macro in your original post.

Here you go:
Sub RunMe()
Dim ws As Worksheet
For Each ws In Worksheets
    ws.Range("D11:D510").Replace What:=".", Replacement:=vbNullString, _
    LookAt:=xlPart, MatchCase:=False
Next
End Sub


Best regards,
Trowa