KEMBAR78
VBA Macros | PDF
Scribd
Upload
41 views1 page

VBA Macros

These macros provide formatting and data manipulation functions: one formats numbers with no decimals and thousands separators, one transposes and pastes values, one replaces formulas with values, and one toggles display of gridlines on and off. Each macro contains comments describing its purpose and functionality in 1-2 sentences.

Uploaded by

roundgaf
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
41 views1 page

VBA Macros

These macros provide formatting and data manipulation functions: one formats numbers with no decimals and thousands separators, one transposes and pastes values, one replaces formulas with values, and one toggles display of gridlines on and off. Each macro contains comments describing its purpose and functionality in 1-2 sentences.

Uploaded by

roundgaf
Copyright
© © All Rights Reserved
We take content rights seriously. If you suspect this is your content, claim it here.
Available Formats
Download as TXT, PDF, TXT or read online on Scribd
You are on page 1/ 1

' Macro to Format Numbers

Sub FormatNumbers()
' This macro formats the selected numbers to have no decimal places
' and uses a space as a thousand separator
With Selection
.NumberFormat = "#,##0"
End With
End Sub

' Macro to Transpose and Paste Values


Sub TransposePasteValues()
' This macro transposes and pastes copied data
' Ensure the data is copied before running this macro
Range("C3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=True
End Sub

' Macro to Replace Formulas with Values


Sub ReplaceFormulasWithValues()
' This macro replaces the formulas in the selected cells with their current
values
With Selection
.Value = .Value
End With
End Sub

' Macro to Toggle Gridlines


Sub ToggleGridlines()
' This macro toggles gridlines on or off based on their current state
With ActiveWindow
.DisplayGridlines = Not .DisplayGridlines
End With
End Sub

You might also like