Hücredeki değere göre renk değişmesi

[maxinus]

Merhaba,
Ben B hücresine değer girdiğim zaman bu 3 değere göre renk değişmesini istiyorum.Yazı rengi değişmeyecek.Sadece hücrenin rengini değişmesini istiyorum.Bana bu konu yardımcı olabilirmisiniz? Teşekkürler

 

[isin_lal]

bu istediğini koşullu biçimlendirme ile rahatlıkla yapabilirsin
ekte dosyanın son halini bulabilirsin

 

[maxinus]

acaba bunun kodunu yada formülünü nereye yazdığınızı söyleyebilir misiniz??
koşullu biçimlendirmeye baktım ama göremedim

 

[Necdet]

Merhaba

• F5
• Özel
• Koşullu Biçimlendirme
• Tamam

Dedikten sonra koşullu biçimlendirilmiş hücreleri görebilirsiniz.
Bu durumdayken Biçim-Koşullu Biçimlendirme ile de formüllere erişebilirsiniz.

 

[isin_lal]

koşullu biçimlendirme verilen hücrelerin üzerine gelip biçim/koşullu biçimlendirme seçersen oradan istediğin bilgiyi görürsün

 

[N.Ziya Hiçdurmaz]

Yanıt

Sayfa kod bölümüne yapıştırınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [B1:B100]) Is Nothing Then Exit Sub
If Target = "Y" Then Target.Interior.ColorIndex = 3
If Target = "O" Then Target.Interior.ColorIndex = 6
If Target = "R" Then Target.Interior.ColorIndex = 50
End Sub

 

[serdarinho43]

Bende De Bİr Dosya Var Bordro İÇİn Tasarladim Sayi 7800 Den KÜÇÜk İse BaŞka 7800 Den BÜyÜk İse HÜcre BaŞka Renkler Aliyor. Eklemek İstedİm Ama Dosyayi Bİrbİrİnden Ayiramadim İÇİnde Çok Sayida Makro Var Dosya Boyutu 1 Mb Dan Fazla Bu YÜzden Kaydederken De Zorluk Çekİyorum Bu Konuda Yardim Almak İsteyenler Özel Mesaj GÖndersİn Bİr Daha Deneyebİlİrİm...

 

[onehead]

Çok Sağol

Eline sağlık N.Ziya Hiçdurmaz.
Derdime derman oldun.
Ama satırları seçip silince veya aşağıya doğru tutup kopyalayınca hata veriyor. Bunu halledebilirsen çok makbule geçecek.
Şimdiden çok sağol
:hihoho:

 

[N.Ziya Hiçdurmaz]

Yanıt

Private Sub Worksheet_Change(ByVal Target As Range)
[COLOR="Blue"]On Error GoTo HATA[/COLOR]
If Intersect(Target, [B1:B100]) Is Nothing Then Exit Sub
If Target = "Y" Then Target.Interior.ColorIndex = 3
If Target = "O" Then Target.Interior.ColorIndex = 6
If Target = "R" Then Target.Interior.ColorIndex = 50
[COLOR="Blue"]HATA:[/COLOR]
End Sub

 

[kucukkurt]

Merhaba,
Ben B hücresine değer girdiğim zaman bu 3 değere göre renk değişmesini istiyorum.Yazı rengi değişmeyecek.Sadece hücrenin rengini değişmesini istiyorum.Bana bu konu yardımcı olabilirmisiniz? Teşekkürler

Ben ingilizce versiyon kullanıyorum türkçede tam karşılığını bilmiyorum ama menüde ,Format(biçim) > conditional formatting alanından yapabilirsin.

 

[elmasbs]

HÜcredekİ Harflerİ Renklerİne GÖre Toplatma

Benim bu konuda yardıma ihtiyacım var. İstediğim şey hücrelere yazdığım harfleri renklerine göre toplatmak. Fontlarına göre toplatıyorum ama işimi görmüyor. Harfleri toplatabileceğim bir çalışma yapılabilir mi? Yardımlarınızı bekliyorum. Teşekkür ederim.

 

[zemeckiss]

arkadaşlar merhaba

baktım baktım bulamadım
bnm de problemim buna benzer birşey

for next döngüsü içinde
______________________________________________________________
( i sayısını > belli bir hücreden sonra "ctrl+shift+aşşa ok" yapıp> bundan bir aşşağıdaki hücre DEĞERİNİ alarak belirleyecek )
[ buraya kadar tamam ]
_______________________________________________________________

mesela önce L75 hücresinin değrinin 0,85ten büyük olup olmadığına bakacak ve büyükse " o satırdaki belli bir alanın " rengini yeşile boyayacak
değilse olduğu gibi bırakacak

ve sonra bir soraki i değerini alıp

bu sefer L76 hücresinin değerinin 0,85 ten büyük olup olmadığına bakacak

ve BU SEFER de 76. satırdaki yine aynı genişlikteki alanın rengini yeşile boyayabillecek bi makroya ihtiyacım war

yani

kaba bi kodlamayla
_for i = 1 to 10 ( buradaki problemimi çözdüm )
____if L(75+i) >0.85 then
______range(c75+i:m75+i).select
________with selection.font
____________________.color = 3 ( kırmızı diyelim)
____________________.thin-shade = 0
________end with
____end if
_next i


tarzından bir makroya ihtiyacım war


fakat hücre adlarını yazarken L75+i yazınca kabul etmiyor


yardımcı olabilirseniz sevinirim

şimdiden teşekkürler

 

[Orion1]

Makro yerine koşullu biçimlendirme uygulamak dağa kestirme işlem olacaktır.
Koşullu biçimlendirme uygulayınız.

 

[zemeckiss]

teşekkürler
koşullu biçimlendirmeyle daha önce deneyip başarısız olmuştum
ama bu sefer becerdim

ama bnm yine de bu formule ihtiyacım war
yani tutup renklendirmesi değil önemli olan
istediğim (değişken) sayıda hücreler arası gezinmek fln gibisinden

ve range. komutunda object olarak girebilmek derdim

hücreler arasında gezinme işini snaırım cells.offset(x,y) tarzından bi formlle halledebiliyoruz sanırm
bunu da "bi sonraki boş hücreyi seç" formulunde görmüştüm

neyse sanırım demek istediğimi anladınız


herkese iyi çalışmalar

 

[zemeckiss]

ActiveCell.Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Select
Loop

formulu
sutun olarak bi sonraki boş hücreyi seçme formulü

satır olarak da bi sonraki hücreyi seçmek için (1,0)ları (0,1) yapıyoruz
tabi nekadar hücre geçmek istiyorsak 1 değerinin yerine o değeri yazıyoruz

 

[seleukela]

Koşullu biçmlendirme

Merhaba dostlar.
a1 hücresine 3 değişik isim girebilirim. her isime göre a1 ile k1 arasındaki bütün hücrelerin ayrı bir renk olmasını istiyorum
yardımcı olurmusunuz