a macro with rows and columns Free Excel Macros (VBA) | Excel Programs

Copy Macro

'For online Excel courses click: https://www.excelsizeyeter.com/excelwithkenan.com/udemy_giris.php 
 
Sub Test()
    MsgBox FilteredRowsCount(ActiveSheet) & "  data was found."
    MsgBox FilteredRowsCount2(ActiveSheet) & " data was found."
End Sub

--------------------------------------------------------------------------------

Function FilteredRowsCount(ByVal Sh As Worksheet)
    Dim Target As Range
    Dim c As Range
    Dim i As Long
    'If the Filter is not used
    If Sh.FilterMode = False Then
        FilteredRowsCount = 0
        Exit Function
    End If
    Set Target = Sh.AutoFilter.Range
    For Each c In Target.SpecialCells(xlCellTypeVisible).Areas
        i = i + c.Rows.Count
    Next
    FilteredRowsCount = i - 1    '-1 stands for remove header row
End Function

--------------------------------------------------------------------------------

Function FilteredRowsCount2(ByVal Sh As Worksheet)
    Dim Target As Range
    'If the Filter is not used
    If Sh.FilterMode = False Then
        FilteredRowsCount2 = 0
        Exit Function
    End If
    Set Target = Sh.AutoFilter.Range
    FilteredRowsCount2 = _
    Target.Columns(1).SpecialCells(xlCellTypeVisible).Count - 1
End Function

No	Macro Name
1	a macro with rows and columns
2	status bar macro with a message waiting
3	excel operators hk
4	Insert Multiple Rows: After running this macro, you will need to enter an input box and enter the number of rows you want to insert.
5	change the message text written in macro
6	Specify row height and column width in cm
7	Remove Text Wrap: This code will help you remove text wrap across the entire worksheet with a single click. first selects all columns and then removes the text wrap and automatically fits all rows and columns.
8	conditional deletion with macro
9	delete duplicate / duplicate rows
10	VLOOKUP formula or function with 3 (three) parameters
11	selection of filled fields and finding the last filled cell
12	Highlight Specific Text: Suppose you have a large data set and want to control a specific value. You can use this code for this. When you run, you receive an input box to enter the value to search for.
13	Track and Report User Changes in an Excel worksheet or workbook
14	active cell printing
15	printing and prompting
16	write the days of this month to the right write the day to the child cell and color the weekends
17	Expand the selected area by one more cell fill the old region with more cells
18	hides all rows and columns
19	show all row columns
20	hide all row columns

Excel Free Macros (VBA)

A Macro With Rows And Columns

Online Excel Courses

Services

How can we help you?

Subscribe to our Youtube Channel?

Keywords