VBA - Get Sheets names and Rows count

This article is based on a specific question that I was asked. "How to get all of the sheets names and number of filled rows in column A from a workbook in a new sheet?". This is the code I came up to solve the problem:

Sub GetSheetNames_andRowCounts()

    Dim i As Integer
    Dim j As Integer
    Dim SheetCnt As Integer
    Dim lstRow As Long
    Dim ws1 As Worksheet
    Dim SheetName As String
    With Application
        .DisplayAlerts = False
        .EnableEvents = False
        .ScreenUpdating = False
    End With
    On Error Resume Next
    'Delete the Target Sheet on the document (in case it exists)
    Sheets("Target").Delete
    SheetCnt = Worksheets.Count
    'Add the Target Sheet
    Sheets.Add after:=Worksheets(SheetCnt)
    ActiveSheet.Name = "Target"
    Set ws1 = Worksheets("Target")
    j = 1
    'Combine the sheets
    For i = 1 To SheetCnt
        Worksheets(i).Select
        'check what is the last row with data using column A as a reference
        lstRow = ActiveSheet.Cells(65536, "A").End(xlUp).Row
        'get the name of the sheet
        SheetName = Worksheets(i).Name
        'assign the values to the Target sheet
        ws1.Cells(j, 1).Value = SheetName
        ws1.Cells(j, 2).Value = lstRow1
        j = j + 1
    Next
    With Application
        .DisplayAlerts = True
        .EnableEvents = True
        .ScreenUpdating = True
    End With
    Sheets("Target").Select
    Cells.EntireColumn.AutoFit
    Range("A1").Select

End Sub

5 comentários:

Anonymous said...

lstRow = ActiveSheet.Cells(65536, "A").End(xlUp).Row

Just curious what this line should read in Excel 2010. The 65536 is for Excel 2003 files, correct?

Great site - love the helpful tips! Thank you (obrigado!)

jppinto said...

lstrow = ActiveSheet.Cells(ActiveSheet.Rows.Count, "A").End(xlUp).Row

Anonymous said...

I had changed the 1stRow to 1stRow = ActiveSheet.Cells(ActiveSheet.Rows.Count,"A").End(x1Up).Row ; however this didn't count the number of rows for me.
It give me the sheet names in the Target tab, but that is all. How can I fix this?

Quân Đào said...

dich vu ke toan dich vu lam bao cao tai chinh tín
khóa học kế toán thực hành re
công ty dịch vụ kế toán
dich vu ke toan thue tai bac ninh
dịch vụ kế toán trọn gói tại hà nội
dịch vụ kế toán tại tp.hcm
dịch vụ báo cáo thuế
dịch vụ quyết toán thuế uy
trung tâm đào tạo kế toán tại tphcm
trung tâm đào tạo kế toán tại cầu giấy tín
trung tâm đào tạo kế toán tại long biên
trung tâm đào tạo kế toán tại hà đông re
trung tâm kế toán tại thanh xuân
trung tâm kế toán tại bắc ninh
trung tâm kế toán tại bình dương
trung tâm kế toán tại hải phòng
dịch vụ quyết toán thuế tại quận bình thạnh
dịch vụ quyết toán thuế tại quận tân phú
dịch vụ quyết toán thuế tại quận 5
dịch vụ quyết toán thuế tại quận 3
dịch vụ quyết toán thuế tại tphcm
dịch vụ quyết toán thuế tại quận cầu giấy
dịch vụ quyết toán thuế tại quận long biên
dịch vụ quyết toán thuế tại quận hà đông
dịch vụ quyết toán thuế tại quận thanh xuân

APLIKASI JOKER123 APK said...


Permainan tembak ikan adalah permainan yang paling rame orang mainkan, apalagi jika pelayanannya yang sangat memuaskan bagi anda tentunya kalian pasti akan merasa sangat puas juga kan ?, bagi kalian yang sangat menyukai permainan tembak ikan bisa datang ke situs kami :)

APLIKASI JOKER123 APK

aplikasi joker123 apk versi terbaru

download aplikasi joker123 apk

daftar akun slot joker123


DAFTAR AKUN SLOT JOKER123

daftar akun joker123 slot

tembak ikan joker123

joker123 live casino


LOGIN JOKER388 SLOT


JOKER123 DEPOSIT PULSA

daftar joker388


DOWNLOAD JOKER388 APK

joker388 download apk

aplikasi joker388 apk

daftar akun joker388

game tembak ikan joker123

daftar akun tembak ikan joker123


LINK ALTERNATIF JOKER123

link alternatif joker123 slot

daftar akun joker388

tembak ikan joker388