UsedRange

Söz dizimi​

ifade.UsedRange

Dim ka As Range
Set ka = ActiveSheet.UsedRange

• ifade: Zorunlu. Bir Worksheet nesnesini veren ifade, örneğin ActiveSheet ya da ThisWorkbook.Worksheets("Rapor").
• Dönüş değeri: Kullanılan hücreleri kapsayan Range nesnesi. Sayfa tamamen boşsa tek hücreli A1 aralığı döner.
• Salt okunur: UsedRange özelliğine atama yapılmaz; ancak dönen aralığın Value, Font, Columns.AutoFit gibi özellik ve yöntemleri kullanılabilir.

Kullanılan alan neleri kapsar​

• Değer ya da formül: Hücrede sabit bir değer veya formül varsa.
• Biçimlendirme: Hücreye dolgu rengi, kenarlık, yazı tipi ya da sayı biçimi uygulanmışsa; hücre boş görünse bile.
• Satır ve sütun ayarları: Hücre düzeyinde biçimi olan satır ve sütunlar da alanı genişletebilir.

sonSatir = ws.UsedRange.Row + ws.UsedRange.Rows.Count - 1
sonSutun = ws.UsedRange.Column + ws.UsedRange.Columns.Count - 1

Sık kullanılan kalıplar​

• Başlığı atlamak: Başlık satırını dışarıda bırakmak için Offset ve Resize birlikte kullanılır.
• Son hücre: Cells.SpecialCells(xlCellTypeLastCell) sayfanın son kullanılmış hücresini verir.
• Toplu işlem: For Each ile tüm hücreleri ya da Rows üzerinden satırları dolaşabilirsiniz.
• Toplu biçim: UsedRange.Columns.AutoFit ile tüm sütun genişlikleri veriye göre ayarlanır.

Set veri = ws.UsedRange.Offset(1).Resize(ws.UsedRange.Rows.Count - 1)

1. Adres, satır ve sütun sayısını okuma​

Option Explicit

Sub KullanilanAlanBilgisi()
    Dim ws As Worksheet
    Dim ka As Range

    Set ws = ThisWorkbook.Worksheets("Satış Listesi")
    ' Kullanılan alan yazılmadan önce alınır
    Set ka = ws.UsedRange

    ws.Range("E2").Value = ka.Address
    ws.Range("E3").Value = ka.Rows.Count
    ws.Range("E4").Value = ka.Columns.Count
    ' İlk satır numarası + satır sayısı - 1 = son satır
    ws.Range("E5").Value = ka.Row + ka.Rows.Count - 1
End Sub

2. Başlığı atlayıp veri satırlarında dolaşma​

Option Explicit

Sub StokDurumuYaz()
    Dim ws As Worksheet
    Dim veri As Range
    Dim satir As Range

    Set ws = ThisWorkbook.Worksheets("Stok Kontrol")

    ' Yalnızca başlık varsa işlem yapma
    If ws.UsedRange.Rows.Count < 2 Then Exit Sub

    ' Başlık satırını atla: bir satır aşağı kaydır, bir satır kısalt
    Set veri = ws.UsedRange.Offset(1).Resize(ws.UsedRange.Rows.Count - 1)

    For Each satir In veri.Rows
        If satir.Cells(1, 3).Value < satir.Cells(1, 4).Value Then
            satir.Cells(1, 5).Value = "Sipariş ver"
        Else
            satir.Cells(1, 5).Value = "Yeterli"
        End If
    Next satir
End Sub

3. Son hücreyi bulma ve toplamları alma​

Option Explicit

Sub KullanilanAlaniOzetle()
    Dim ws As Worksheet
    Dim ka As Range
    Dim gelir As Double
    Dim gider As Double
    Dim sayisalAdet As Long
    Dim sonHucre As String

    Set ws = ThisWorkbook.Worksheets("Gelir Gider")
    Set ka = ws.UsedRange

    ' Hesaplar sonuçlar yazılmadan önce yapılır
    gelir = Application.WorksheetFunction.Sum(ka.Columns(2))
    gider = Application.WorksheetFunction.Sum(ka.Columns(3))
    sayisalAdet = Application.WorksheetFunction.Count(ka)
    sonHucre = ws.Cells.SpecialCells(xlCellTypeLastCell).Address(False, False)

    ws.Range("E2").Value = gelir
    ws.Range("E3").Value = gider
    ws.Range("E4").Value = sonHucre
    ws.Range("E5").Value = sayisalAdet
    ws.Range("E2:E3").NumberFormat = "#,##0"

    ' Tüm kullanılan alandaki sütunları veriye göre genişlet
    ka.Columns.AutoFit
End Sub

Kullanırken dikkat edin​

• Boş görünen hücreler alanı büyütebilir: Değeri silinmiş ancak biçimi (kenarlık, dolgu, sayı biçimi) duran hücreler kullanılmış sayılır. Bu yüzden UsedRange beklenenden büyük çıkabilir. Gereksiz satır ve sütunları yalnızca temizlemek yerine Sil (Delete) komutuyla tamamen silin, gerekirse dosyayı kaydedin; ardından alan çoğu durumda küçülür.
• Rows.Count son satır değildir: Veri A1 hücresinden başlamıyorsa UsedRange.Rows.Count son satır numarasını vermez. Son satır için UsedRange.Row + UsedRange.Rows.Count - 1 hesabını kullanın.
• Boş sayfada A1 döner: Hiç kullanılmamış bir sayfada UsedRange tek hücreli A1 aralığını verir. Sayfanın gerçekten boş olup olmadığını anlamak için Application.WorksheetFunction.CountA(ws.UsedRange) ile dolu hücre sayısını denetleyin.
• Başlık satırı da aralığın içindedir: Veri satırlarını işlerken başlığı dışarıda bırakmak için Offset ve Resize kullanın; yalnızca başlıktan oluşan sayfada Resize hata vereceği için önce satır sayısını denetleyin.
• Tek sütunun son satırı için: Bir sütundaki son dolu hücre gerekiyorsa UsedRange yerine ws.Cells(ws.Rows.Count, 1).End(xlUp).Row kullanmak daha güvenilirdir; çünkü diğer sütunlardaki biçimlendirme UsedRange sonucunu etkileyebilir.
• Büyük aralıklarda performans: Çok büyük bir UsedRange üzerinde hücre hücre döngü kurmak yavaştır. Mümkünse değerleri bir diziye (Variant) alıp bellekte işleyin ya da Application.ScreenUpdating = False kullanın.
• İlgili konular:
  • Range, Cells, Rows, Columns: Aralık ve hücre erişim nesneleri.
  • Offset ve Resize: Aralığı kaydırma ve boyutlandırma özellikleri.
  • SpecialCells ve xlCellTypeLastCell: Son kullanılmış hücreyi bulma.
  • End (xlUp) ve Find: Belirli bir sütundaki son dolu hücreyi bulma.
  • CurrentRegion: Bir hücreyi çevreleyen bitişik veri bölgesi.
  • Ctrl+End: Excel arayüzünde sayfanın son kullanılmış hücresine gitme kısayolu.
  • BAĞ_DEĞ_DOLU_SAY, SAY, TOPLA: Kullanılan alandaki dolu ve sayısal hücreleri saymak ya da toplamak için işlevler.