• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Hücre biçimlendirme

kemalist

kemalist

Katılım
4 Haziran 2008
Mesajlar
798
Excel Vers. ve Dili
Excel 2021 TÜRKÇE
Arkadaşlar benim istediğim hücre yeşil olduğunda başka hücreye geçti,kırmızı olduğunda kaldı yazsın.yardımlarınız için şimdiden teşekkür ederim.
Dosya ektedir...
 

Ekli dosyalar

kemalist' Alıntı:
Arkadaşlar benim istediğim hücre yeşil olduğunda başka hücreye geçti,kırmızı olduğunda kaldı yazsın.yardımlarınız için şimdiden teşekkür ederim.
Dosya ektedir...
Genişletmek için tıkla ...

eki inceler misiniz
hücredeki dolgu rengini değiştirdiğiniz'de F9 tuşu ile fonksiyonu tekrardan çalıştırınız.
 

Ekli dosyalar

sayın ihsan vermiş olduğunuz dosyayı kendimce uyarlamaya çalıştım.makroyu yeni bir modül meydana getirip içine kopyaladım fakat çalışmadı.#AD? hata kodu veriyor.Renk tonları farklıdır diye vermiş olduğunuz renk numaralarından seçerek denedim yinede olmadı.makroyu gerek sayfa bazında gerekse tüm çalışma kitabında denedim.sonuç aynı hep olumsuz.benim hatam nerede nasıl bi yol izlemeliyim?açıklarmısınız?Yardımlarınız için şimdiden teşekkürler...
 
Son düzenleme:
kemalist' Alıntı:
sayın ihsan vermiş olduğunuz dosyayı kendimce uyarlamaya çalıştım.makroyu yeni bir modül meydana getirip içine kopyaladım fakat çalışmadı.#AD? hata kodu veriyor.Renk tonları farklıdır diye vermiş olduğunuz renk numaralarından seçerek denedim yinede olmadı.makroyu gerek sayfa bazında gerekse tüm çalışma kitabında denedim.sonuç aynı hep olumsuz.benim hatam nerede nasıl bi yol izlemeliyim?açıklarmısınız?Yardımlarınız için şimdiden teşekkürler...
Genişletmek için tıkla ...

ben size sıfırdan anlatayım
siz ona göre düzenleyin bende sıfırdan düzenlediğim dosyayıda ekliyeceğim.ilk adım olarak
boş bir excel sayfası ( yada projenin olduğu dosya )
Alt+F11 tuş kombinasyonunu kullanarak kod bölümüne geçiniz.
Insert - Module Açın içine
Kod: 
Function renk(Aralık As Range, Optional Renkadi As Boolean)
Dim Renk1 As String, IndeksNo As Integer
Application.Volatile 'hücre rengi değişince F9 ile veya çift tıklamayla formül tetiklensin
Select Case Aralık.Interior.ColorIndex
Case 1
Renk1 = "Siyah"
IndeksNo = 1
Case 53
Renk1 = "Kahverengi"
IndeksNo = 53
Case 52
Renk1 = "Zeytin Yeşili"
IndeksNo = 52
Case 51
Renk1 = "Koyu Yeşil"
IndeksNo = 51
Case 49
Renk1 = "Koyu Haki"
IndeksNo = 49
Case 11
Renk1 = "Koyu Mavi"
IndeksNo = 11
Case 55
Renk1 = "Çivit Mavi"
IndeksNo = 55
Case 56
Renk1 = "Gri-80%"
IndeksNo = 56
Case 9
Renk1 = "Koyu Kırmızı"
IndeksNo = 9
Case 46
Renk1 = "Turuncu"
IndeksNo = 46
Case 12
Renk1 = "Koyu Sarı"
IndeksNo = 12
Case 10
Renk1 = "Yeşil"
IndeksNo = 10
Case 14
Renk1 = "Haki"
IndeksNo = 14
Case 5
Renk1 = "Mavi"
IndeksNo = 5
Case 47
Renk1 = "Mavi-Gri"
IndeksNo = 47
Case 16
Renk1 = "Gri-50%"
IndeksNo = 16
Case 3
Renk1 = "Kırmızı"
IndeksNo = 3
Case 45
Renk1 = "Parlak Turuncu"
IndeksNo = 45
Case 43
Renk1 = "Limon Yeşil"
IndeksNo = 43
Case 50
Renk1 = "Deniz Yeşil"
IndeksNo = 50
Case 42
Renk1 = "Su"
IndeksNo = 42
Case 41
Renk1 = "Parlak Mavi"
IndeksNo = 41
Case 13
Renk1 = "Menekşe"
IndeksNo = 13
Case 48
Renk1 = "Gri-40%"
IndeksNo = 48
Case 7
Renk1 = "Pembe"
IndeksNo = 7
Case 44
Renk1 = "Altın"
IndeksNo = 44
Case 6
Renk1 = "Sarı"
IndeksNo = 6
Case 4
Renk1 = "Parlak Yeşil"
IndeksNo = 4
Case 8
Renk1 = "Turkuaz"
IndeksNo = 8
Case 33
Renk1 = "Gök Mavi"
IndeksNo = 33
Case 54
Renk1 = "Erik Rengi"
IndeksNo = 54
Case 15
Renk1 = "Gri-25%"
IndeksNo = 15
Case 38
Renk1 = "Gül"
IndeksNo = 38
Case 40
Renk1 = "Sarımsı-Kahve"
IndeksNo = 40
Case 36
Renk1 = "Parlak Yellow"
IndeksNo = 36
Case 35
Renk1 = "Parlak Yeşil"
IndeksNo = 35
Case 34
Renk1 = "Parlak Turkuaz"
IndeksNo = 34
Case 37
Renk1 = "Soluk Mavi"
IndeksNo = 37
Case 39
Renk1 = "Lavanta"
IndeksNo = 39
Case 2
Renk1 = "Beyaz"
IndeksNo = 2
Case Else
Renk1 = "yok"
End Select
If Renkadi = True Or _
Renk1 = "yok" Then
renk = Renk1
Else
renk = IndeksNo
End If
End Function
bu kodu yapıştırın
ardından hücreye geçin
A1 hücresini Kırmızı
A2 hücresini Yeşil Yapın
B1 Hücresine
Kod: 
=renk(A1)
b2 hücresine
Kod: 
=renk(A2)
bu formülü girin
şimdi sizin formülü yapalım adım adım
sizin istediğiniz hücrede Yeşil Renk Var ise Geçti Kırmızı var ise Kaldı Yazmasını istemiştiniz.
bunu örnek olarak söylüyorum siz bunu gerekirse istediğiniz hücrede yapabilirsiniz.
c1 hücresine
Kod: 
=EĞER(renk(A1)=3;"Kaldı";EĞER(renk(A1)=14;"Geçti";""""))
c2 hücresine
Kod: 
=EĞER(renk(A2)=3;"Kaldı";EĞER(renk(A2)=14;"Geçti";""""))
bu formülü girin.

2007'de kayıt yapmak için makro içerebilen excel çalışma kitabı şeklinde kayıt yapın
 

Ekli dosyalar

ihsan tank' Alıntı:
rica ederim
iyi çalışmalar :mutlu:
Genişletmek için tıkla ...

sayın ihsan dosyamda renkler formüle göre otomatik olarak renk değiştiriyor fakat sonuç aynı kalıyor.ancak dediğiniz gibi alt+f11 veya çift tıklamayla oluyor ancak çok sayıda olduğu için bunları gerek çift tıklamaya gerek kalmadan gerekse alt+f11 gerek kalmadan nasıl yapabiliriz?yardımlarınız için şimdiden çok teşekkür edrim.bana zaman ayırdığınız için....
 
kemalist' Alıntı:
sayın ihsan dosyamda renkler formüle göre otomatik olarak renk değiştiriyor fakat sonuç aynı kalıyor.ancak dediğiniz gibi alt+f11 veya çift tıklamayla oluyor ancak çok sayıda olduğu için bunları gerek çift tıklamaya gerek kalmadan gerekse alt+f11 gerek kalmadan nasıl yapabiliriz?yardımlarınız için şimdiden çok teşekkür edrim.bana zaman ayırdığınız için....
Genişletmek için tıkla ...

f9 ile tetikleyin o zaman formülü
yada başka bir arkadaş yardımcı olsun çünkü makro bana atik değil ve ben anlamıyorum
 
Sayın ihsan f9 u tetiklemek için butonla çalışacak bi makro olabilirmi?
 
Selamlar,

Sn. kemalist hücredeki renk değişimleri sayfada hiç bir olayı tetiklemez bu sebeple bu işlem genellikle F9 tuşuna basılarak tamamlanır. Ya da dosya kayıt edilerek hesaplama yapılabilir.

Aşağıdaki kodu çalışmanızın THISWORKBOOK bölümüne uygulayınız.

Siz sayfada aşağıdaki işlemleri yaptığınızda;

Bir hücreyi seçtiğinizde
Bir hücreyi değiştirdiğinizde (renk dışında)
Sayfa hesaplama moduna geçtiğinde

Kod otomatik olarak hesaplama yapacaktır.


Kod: 
Option Explicit
 
Private Sub Workbook_SheetCalculate(ByVal Sh As Object)
    Application.Calculate
End Sub
 
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Calculate
End Sub
 
Private Sub Workbook_SheetSelectionChange(ByVal Sh As Object, ByVal Target As Range)
    Application.Calculate
End Sub
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst