Makro ile koşullu biçimlendirme

Katılım
23 Ocak 2006
Mesajlar
20


Koşullu biçimlendirme ile falan çok denedim ama olmadı .Yanıp sönen hücre makrosunu denedim oda olmadı zaten bir kaç açıp kapamadan sonra ve yeni veri girişinde sorun oldu aslında makro olmadan halletmek istedim çünkü sürekli veri girişi olucağı için ve makroyu sürekli elle çalıştırmak gereklimi onuda bilmiyorum yardımcı olabilirseniz çok sevinirim. Kolay gelsin
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Resim yerine , Dosyanızın küçük bir bölümünü eklermisiniz.
 

N.Ziya Hiçdurmaz

Özel Üye
Katılım
28 Nisan 2007
Mesajlar
2,218
Excel Vers. ve Dili
Office 2013 TR / 32 Bit
Cevap 1 sayfa kod bölümüne yazınız.
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [I2:L100]) Is Nothing Then Exit Sub
For Each tar1 In Range("I2:I100")
For Each od1 In Range("J2:J100")
If tar1.Value > Date And od1 <> "" Then
tar1.EntireRow.Interior.ColorIndex = 3
tar1.EntireRow.Font.ColorIndex = 2
Else
If tar1.Value <= Date And od1 = "" Then
tar1.EntireRow.Interior.ColorIndex = xlNone
tar1.EntireRow.Font.ColorIndex = 1
End If
End If
Next
Next
End Sub
 
Katılım
23 Ocak 2006
Mesajlar
20
Resim yerine , Dosyan&#305;z&#305;n k&#252;&#231;&#252;k bir b&#246;l&#252;m&#252;n&#252; eklermisiniz.


Durum biraz kar&#305;&#351;&#305;k diye k&#305;sa ge&#231;mi&#351;tim ama ger&#231;ekte biraz uzun yukardaki tablo ile alakas&#305; yok Alt&#305;na tamam&#305;n&#305; anlatt&#305;m nas&#305;l oldu&#287;unu

te&#351;ekk&#252;r ederim
 
Son düzenleme:
Katılım
23 Ocak 2006
Mesajlar
20
Dosyan&#305;z ekte.
&#199;ok te&#351;ekk&#252;r ederim ger&#231;ekten &#246;zelliklede makro kullanmad&#305;&#287;&#305;n&#305;z i&#231;in.

Pek bu form&#252;l tam olarak nas&#305;l kullan&#305;l&#305;yor (&#246;rne&#287;in sondaki 111'in anlam&#305; ne). E&#286;ER YADA VE fonksiyonlar&#305;n&#305;n birlikte kullan&#305;m&#305;n&#305; nerden &#246;&#287;renebilirim sitede kendimi geli&#351;tirebilmek i&#231;in

=E&#286;ER(YADA(VE($K8="";$S8="";$I8<=BUG&#220;N()+15);VE($N8="";$S8="";$L8<=BUG&#220;N()+15));111)
 

AS3434

Özel Üye
Katılım
13 Ocak 2005
Mesajlar
1,820
Excel Vers. ve Dili
M.Office/Excel 2007 Türkçe
Sonda ki 111 in anlamı yok!
Aslında 1 olacaktı, Yani "Doğru" . Ben sayfada formülü denerken Doğru yada Yanlış yerine 111 ve 222 kullandım. Kopyalarken o şekliyle kopyalamışım. :)

EĞER ile ilgili aşağıdaki linki inceleyin.

http://www.excel.web.tr/showthread.php?t=17327

VE ve YADA fonksiyonları ile ilgili Sayın yurttaş henüz bir çalışma yapmadı. :)
Tüm işlevlerin özelliklerini ve kullanımını Excel Yardımda ( F1 ) bulabilirsiniz.
 
Katılım
23 Ocak 2006
Mesajlar
20
Burda bi detay&#305; g&#246;zden ka&#231;&#305;rm&#305;&#351;&#305;m :(
Ko&#351;ullu bi&#231;imlendimeyi di&#287;er sat&#305;rlara uygulay&#305;nca para birimleride de&#287;i&#351;iyor do&#287;al olarak euro ytl dolar ayr&#305;m&#305; olmuyor bunu nas&#305;l halledebilirim
 
Üst