Related:
- Update of Copied Excel sheet
- How to copy data from one excel sheet to another - Guide
- Excel hyperlink to another sheet - Guide
- Excel move data from one sheet to another - Guide
- Excel mod apk for pc - Download - Spreadsheets
- Microsoft store update download - Download - App downloads
2 responses
TrowaD
Posts
2921
Registration date
Sunday 12 September 2010
Status
Contributor
Last seen
27 December 2022
555
21 Mar 2019 à 12:47
21 Mar 2019 à 12:47
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
