Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro
I need to protect this sheet and tried the
ActiveSheet.Unprotect(at begining) and ActiveSheet.Protect (at end) and it did not work? I also wanted to eliminate the first prompt by making the first Default any number other than zero? Thank you for any assistance you can give. Dim vResult1 As Variant Dim vResult2 As Variant vResult1 = Application.InputBox( _ Prompt:="Enter Row Number to Replace", _ Default:=20, _ Title:="Replacer", _ Type:=1) If vResult1 = False Then Exit Sub 'user cancelled vResult2 = Application.InputBox( _ Prompt:="Enter Replacement Row Number", _ Default:=21, _ Title:="Replacer", _ Type:=1) If vResult2 = False Then Exit Sub 'user cancelled With Range ("A3:AF3,B7:AC7,B11:AF11,B15:AE15,B19:AF19,B23:AE2 3,B27:AF2 7,B31:AF31," & _ "B35:AE35,B39:AF39,B43:AE43,B47:AF47") .Replace _ What:=vResult1, _ Replacement:=vResult2, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchCase:=False End With End Sub |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Macro
Your thread got stolen.
But you have a reply at your other post in .misc. Frank wrote: I need to protect this sheet and tried the ActiveSheet.Unprotect(at begining) and ActiveSheet.Protect (at end) and it did not work? I also wanted to eliminate the first prompt by making the first Default any number other than zero? Thank you for any assistance you can give. Dim vResult1 As Variant Dim vResult2 As Variant vResult1 = Application.InputBox( _ Prompt:="Enter Row Number to Replace", _ Default:=20, _ Title:="Replacer", _ Type:=1) If vResult1 = False Then Exit Sub 'user cancelled vResult2 = Application.InputBox( _ Prompt:="Enter Replacement Row Number", _ Default:=21, _ Title:="Replacer", _ Type:=1) If vResult2 = False Then Exit Sub 'user cancelled With Range ("A3:AF3,B7:AC7,B11:AF11,B15:AE15,B19:AF19,B23:AE2 3,B27:AF2 7,B31:AF31," & _ "B35:AE35,B39:AF39,B43:AE43,B47:AF47") .Replace _ What:=vResult1, _ Replacement:=vResult2, _ LookAt:=xlPart, _ SearchOrder:=xlByRows, _ MatchCase:=False End With End Sub -- Dave Peterson |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro recorded... tabs & file names changed, macro hangs | Excel Worksheet Functions | |||
Macro Help Needed - Excel 2007 - Print Macro with Auto Sort | Excel Worksheet Functions | |||
how to count/sum by function/macro to get the number of record to do copy/paste in macro | Excel Programming | |||
macro to delete entire rows when column A is blank ...a quick macro | Excel Programming | |||
Start Macro / Stop Macro / Restart Macro | Excel Programming |