Popular Keywords

Excel Tutorials | Macros Code

Home
Macros Code

Add A-Z Alphabets in a Range

Sub addsAlphabets1() Dim i As Integer For i = 65 To 90 ActiveCell.Value = Chr(i) ActiveCell.Offset(1, 0).Select Next i End Sub Sub addsAlphabets2() Dim i

Calculate the Cube Root

Sub getCubeRoot() Dim rng As Range Dimi As Integer For Each rng In Selection If WorksheetFunction.IsNumber(rng) Then rng.Value = rng ^ (1 / 3) Else

Convert all Formulas into Values

Sub convertToValues() Dim MyRange As Range Dim MyCell As Range Select Case _ MsgBox(“You Can’t Undo This Action. ” _ & “Save Workbook First?”, vbYesNoCancel,

Calculate the Square Root

Sub getSquareRoot() Dim rng As Range Dim i As Integer For Each rng In Selection If WorksheetFunction.IsNumber(rng) Then rng.Value = Sqr(rng) Else End If Next

Sub GoalSeekVBA() Dim Target As Long On Error GoTo Errorhandler Target = InputBox(“Enter the required value”, “Enter Value”) Worksheets(“Goal_Seek”).Activate With ActiveSheet.Range(“C7”) .GoalSeek_ Goal:=Target, _ ChangingCell:=Range(“C2”)

VBA Code to Search on Google

Sub SearchWindow32() Dim chromePath As String Dim search_string As String Dim query As String query = InputBox(“Enter here your search here”, “Google Search”) search_string =

Activate Data Entry Form

Sub DataForm() ActiveSheet.ShowDataForm End Sub There is a default data entry form which you can use for data entry.

Insert a Linked Picture

Sub LinkedPicture() Selection.Copy ActiveSheet.Pictures.Paste(Link:=True).Select End Sub How to Insert a Linked Picture using VBA macro code This VBA code will convert your selected range into

Use Text to Speech

Sub Speak() Selection.Speak End Sub VBA code to Use Text to Speech in Excel: Just select a range and run this code. Excel will speak

Convert Range into an Image

Sub PasteAsPicture() Application.CutCopyMode = False Selection.Copy ActiveSheet.Pictures.Paste.Select End Sub How to Convert Range into an Image through VBA macro code? Paste selected range as an

Create a Table of Content

Sub TableofContent() Dim i As Long On Error Resume Next Application.DisplayAlerts = False Worksheets(“Table of Content”).Delete Application.DisplayAlerts = True On Error GoTo 0 ThisWorkbook.Sheets.Add Before:=ThisWorkbook.Worksheets(1)

Save Selected Range as a PDF

Sub HideSubtotals() Dim pt As PivotTable Dim pf As PivotField On Error Resume Next Set pt = ActiveSheet.PivotTables(ActiveCell.PivotTable.name) If pt Is Nothing Then MsgBox “You

Free Excel Templates

Welcome to Excel Templates – your ultimate destination for all things related to Excel! We pride ourselves on being a comprehensive, 100% free platform dedicated to providing top-notch, easily editable Excel templates, step-by-step tutorials, and useful macro codes. With fresh templates uploaded daily, we aim to meet every conceivable Excel need you may have. Whether you’re a student, a business professional, or someone looking to make sense of their data, our range of templates has you covered. Dive into the world of Excel Templates today and transform your number-crunching experience into an effortless journey of discovery and efficiency. Join our growing community and elevate your Excel game now.

Blogs

DMCA Policy

Site Map