Koşullu biçimlendirme makrosu

[kargec]

k5=0 (Sabit sayı (referans sayısı)) L3=60 (Bu sayı değişkendir)


hücre değeri Q4:Q26 aralığı < K5 ayrıca > L3
Dolgu rengi kırmızı, Yazı rengi kırmızı olacak


hücre değerleri Q4:Q26 aralığı K5 ile L3 arasında ise
Dolgu rengi yeşil, Yazı rengi beyaz olacak


hücre değeri M2=1 ise
Dolgu rengi yeşil, Yazı rengi beyaz olacak

Arkadaşlar Selamlar.
Yukarıdaki işlemi koşullu biçimlendirme ile yaptım. Ancak işin içine makro girince beni fazlası ile aştı.

Her bir makroyu tek tek çalıştırıyorum ancak tümünü birden makroda çeviremedim.

Yardımcı olurmusunuz.

Saygılar..

 

[çıtır]

Sayfa kodu olarak kopyalayınız.İsteğinizin gerçekleşmesini temnni ederim.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [Q4:Q26,L3,K5,M2]) Is Nothing Then Exit Sub
Dim rng As Range
deg1 = Range("L3")
deg2 = Range("K5")
deg3 = Range("M2")
For Each rng In Range("Q4:Q26")
rng.Font.ColorIndex = xlNone
rng.Interior.ColorIndex = xlNone
If deg3 <> 1 And rng > deg1 Or rng < deg2 And rng <> "" Then
rng.Font.ColorIndex = 3
rng.Interior.ColorIndex = 3
End If
If deg3 <> 1 And rng <= deg1 And rng >= deg2 And rng <> "" Then
rng.Font.ColorIndex = 2
rng.Interior.ColorIndex = 4
End If
If deg3 = 1 And rng <> "" Then
rng.Font.ColorIndex = 1
rng.Interior.ColorIndex = 4
End If
Next
End Sub

 

[kargec]

Üzgünüm kardeşim çalışmadı

 

[çıtır]

Üzgünüm kardeşim çalışmadı

Dosyaya değerler girerek dener misiniz?
http://s3.dosya.tc/server15/di0wkt/Kitap12.rar.html

 

[kargec]

Göndermiş olduğun dosyada tam olmasada çalışıyor. Ancak benim dosyamda çalışmadı .

 

[kargec]

programda bir kaç yerden veri çekiliyor, ayrıca trigonomik fonksiyonlar bulunmakta acaba bir yerde çakışmamı oluyor diyeceğim ama zaten hata verirdi

 

[çıtır]

Göndermiş olduğun dosyada tam olmasada çalışıyor. Ancak benim dosyamda çalışmadı .

Kardeşim sorun zaten sizin dosyalardan kaynaklanıyor.Sizin dosyalarını sanırım ne görmek nede çalıştırmak mümkün.

 

[kargec]

dosyayı tekrardan yükleyeceğim ve link vereceğim.

 

[çıtır]

dosyayı tekrardan yükleyeceğim ve link vereceğim.

Ben sizin sorularınızı çözemiyorum.Umarım ilgilenen arkadaşlar olur.

 

[kargec]

http://s7.dosya.tc/server5/nmptgp/Esat.rar.html

Link Burda Kardeşim. Dosya açıldığında normal yollarla yaptığım koşullu biçimlendirmenin aktif olduğunu göreceksin.