DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Bir de bu dosyayı inceleyin.
Function RENK(Alan As Range)
RENK = Alan.Interior.ColorIndex
End Function
=EĞER(RENK(E8)=-4142;E8/C1)
Aşağıdaki kodu boş bir modüle uygulayın.
Kod:Function RENK(Alan As Range) RENK = Alan.Interior.ColorIndex End Function
Sonra excel sayfasına dönün.
F8 hücresindeki formülü aşağıdaki gibi değiştiriniz.
Kod:=EĞER(RENK(E8)=-4142;E8/C1)
Fonksiyonun kalıcı olması için dosyanızı makro içeren dosya formatında kaydetmeyi unutmayınız.
Korhan Bey ben zaten bunu nasıl yazacağımı bir türlü beceremiyorum.
Dosyaya ekleyip gönderebilir misiniz?
Şimdiden teşekkürler.