VBA ile koşullu biçimlendirme

[Tekno_robotqw]

Merhabalar,

Excel de tüm satır ve sütunlar veya belli bir sütün-satır için; girilen rakama göre hücre renklendirmesi yapmak istiyorum. Koşullu biçimlendirme ile değil VBA ile yapmam gerekmektedir.
Şimdiden teşekkürler

 

[Necdet]

Merhaba,

belli bir sütun-satır?
girilen rakam?

excel için genel tanımlar.

Daha açıklayıcı bilgi ve örnek dosya olsa sanırım çözüm bulabilirsiniz.

ChatGpt'ye sizin sorunuzu aynen sordum, aşağıdaki yanıtı aldım.

Excel'de VBA (Visual Basic for Applications) kullanarak belirli bir koşula göre hücreleri renklendirmek oldukça yaygın bir işlemdir. İşte belirli bir sütun veya satır için girilen rakama göre hücre renklendirmenizi sağlayacak basit bir VBA kod örneği:
Örnek Senaryo: A1'den A10'a kadar olan hücrelerde belirli bir rakamın girilip girilmediğini kontrol ederek hücreleri renklendireceğiz. Bu örnek, A sütunu için geçerli olacak.

1. Excel dosyanızı açın ve "ALT + F11" tuşlarına basarak Visual Basic for Applications (VBA) penceresini açın.
2. Sol tarafta "Proje Gezgini" penceresini bulun ve çalışmak istediğiniz Excel dosyasını açın. Genellikle "VBAProject (YourWorkbookName)" adını taşır.
3. Sağ tıklayın ve "Ekle" seçeneğini tıklayarak yeni bir modül ekleyin.
4. Modülü açın ve aşağıdaki VBA kodunu yapıştırın:

Sub Renklendir()
    Dim ws As Worksheet
    Dim cell As Range
    Dim targetColumn As Range
    Dim targetValue As Double ' Renklendirmek istediğiniz rakamı ayarlayın

    ' Çalışma sayfasını seçin (gerektiğinde adını değiştirin)
    Set ws = ThisWorkbook.Sheets("Sayfa1") ' Sayfa adınızı buraya ekleyin

    ' Renklendirmek istediğiniz sütunu seçin (örneğin, A sütunu)
    Set targetColumn = ws.Range("A1:A10") ' Sütun aralığınıza uygun olarak ayarlayın

    ' Renklendirmek istediğiniz rakamı ayarlayın
    targetValue = 5 ' Hücrelerde aradığınız rakamı burada belirtin

    ' Sütunun her hücresini kontrol edin ve koşula göre renklendirin
    For Each cell In targetColumn
        If cell.Value = targetValue Then
            cell.Interior.Color = RGB(255, 0, 0) ' Renk kodunu istediğiniz renge göre ayarlayın
        Else
            cell.Interior.ColorIndex = xlNone ' Renk yoksa mevcut hücre rengini kaldırın
        End If
    Next cell
End Sub

Bu kod, A1'den A10'a kadar olan hücreleri inceleyecek ve eğer hücrede belirlediğiniz "targetValue" değeri (örnekte 5) bulunuyorsa hücreyi kırmızıya renklendirecektir. Eğer koşul sağlanmıyorsa hücrenin rengini kaldıracaktır.

1. VBA penceresini kapatın ve Excel dosyanızı kaydedin.
2. Artık bu işlemi çalıştırmak için Excel'de "Geliştirici" sekmesine gidin, "Makrolar"ı tıklayın ve "Renklendir" adlı makroyu seçin. Bu, belirlediğiniz koşula göre hücreleri renklendirecektir.

Not: Kodu ve çalışma sayfasını kendi gereksinimlerinize göre özelleştirebilirsiniz. Ayrıca, hedef sütunu ve hedef değeri değiştirerek farklı sütunlar ve değerler için bu işlemi tekrarlayabilirsiniz.