4 Barrel Harold
New Member
- Joined
- Jun 15, 2018
- Messages
- 21
Hey Guys and Gals, 4BBL Harold here with a problem that Ineed help with.<o></o>
On my sheet that I’m working on, I have a delete buttonsetup, here is brief description of the sheet<o></o>
I have two columns of information, 1ST columnsrange is E:M and 2ND Column O:W<o></o>
The rows start at row 12 and end at row 54<o></o>
Now here is what I’m trying to accomplish, if I select “H34”at random and press my VBA delete button, I need it to delete E:M on row 34without effecting O:W on same row and if I were to select another random cellon another row like R50 and press the same button it would delete O:W on row 50 and move lowerrows up O:W without deleting anything in E:M same row<o></o>
<o> </o>
<o> </o>
Application.ScreenUpdating = False<o></o>
ActiveSheet.Unprotect<o></o>
Dim ldel As Long<o></o>
ldel = MsgBox("Are You Sure You Want To DELETE SELECTEDITEM?", vbQuestion + vbYesNo)<o></o>
If ldel <> vbYes Then Exit Sub<o></o>
ActiveCell.EntireRow.Delete Shift:=xlShiftDown ßThis is the row I need Help on<o></o>
ActiveSheet.Protect<o></o>
Application.ScreenUpdating = True<o></o>
On my sheet that I’m working on, I have a delete buttonsetup, here is brief description of the sheet<o></o>
I have two columns of information, 1ST columnsrange is E:M and 2ND Column O:W<o></o>
The rows start at row 12 and end at row 54<o></o>
Now here is what I’m trying to accomplish, if I select “H34”at random and press my VBA delete button, I need it to delete E:M on row 34without effecting O:W on same row and if I were to select another random cellon another row like R50 and press the same button it would delete O:W on row 50 and move lowerrows up O:W without deleting anything in E:M same row<o></o>
<o> </o>
<o> </o>
Application.ScreenUpdating = False<o></o>
ActiveSheet.Unprotect<o></o>
Dim ldel As Long<o></o>
ldel = MsgBox("Are You Sure You Want To DELETE SELECTEDITEM?", vbQuestion + vbYesNo)<o></o>
If ldel <> vbYes Then Exit Sub<o></o>
ActiveCell.EntireRow.Delete Shift:=xlShiftDown ßThis is the row I need Help on<o></o>
ActiveSheet.Protect<o></o>
Application.ScreenUpdating = True<o></o>