metine gore renk

[bilketay]

arkadaslar ben excel de yeniyim. sorun su: mesela bir hucreye bir metin giricez ve girdigimiz metin bizim istegimize gore renk alacak.

-A3 hucresine DEVIR yazdigimizda devir yazisini kirmizi renkte yazacak
-ayni hucreye MALZEME GIRISI yazdigimizda rengi yesil olacak
-yine ayni hucreye KAYIT SILINDI yazdigimizda sari renkte olacak...

yanliz renkleri biz metni yazdiktan sonra degisecek..

bunun formulunu nasil yazabiliriz? ya da baska bir yolu varmi??
yardimlariniz icin simdiden tesekkurler..

 

[SGM020]

-A3 hucresine DEVIR yazdigimizda devir yazisini kirmizi renkte yazacak
-ayni hucreye MALZEME GIRISI yazdigimizda rengi yesil olacak
-yine ayni hucreye KAYIT SILINDI yazdigimizda sari renkte olacak...
[/quot

Ekli dosya nasıl?

Kolay gelsin

 

[teknik]

Excel de biçim menüsünden koşullu biçimlendirmeyi açın soldaki hücre değeri bölümü öyle kalsın ortadaki bölümü eşit yapın sağdaki bölüme de DEVİR yazın biçim düğmesini tıklayarak yazı tipinde renk den kırmızı veya istediğiniz rengi seçerek tamam deyin sonra ekle butonununa tıklayarak yukarıdaki aynı işlemleri yapın
Bu arada önce hangi hücreler için yapacak iseniz o hücreleri seçili hale getirin örneğin a1:a5555 gibi

 

[Ali]

Renk ile ilgili sorununuz için

Ektedi dosyayı inceleyin aynısı Biçim-Koşullu Biçimlendirmeden yapabilirsiniz

 

[teknik]

Re: Renk ile ilgili sorununuz için

Ektedi dosyayı inceleyin aynısı Biçim-Koşullu Biçimlendirmeden yapabilirsiniz

Arkadaşın kasdettiği yazı renginin değişmesi sizin hazırladığınız dosyada hücrelere dolgu vermişsiniz

 

[Ali]

Haklısın teknik, bilketayda dolgu vermeden sadece yazı rengini değiştirir en azından dolguyuda öğrendi fenamı oldu :lol:

 

[keniken]

Ã?nce ALT + F11 yaparak Visual Basic sayfasına geçin. Daha sonra soldaki pencerede (Sheet 1) yazan yeri tıklayıp sağdaki boş sayfaya aşağıdaki kodları yapıştırın..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = "DEVİR" Then
Target.Interior.ColorIndex = 3
ElseIf Target = "MALZEME GİRİÞİ" Then
Target.Interior.ColorIndex = 4
ElseIf Target = "KAYIT SİLİNDİ" Then
Target.Interior.ColorIndex = 6
End If
End Sub

 

[keniken]

Þu kodlar daha doğru oldu bence..Sadece A3 hücresinde çalışır:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A3") Then
If Target = "" Then
Target.Interior.ColorIndex = xlNone
ElseIf Target = "DEVİR" Then
Target.Interior.ColorIndex = 3
ElseIf Target = "MALZEME GİRİÞİ" Then
Target.Interior.ColorIndex = 4
ElseIf Target = "KAYIT SİLİNDİ" Then
Target.Interior.ColorIndex = 6
End If
End If
End Sub

 

[Ali]

Bilketay Devir yerine devır malzeme girişi yerine malzeme girisi yazarsan koşullu biçimlendirmede makroda çuvallar ona göre,buna dikkat et.Sen türkçe karekter kullanmamışsın galiba İngilizce deyimlerle çalışan Excel kullanıyorsun. Keniken yazdığın makro için ayrıca teşekkürler :bravo:

 

[keniken]

Eğer A3 hücresine sadece bu ifadeler yazılacaksa sadece baş harflerini referans alarak sizin dediğiniz problemi de çözebiliriz Sn. fructose..

Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A3") Then
If Target = "" Then
Target.Interior.ColorIndex = xlNone
ElseIf Left(Target, 1) = "D" Or Left(Target, 1) = "d" Then
Target.Interior.ColorIndex = 3
ElseIf Left(Target, 1) = "M" Or Left(Target, 1) = "m" Then
Target.Interior.ColorIndex = 4
ElseIf Left(Target, 1) = "K" Or Left(Target, 1) = "k" Then
Target.Interior.ColorIndex = 6
End If
End If
End Sub

 

[bilketay]

arkadaslar harikasiniz ya.. hepsi de isime yaradi cok saolun..