Makro

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


 

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.

logo

 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