Ömer BARAN
Uzman
- Katılım
- 8 Mart 2011
- Mesajlar
- 12,986
- Excel Vers. ve Dili
- Office 2013 ( 32 bit ) TÜRKÇE
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Merhaba.
F3:F19 hücre erelığı seçiliyken;
-- YEŞİL için formül;-- KIRMIZI için formül;Kod:=YADA(VE($D3="C40";$F3<>"";$F3>=28);VE($D3="C45";$F3<>"";$F3>=31,5);VE($D3="C50";$F3<>"";$F3>=35))Kod:=YADA(VE($D3="C40";$F3<>"";$F3<28);VE($D3="C45";$F3<>"";$F3<31,5);VE($D3="C50";$F3<>"";$F3<35))
Sub test()
'Hücredeki adresleri biçimlendirmek için 3 ayrı seçenek.
Range("A1").DirectPrecedents.Select
Range("A1").DirectPrecedents.Font.Color = vbRed
Range("A1").DirectPrecedents.Cells.Interior.Color = vbRed
End Sub