Excel'de vba kullanarak satırlar nasıl oluşturulur?

VBA’yı kullanarak satırları saymak için, satırları saymak istediğiniz aralığı ayarlamanız, ardından bu aralıktaki satır sayısını almak için count and row özelliğini kullanmanız gerekir. Yalnızca veriye sahip olduğunuz satırları saymak için bir döngü de kullanabilirsiniz.

Satırları saymak için VBA’yı kullanın

1. Öncelikle satır saymak istediğiniz aralığı tanımlamanız gerekir.
2. Bundan sonra, özellikler ve yöntemler listesini açmak için nokta (.) kullanın.
3. Ardından “Çizgiler” özelliğini yazın veya seçin.
4. Sonunda “Count” özelliğini kullanın.

Artık bu kodu çalıştırdığınızda satır sayısını döndürecektir ve sayıyı almak için bir mesaj kutusu kullanabilir veya bu değeri doğrudan bir hücreye girebilirsiniz .

 Sub vba_count_rows() Range("A1:A10").Rows.Count End Sub

Kullanılan aralık için satırları say

 Sub vba_count_rows2()   MsgBox Worksheets("Sheet1").UsedRange.Rows.Count End Sub

VBA kullanarak veri içeren satırları sayın

Boş satırları yok sayarken veri içeren satırları da sayabilirsiniz.

Aşağıdaki kod, kullanılan aralığı döngü aralığı olarak alacak ve her satırı tek tek inceleyerek orada boş olmayan bir hücre olup olmadığını kontrol edecek ve eğer oradaysa, onu veri içeren bir satır olarak değerlendirecek ve sonunda toplam satır sayısını içeren bir mesaj kutusu gösterilir.

 Sub vba_count_rows_with_data() Dim counter As Long Dim iRange As Range With ActiveSheet.UsedRange    'loop through each row from the used range    For Each iRange In .Rows        'check if the row contains a cell with a value        If Application.CountA(iRange) > 0 Then            'counts the number of rows non-empty Cells            counter = counter + 1        End If    Next End With MsgBox "Number of used rows is " & counter End Sub