a cell with a formula Free Excel Macros (VBA) | Excel Programs

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Option Explicit

Type RangeCellInfo
    CellContent As Variant
    CellAddress As String
End Type

Public OrgWB As Workbook
Public OrgWS As Worksheet
Public OrgCells() As RangeCellInfo

Sub EditRange()
Dim i As Integer, cl As Range
    If TypeName(Selection)  "Range" Then Exit Sub
    Application.ScreenUpdating = False
    ReDim OrgCells(Selection.Count)
    Set OrgWB = ActiveWorkbook
    Set OrgWS = ActiveSheet
    i = 1
    For Each cl In Selection
        OrgCells(i).CellContent = cl.Formula
        OrgCells(i).CellAddress = cl.Address
        i = i + 1
    Next cl
    Selection.Formula = "X"
    If Application.International(xlCountrySetting) = 47 Then
        Application.OnUndo "Angre endringer utført av makroen", "UndoEditRange"
    Else
        Application.OnUndo "Undo the latest macro", "UndoEditRange"
    End If
End Sub

Sub UndoEditRange()
Dim i As Integer
    Application.ScreenUpdating = False
    On Error GoTo NoWBorWS
    OrgWB.Activate
    OrgWS.Activate
    On Error GoTo 0
    
    For i = 1 To UBound(OrgCells)
        Range(OrgCells(i).CellAddress).Formula = OrgCells(i).CellContent
    Next i
    Set OrgWB = Nothing
    Set OrgWS = Nothing
    Erase OrgCells
NoWBorWS:
End Sub

No	Macro Name
1	a cell with a formula
2	Identify and select only empty cells in the selected area
3	deletes empty rows below the active cell
4	to assign a value to another sheet / page without selecting a formulated cell
5	do I roll with a macro (r1c1 style)?
6	Protecting All Cells with Formulas: You can use this code to protect the cell with the formula with a single click.
7	Square Root Calculator: You can use this code to calculate the square root without applying a formula. checks all selected cells and converts numbers to square.
8	Calculate Cube Root: You can use this code to calculate the cube root without applying a formula. Checks all selected cells and converts numbers to cube roots.
9	Replace Empty Cells with Zeros: You can add zeros to data where you have empty cells. The formula makes it easier to use and use these cells in advanced accounts.
10	Selecting only numbers in the selected field (selecting only manually entered numbers without formulas)
11	select rows in column delete empty ones
12	Modify formulas inside cells using macros
13	record into an existing book
14	Increase the value within the cell by looking at the number value or assign its formula by number value
15	gathering multiple names under one name with spending
16	formulated cell colored
17	leads to the last row without data
18	excel fonts
19	collect certain cells on separate sheet / pages
20	prints the path and name of the file to the cell

Excel Free Macros (VBA)

A Cell With A Formula

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords