Related:
- Update of Copied Excel sheet
- Comparing columns in two different excel sheets and if they match copying third column ✓ - Forum - Excel
- Auto notify of email when excel sheet updated ✓ - Forum - Excel
- Excel - Be notified by mail when shared workbook is updated - How-To - Excel
- How to automatically update data in another sheet in excel ✓ - Forum - Excel
- Generate Email Notifications for Excel Sheet Updates - How-To - Excel
2 replies
TrowaD
- Posts
- 2670
- Registration date
- Sunday September 12, 2010
- Status
- Moderator
- Last seen
- October 22, 2020
Hi Vinayak,
Could you give the following code a try and see how that works out for you? Keep in mind that actions done by macro's can't be reversed by using the blue arrows, so better test this on a copy of your workbook.
Here is the code:
After pasting the code in a standard module, you can go back to Excel and hit Alt+F8 to display available macro's. Clicking on the options button will allow you to create a shortcut button. I used CTRL+d.
The rows or columns need to be connected.
Best regards,
Trowa
Could you give the following code a try and see how that works out for you? Keep in mind that actions done by macro's can't be reversed by using the blue arrows, so better test this on a copy of your workbook.
Here is the code:
Sub RunMe()
Dim x, y As Integer, mCheck As Boolean, ws As Worksheet
If Selection.Columns.Count > 16383 Then
x = ActiveCell.Row
y = Selection.Rows.Count
ElseIf Selection.Rows.Count > 1048575 Then
x = ActiveCell.Column
y = Selection.Columns.Count
mCheck = True
Else
Exit Sub
End If
For Each ws In Worksheets
If mCheck = False Then ws.Rows(x & ":" & x + y - 1).Delete
If mCheck = True Then
ws.Select
Range(Columns(x), Columns(x + y - 1)).Delete
End If
Next ws
Sheets("Main").Select
End Sub
After pasting the code in a standard module, you can go back to Excel and hit Alt+F8 to display available macro's. Clicking on the options button will allow you to create a shortcut button. I used CTRL+d.
The rows or columns need to be connected.
Best regards,
Trowa