Excel'de Hücre Rengine göre Değer Verme

Kodla Büyü

sert_hard

Seçkin Üye
Seçkin Üye
Mesajlar
941
Değerli arkadaşlar, bir excel dosyasında hücreler kırmızı ve yeşil dolguya sahip. Kırmızı hücrelere 0, yeşil hücrelere 5 yazdırmak istiyorum. Birkaç formül denedim ama olmadı.

Acaba bu işlem için mevcut bir formül var mıdır, yoksa makro kullanmak mı lazım?

Yardımcı olabilirseniz sevinirim.
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For i = 1 To 100 ' 100 sayısı tarama yapılacak alan için örnekte 100*100'lük alanda tarama yapılıyot
For r = 1 To 100
If Cells(i, r).Interior.ColorIndex = 3 Then
Cells(i, r).Value = 0
End If

If Cells(i, r).Interior.ColorIndex = 4 Then
Cells(i, r).Value = 5
End If
Next
Next

End Sub

kodlar bir butonada verilebilir

birde konu başlığı yanlış yerde şurada olmalıydı office-pdf-programlari-f86/
renk kodları http://www.exceltr.com/2011/06/vba-renk-kodlari/
 

Ekli dosyalar

  • Kitap1.rar
    31.4 KB · Görüntüleme: 246
Geri
Üst