ActiveCell

Söz dizimi​

ifade.ActiveCell
' Örnekler:
ActiveCell.Value = 100
Application.ActiveCell.Value = 100
Windows(1).ActiveCell.Address

• ifade: İsteğe bağlıdır. Bir Application ya da Window nesnesi olabilir. Yazılmazsa etkin penceredeki etkin hücre döndürülür.
• Parametre: Özelliğin parametresi yoktur; yalnız okunabilir, ActiveCell'e doğrudan bir hücre atanamaz. Etkin hücreyi değiştirmek için Select ya da Activate yöntemi kullanılır.

Dönüş değeri ve çalışma mantığı​

• Etkin sayfa: ActiveCell her zaman etkin çalışma kitabındaki etkin sayfaya bağlıdır. Başka bir sayfadaki hücre etkin hücre sayılmaz; önce o sayfayı Activate ile etkinleştirmeniz gerekir.
• Hata durumu: Etkin pencere bir çalışma sayfası göstermiyorsa (örneğin grafik sayfası etkinse) özellik hata verir.
• Varsayılan özellik: Range nesnesinin varsayılan özelliği Value olduğundan ActiveCell = 5 de çalışır; ancak okunabilirlik için ActiveCell.Value yazmanız önerilir.

ActiveCell ve Selection farkı​

Sık kullanılan üyeler​

• Value: Hücrenin değerini okur ya da yazar.
• Formula: Hücrenin formülünü okur ya da yazar.
• Address: Hücre adresini metin olarak döndürür; Address(False, False) göreli adres (C4) verir.
• Row ve Column: Hücrenin satır ve sütun numarasını döndürür.
• Offset: Etkin hücreye göre kaydırılmış hücreye ulaşır; Offset(1, 0) bir alt satırı belirtir.
• EntireRow ve EntireColumn: Hücrenin bulunduğu satırın ya da sütunun tamamını verir.
• CurrentRegion: Hücreyi çevreleyen bitişik veri bloğunu verir.
• End: Ctrl+Ok tuşu gibi veri bloğunun sonuna gider; ActiveCell.End(xlDown) örnektir.

1. Veri bitene kadar satır satır ilerleme​

Option Explicit

Sub TutarHesapla()
    ' Stok sayfasını etkinleştirip ilk ürün hücresini seçer
    Worksheets("Stok").Activate
    Range("A2").Select
    ' Etkin hücre boş olana kadar devam eder
    Do While ActiveCell.Value <> ""
        ' Adet (B) x Birim Fiyat (C) sonucunu D sütununa yazar
        ActiveCell.Offset(0, 3).Value = ActiveCell.Offset(0, 1).Value * ActiveCell.Offset(0, 2).Value
        ' Bir alt satıra geçer
        ActiveCell.Offset(1, 0).Select
    Loop
End Sub

2. Etkin hücre hakkında bilgi alma​

Option Explicit

Sub EtkinHucreBilgisi()
    Worksheets("Personel").Activate
    Range("C4").Select
    ' Etkin hücreyi sarıya boyar
    ActiveCell.Interior.Color = RGB(255, 255, 0)
    ' Adres, satır ve sütun bilgisini sağdaki hücreye yazar
    ActiveCell.Offset(0, 1).Value = "Adres " & ActiveCell.Address(False, False) & ", satır " & ActiveCell.Row & ", sütun " & ActiveCell.Column
    ' Etkin hücrenin bulunduğu satırı kalın yapar
    ActiveCell.EntireRow.Font.Bold = True
End Sub

3. Seçim değişince ActiveCell ile not durumu yazma​

Option Explicit

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Birden çok hücre seçildiyse işlem yapmaz
    If Target.Cells.Count > 1 Then Exit Sub
    ' Yalnız 2. satırdan itibaren B ve C sütunlarında çalışır
    If ActiveCell.Row < 2 Or ActiveCell.Column < 2 Or ActiveCell.Column > 3 Then Exit Sub
    ' Boş hücrede işlem yapmaz
    If ActiveCell.Value = "" Then Exit Sub
    ' Etkin hücredeki nota göre durumu yazar
    If ActiveCell.Value >= 50 Then
        Cells(ActiveCell.Row, 4).Value = "Geçti"
    Else
        Cells(ActiveCell.Row, 4).Value = "Kaldı"
    End If
End Sub

Kullanırken dikkat edin​

• Select kullanımını azaltın: ActiveCell yalnız bir hücre seçildiğinde anlamlıdır; bu yüzden makrolarda sık sık Select gerekir. Seçim yapmak yavaştır ve ekranı hareketlendirir. Kullanıcının bulunduğu yerden bağımsız çalışacak kodlarda Worksheets("Stok").Range("A2") gibi doğrudan başvuru kullanmak daha hızlı ve güvenlidir. ActiveCell'i yalnızca kullanıcının seçtiği hücreye göre davranacak makrolarda tercih edin.
• Etkin sayfayı kontrol edin: ActiveCell her zaman etkin çalışma kitabının etkin sayfasındadır. Makro başka bir sayfadayken çalışırsa yanlış sayfada işlem yapabilirsiniz. Gerekirse önce Worksheets("Sayfa adı").Activate yazın. Etkin pencere grafik sayfası gösteriyorsa ActiveCell hata verir.
• Worksheet nesnesinin ActiveCell özelliği yoktur: ActiveCell, Application ve Window nesnelerinin özelliğidir; Worksheets("Stok").ActiveCell gibi bir kullanım yoktur. Belirli bir sayfadaki seçili hücre için önce o sayfayı etkinleştirip ActiveCell kullanın.
• Boş hücrede kontrol yapın: Do While ActiveCell.Value <> "" gibi döngülerde veri bloğunun sonunda boş hücre olduğundan emin olun; aksi halde döngü beklenenden fazla çalışır. Ara satırları boş olan listelerde döngü ilk boşlukta durur. Sonu belli olmayan listelerde End(xlDown) ya da son satır bulma yöntemlerini kullanın.
• Olaylarda Target ile ActiveCell farkı: Worksheet_SelectionChange olayında Target seçilen aralığı, ActiveCell etkin hücreyi gösterir. Birden çok hücre seçiliyken ikisi farklı olabilir. Olay yordamı içinde hücrelere yazarken başka bir olayı tetikleme riskini düşünün; gerekirse Application.EnableEvents özelliğini geçici olarak False yapın.
• İlgili konular:
  • Selection özelliği
  • Range ve Cells nesneleri
  • Offset özelliği
  • End özelliği ve CurrentRegion özelliği
  • Select ve Activate yöntemleri
  • ActiveSheet ve ActiveWindow özellikleri
  • Worksheet_SelectionChange olayı
  • SATIR ve SÜTUN işlevleri