Roballistic
New Member
- Joined
- Jan 14, 2021
- Messages
- 11
- Office Version
- 365
- Platform
- Windows
Code throwing error:
OpenBook.Sheets(1).Range("I27:I526").Copy 'Copies Medical Plan Selection Column
ThisWorkbook.Worksheets("SMARTTemplate").Range("J2").PasteSpecial xlPasteValues 'Pastes copied values to new sheet
ThisWorkbook.Worksheets("SMARTTemplate").Range("J2:J501").Replace What:="Waive", Replacement:="WAIVE" 'Replaces any value within the copied data having value of "Waive" to all capitals "WAIVE"
ThisWorkbook.Worksheets("SMARTTemplate").Range("J2:J501").Replace What:<>"Waive", Replacement:="""" 'Compile error received on <>. I need the code to to look across the range and where there is anything not labeled "WAIVE" to replace whatever is in those cells to "ENROLL". And also need the blanks skipped.
Any help or suggestions are appreciated.
OpenBook.Sheets(1).Range("I27:I526").Copy 'Copies Medical Plan Selection Column
ThisWorkbook.Worksheets("SMARTTemplate").Range("J2").PasteSpecial xlPasteValues 'Pastes copied values to new sheet
ThisWorkbook.Worksheets("SMARTTemplate").Range("J2:J501").Replace What:="Waive", Replacement:="WAIVE" 'Replaces any value within the copied data having value of "Waive" to all capitals "WAIVE"
ThisWorkbook.Worksheets("SMARTTemplate").Range("J2:J501").Replace What:<>"Waive", Replacement:="""" 'Compile error received on <>. I need the code to to look across the range and where there is anything not labeled "WAIVE" to replace whatever is in those cells to "ENROLL". And also need the blanks skipped.
Any help or suggestions are appreciated.