Undo cells with 0 Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Type SaveRange
        Val As Variant
        Addr As String
    End Type
    
'   Stores info about current selection
    Public OldWorkbook As Workbook
    Public OldSheet As Worksheet
    Public OldSelection() As SaveRange

Sub ZeroRange()
'   Inserts zero into all selected cells

'   Abort if a range isn't selected
    If TypeName(Selection)  "Range" Then Exit Sub
    
'   The next block of statements
'   Save the current values for undoing
    ReDim OldSelection(Selection.Count)
    Set OldWorkbook = ActiveWorkbook
    Set OldSheet = ActiveSheet
    i = 0
    For Each cell In Selection
        i = i + 1
        OldSelection(i).Addr = cell.Address
        OldSelection(i).Val = cell.Formula
    Next cell
            
'   Insert 0 into current selection
    Application.ScreenUpdating = False
    Selection.Value = 0
    
'   Specify the Undo Sub
    Application.OnUndo "Undo the ZeroRange macro", "UndoZero"
End Sub

Sub UndoZero()
'   Undoes the effect of the ZeroRange sub
    
'   Tell user if a problem occurs
    On Error GoTo Problem

Application.ScreenUpdating = False
    
'   Make sure the correct workbook and sheet are active
    OldWorkbook.Activate
    OldSheet.Activate
    
'   Restore the saved information
    For i = 1 To UBound(OldSelection)
        Range(OldSelection(i).Addr).Formula = OldSelection(i).Val
    Next i
    Exit Sub

'   Error handler
Problem:
    MsgBox "Can't undo"
End Sub

No	Macro Name
1	Undo cells with 0
2	a cell with a formula
3	excel operators hk
4	specify the number of copies to print from the printer
5	Search for a word in 30 excel files
6	excel fonts 2
7	status bar macro with a message waiting
8	send alert e-mail from microsoft outlook
9	inserts months as sheet / pages Specifies days in detail
10	backup
11	entering formula with message box
12	Inputbox add year as summer
13	class module retrieval
14	a .bat file from a floppy disk
15	Write numbers to a1: a5 and give warnings to c1 if their sum is not 100
16	prints cells with data
17	inserts and deletes annotations with the date and time in the active sheet / page
18	delete from listbox with double click
19	get total in status bar (collects selected with mouse)
20	excel fonts

Excel Free Macros (VBA)

Undo Cells With 0

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords