status bar macro with a message waiting Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub RowsToColumns()
Dim rCol As Range
Dim rCell1 As Range, rCell2 As Range
Dim i As Integer, iPBcount As Integer
Dim Sht As Worksheet

Application.StatusBar = "Converting, please wait....!"
Application.ScreenUpdating = False
'Set range variable to Selection
Set Sht = ActiveSheet
Set rCol = Sht.UsedRange.Columns(1)
'Insert page breaks
     Sht.PageSetup.PrintArea = ""
     Sht.PageSetup.Zoom = 100
     ActiveWindow.View = xlPageBreakPreview

'Count only horizontal page breaks and pass to an Integer
iPBcount = Sht.HPageBreaks.Count

On Error Resume Next
 'Loop as many times as there horizontal page breaks.
    For i = 1 To iPBcount
        'Set variable 1 to  page break X
        Set rCell1 = Sht.HPageBreaks(i).Location
        'Set variable 2 to X page break
        Set rCell2 = Sht.HPageBreaks(i + 1).Location.Offset(-1, 0)
            If rCell2 Is Nothing Then 'Last page break
                Range(rCell1, rCol.Cells(65536, 1).End(xlUp)).Cut Destination:=Sht.Cells(1, i + 1)
            Else
                Range(rCell1, rCell2).Cut Destination:=Sht.Cells(1, i + 1)
            End If
        Set rCell1 = Nothing
        Set rCell2 = Nothing
    Next i
  On Error GoTo 0
  
  ActiveWindow.View = xlNormalView
  Application.ScreenUpdating = True
  Sht.DisplayPageBreaks = False
  Application.Goto rCol.Cells(1, 1), True
  Set rCol = Nothing
  Application.StatusBar = ""
End Sub

No	Macro Name
1	status bar macro with a message waiting
2	excel operators hk
3	receive a message with a macro
4	Show progress in status bar: You can use this macro to show the progress of a macro code in the status bar. This code will add up to 5000 serial numbers to your sheet / page and will progress along with the status bar.
5	calculating message in macro
6	specifies in detail how many formulas are in the book (on new sheet / page)
7	seconds message in statusbar
8	making a hold macro in the status bar
9	finds formulas on active sheet / page lists new sheet / page
10	list formulas on new sheet / page
11	active cell printing
12	printing and prompting
13	is the size of a file in bytes?
14	get total in status bar (collects selected with mouse)
15	Initialize the statusbar is also excellent
16	specifies in detail how many references the book contains (on new sheet / page)
17	count and message backwards from 10 in statusbar
18	specify file path and extension list in detail
19	excelin all menu pushbutton pictures
20	fonts in word

Excel Free Macros (VBA)

Status Bar Macro With A Message Waiting

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords