Scribd Logo
Upload

Welcome to Scribd!

  • 44 views

    Excel Macro Examples: Copy and Paste A Row From One Sheet To Another

    Uploaded by

    Phan Minh
    This document provides examples of basic Excel macros for common automation tasks such as copying data between worksheets, sending emails, listing and hiding/unhiding worksheets, protecting/unprotecting worksheets, deleting rows and shapes, and highlighting cells with specific content like duplicates, negatives, or blanks. The macros each demonstrate a short VBA code to automate a simple repetitive task.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd

    Excel Macro Examples: Copy and Paste A Row From One Sheet To Another

    Uploaded by

    Phan Minh
    44 views6 pages
    This document provides examples of basic Excel macros for common automation tasks such as copying data between worksheets, sending emails, listing and hiding/unhiding worksheets, protecting/unprotecting worksheets, deleting rows and shapes, and highlighting cells with specific content like duplicates, negatives, or blanks. The macros each demonstrate a short VBA code to automate a simple repetitive task.

    Original Title

    Excel Macro Examples

    Copyright

    © © All Rights Reserved

    Available Formats

    DOCX, PDF, TXT or read online from Scribd

    Did you find this document useful?

    Is this content inappropriate?

    This document provides examples of basic Excel macros for common automation tasks such as copying data between worksheets, sending emails, listing and hiding/unhiding worksheets, protecting/unprotecting worksheets, deleting rows and shapes, and highlighting cells with specific content like duplicates, negatives, or blanks. The macros each demonstrate a short VBA code to automate a simple repetitive task.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    44 views6 pages

    Excel Macro Examples: Copy and Paste A Row From One Sheet To Another

    Uploaded by

    Phan Minh
    This document provides examples of basic Excel macros for common automation tasks such as copying data between worksheets, sending emails, listing and hiding/unhiding worksheets, protecting/unprotecting worksheets, deleting rows and shapes, and highlighting cells with specific content like duplicates, negatives, or blanks. The macros each demonstrate a short VBA code to automate a simple repetitive task.

    Copyright:

    © All Rights Reserved
    Download as DOCX, PDF, TXT or read online from Scribd
    Download as docx, pdf, or txt
    of 6

    Excel Macro Examples

    Below you will find a list of basic macro examples for common Excel automation tasks.
     
    Copy and Paste a Row from One Sheet to Another
    This super simple macro will copy a row from one sheet to another.

    Sub Paste_OneRow()

    'Copy and Paste Row


    Sheets("sheet1").Range("1:1").Copy Sheets("sheet2").Range("1:1")

    Application.CutCopyMode = False

    End Sub

    Send Email
    This useful macro will launch Outlook, draft an email, and attach the ActiveWorkbook.

    Sub Send_Mail()
    Dim OutApp As Object
    Dim OutMail As Object
    Set OutApp = CreateObject("Outlook.Application")
    Set OutMail = OutApp.CreateItem(0)
    With OutMail
    .to = "[email protected]"
    .Subject = "Test Email"
    .Body = "Message Body"
    .Attachments.Add ActiveWorkbook.FullName
    .Display
    End With
    Set OutMail = Nothing
    Set OutApp = Nothing
    End Sub
    List All Sheets in Workbook
    This macro will list all sheets in a workbook.

    Sub ListSheets()

    Dim ws As Worksheet
    Dim x As Integer

    x = 1

    ActiveSheet.Range("A:A").Clear

    For Each ws In Worksheets


    ActiveSheet.Cells(x, 1) = ws.Name
    x = x + 1
    Next ws

    End Sub

    Unhide All Worksheets


    This macro will unhide all worksheets.

    ' Unhide All Worksheets


    Sub UnhideAllWoksheets()
    Dim ws As Worksheet

    For Each ws In ActiveWorkbook.Worksheets


    ws.Visible = xlSheetVisible
    Next ws

    End Sub

    Hide All Worksheets Except Active


    This macro will hide all worksheets except the active worksheet.
    ' Hide All Sheets Except Active Sheet
    Sub HideAllExceptActiveSheet()
    Dim ws As Worksheet

    For Each ws In ThisWorkbook.Worksheets


    If ws.Name <> ActiveSheet.Name Then ws.Visible = xlSheetHidden
    Next ws

    End Sub

    Unprotect All Worksheets


    This macro example will unprotect all worksheets in a workbook.

    ' UnProtect All Worksheets


    Sub UnProtectAllSheets()
    Dim ws As Worksheet

    For Each ws In Worksheets


    ws.Unprotect "password"
    Next ws

    End Sub

    Protect All Worksheets


    This macro will protect all worksheets in a workbook.

    ' Protect All Worksheets


    Sub ProtectAllSheets()
    Dim ws As Worksheet

    For Each ws In Worksheets


    ws.protect "password"
    Next ws
    End Sub

    Delete All Shapes


    This macro will delete all shapes in a worksheet.

    Sub DeleteAllShapes()

    Dim GetShape As Shape

    For Each GetShape In ActiveSheet.Shapes


    GetShape.Delete
    Next

    End Sub

    Delete All Blank Rows in Worksheet


    This example macro will delete all blank rows in a worksheet.

    Sub DeleteBlankRows()
    Dim x As Long

    With ActiveSheet
    For x = .Cells.SpecialCells(xlCellTypeLastCell).Row To 1 Step -1
    If WorksheetFunction.CountA(.Rows(x)) = 0 Then
    ActiveSheet.Rows(x).Delete
    End If
    Next
    End With

    End Sub

    Highlight Duplicate Values in Selection


    Use this simple macro to highlight all duplicate values in a selection.

    ' Highlight Duplicate Values in Selection


    Sub HighlightDuplicateValues()
    Dim myRange As Range
    Dim cell As Range

    Set myRange = Selection

    For Each cell In myRange


    If WorksheetFunction.CountIf(myRange, cell.Value) > 1 Then
    cell.Interior.ColorIndex = 36
    End If
    Next cell
    End Sub

    Highlight Negative Numbers


    This macro automates the task of highlighting negative numbers.

    ' Highlight Negative Numbers


    Sub HighlightNegativeNumbers()
    Dim myRange As Range
    Dim cell As Range

    Set myRange = Selection

    For Each cell In myRange


    If cell.Value < 0 Then
    cell.Interior.ColorIndex = 36
    End If
    Next cell
    End Sub

    Highlight Alternate Rows


    This macro is useful to highlight alternate rows.

    ' Highlight Alternate Rows


    Sub highlightAlternateRows()
    Dim cell As Range
    Dim myRange As Range

    myRange = Selection

    For Each cell In myRange.Rows


    If Not Application.CheckSpelling(Word:=cell.Text) Then
    cell.Interior.ColorIndex = 36
    End If
    Next cell
    End Sub

    Highlight Blank Cells in Selection


    This basic macro highlights blank cells in a selection.

    ' Highlight all Blank Cells in Selection


    Sub HighlightBlankCells()
    Dim rng As Range

    Set rng = Selection


    rng.SpecialCells(xlCellTypeBlanks).Interior.Color = vbCyan

    End Sub

    You might also like