Makro ile Satır, Sütun, Hücre Renklendirmek ve Temizlemek


logo

Makro ile Satır, Sütun, Hücre Renklendirmek ve Temizlemek

Visual Basic Editor sayesinde, Excel’de çalışma kitabınıza belirli makro kodları ekleyerek, hücre, satır ve sütun renklendirmek mümkündür.

Bunun için Geliştirici > Visual Basic Editor’u veya kısayolu Alt + F11 kullanarak editör penceresini açabilirsiniz. Çalışma kitabınızda Sayfa1’e çift tıklayıp aşağıdaki makro kodlarını kopyalayın.

 Sub Kirmizi()
[D4].Cells.Interior.ColorIndex = 3
End Sub

Sub Mavi()
[D6].Cells.Interior.ColorIndex = 5
End Sub

Sub Yesil()
[D8].Cells.Interior.ColorIndex = 4
End Sub

Sub Satirrenk()
[11:11].Rows.Interior.ColorIndex = 3
End Sub

Sub Sutunrenk()
[B:B].Columns.Interior.ColorIndex = 3
End Sub

Sub Renksil()
Dim Hucre As Range
For Each Hucre In Range("D4:D8")
Hucre.Interior.ColorIndex = xlNone
Next
End Sub

Sub Degersil()
Dim Hucre As Range
For Each Hucre In Range("D4:D8")
Hucre.Cells = Clear
Next
End Sub

 

Her bir makro kodunun başlığında isimler bulunur. Bunları çalışma kitabınızda bir buton yardımıyla kullanabilirsiniz. Örnek olarak aşağıdaki gibi Form Denetimleri’nden butonlar ekleyelim. Ardından her bir butona ayrı bir isim tanımlayalım.

makro-butonlar

Sonrasında butonlara sırasıyla aşağıdaki atama işlemlerini uygulayalım. İlk olarak Kırmızı isimli butona sağ tıkladım, Makro ata seçeneğini tıkladım.

makro-butonlar-2

Açılan pencerede eklediğimiz makro kodlarından hangisini seçeceğimizi soruyor. Sayfa1.Kirmizi olanı seçiyorum ve Tamam butonuna tıklıyorum.

makro-butonlar-3

 

Artık Kırmızı butonuna tıkladığınızda aşağıdaki gibi bir makro çalışacaktır.

Bu aşamaya kadar sorunsuz geldiyseniz, artık işlemler doğru gidiyor demektir. Devamında diğer butonlara da aynı tanımlamayı yapabilirsiniz.

 

Excel’de Makro ile Renk Vurgulama hakkında diğer konumuzu incelemek için buraya tıklayın.

Örnek Çalışma Kitabı > Makro ile Satır, Sütun, Hücre Renklendirmek ve Temizlemek


Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir