Merge Cells Over A Range Using For Each Loop

Merge Cells Over A Range Using For Each Loop


Sub Merge_Cells_Over_A_Range()

    ThisWorkbook.Activate

    shtDashboard.Activate

    Dim rng As Range, r As Range

    Set rng = Range("B13:B153")

    For Each r In rng

        r.Resize(1, 3).Merge

    Next r

End Sub


Comments

Post a Comment

Popular posts from this blog

Power Automate - Automatically fetch data from Power BI in to Excel and Send the copy of the Excel file via Email

Image
Power Automate - Automatically fetch data from Power BI in to Excel and Send the copy of the Excel file via Email Step-1 Step-2 Step-3 Using Command text we can make changes in the data we fetch from the Power BI. Like add fields/columns, filter data, rename columns. It is a DAX formula. Step-4 Step-5      Step-6 Step-7 Posting message on Teams. We can post message to a Teams Group  also by selecting Group chat from Post in and select the Teams Group from the Group chat  dropdown that will appear after making selection. Step-8 Location:  We need to select the Group  on SharePoint in which our file is located. Document Library: We need to select the Documents option from the dropdown. File: Select the file on which you want to run the script. Script: Select the script to perform the desired action. Step-9 Step-10 Step-11 Using Filter Query  we can decide which file properties we want to get. We are performing this step to attach excel as an attach...
Read more

VBA Outlook - Convert Early Binding to Late Binding

Early Binding First establish the reference with the outlook library by going to 'Tools' Tab then Click on 'References', from the available reference Select the "Microsoft Outlook 16.0 Object Library", 16.0 could be 14.0 or 15.0 basis on the version of the Microsoft Office in your system. Dim oApp as Outlook.Application Dim oEmail as Outlook.MailItem Dim oNS as Outlook.NameSpace Set oApp=New Outlook.Application Set oEmail=oApp.CreateItem(olMailItem) Set oNS=oApp.GetNamespace("MAPI")  oEmail.SendUsingAccout=oNS.Accounts.Item(1) 'To send email from a specific account. Late Binding No need to establish relationship with any library. Dim oApp as Object Dim oEmail as Object Dim oNS as Object Set oApp=CreateObject("Outlook.Application") Set oEmail=oApp.CreateItem(0) Set oNS=oApp.GetNamespace("MAPI") oEmail.SendUsingAccount=oNS.Accounts.Item(1) 'To send email from a specific account.
Read more

Split Numbers into Whole part and Decimal part without using the Round() Function

Suppose 12.34 is written in Cell A1 on Sheet1 and we want to split it into whole number and decimal number without using the round function. We can do this using Trunc() formula.  Trunc() formula removes the decimal part and gives us only the whole part (Integer Number). For the whole part: Type formula in cell B1 '=Trunc(A1)' (Copy whatever is between quotes) This will give 12 For the decimal part: Type formula in Cell C1 '=A1-Trunc(A1)' (Copy whatever is between quotes) This will give 0.34 . The logic behind this is: A1 has 12.34 , A1-Trunc(A1) contains 12.34 - 12 which gives us 0.34 as a final result.
Read more