makro koşullu biçimlendirme yaptırmıyor

[gedavet]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub
If Not Intersect(Target, [C4:O65536,S3:AE65536]) Is Nothing Then
On Error Resume Next
ActiveSheet.Shapes("SIRALAMA").Top = Cells(1, Target.Column).Top
ActiveSheet.Shapes("SIRALAMA").Left = Cells(1, Target.Column).Left
ActiveSheet.Shapes("TABLO").Top = Cells(1, Target.Column).Offset(0, 2).Top
ActiveSheet.Shapes("TABLO").Left = Cells(1, Target.Column).Offset(0, 2).Left
ActiveSheet.Shapes("SİLME").Top = Cells(1, Target.Column).Offset(0, 4).Top
ActiveSheet.Shapes("SİLME").Left = Cells(1, Target.Column).Offset(0, 4).Left
End If

If Intersect(Target, [b265536,r2:af65536]) Is Nothing Then
Cells.FormatConditions.Delete
Exit Sub
End If
Dim Satır As Range, Sütun As Range

If Target.Column > 1 And Target.Column < 17 Then
Set Satır = Range(Cells(Target.Row, 2), Cells(Target.Row, "p"))
Set Sütun = Range(Cells(2, Target.Column), Cells(65536, Target.Column))
Renk = 7
End If

If Target.Column > 17 And Target.Column < 33 Then
Set Satır = Range(Cells(Target.Row, 19), Cells(Target.Row, "af"))
Set Sütun = Range(Cells(2, Target.Column), Cells(65536, Target.Column))
Renk = 8
End If

Cells.FormatConditions.Delete

If Application.CutCopyMode = xlCopy Or Application.CutCopyMode = xlCut Then Exit Sub

With Satır
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = Renk
End With

With Sütun
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = Renk
End With

With ActiveCell
.FormatConditions.Delete
.FormatConditions.Add Type:=xlExpression, Formula1:=1
.FormatConditions(1).Font.Bold = True
.FormatConditions(1).Interior.ColorIndex = 6
End With
End Sub










yani bu koddaki yamak istediğim özellik olacak aancak bazı yerede kaşullu biçimlendirme yapmak istiyorum

 

[gedavet]

hocalrımızdan yardımcı olabilen olursa çok iyi olacak

 

[uzmanamele]

merhaba

syn mustafakoza,
bu kodlara bakarak ne istediğinizi anlamamız mümkün değil, koşullu biçimlendirme ne şartla nerede yapılacak?
leb demeden leblebiyi anlayabilecek düzeyde değiliz, sorularınızı örnek dosya ile açıklamaya çalışınız.

 

[gedavet]

bu kaddondan koşullu biçimlendirmeyi silen bölüm silinse ona göre ayarlasom olurmu

 

[gedavet]

http://www.excel.web.tr/showthread.php?t=69274&page=8
bu sayfada ki çalışma da

 

[uzmanamele]

merhaba

syn mustafakoza,
80 mesajlık konuya atıfta bulunuyorsunuz.
sorunun ne olduğunu anlayabilmek için 80 mesajı da okumamızı mı bekliyorsunuz?
kendi açtığınız konuda örnek dosya ve kısa açıklama yapsanız olmaz mı!?

 

[gedavet]

süleyman bey 80 mnezajdaki çalışma sayfasında b3 ile d3 hücreleri boş ide kırmısı dolgu yapmak istiyorum koşullu biçimlendirme ile yapmıyor

 

[parametre]

sartın nedir kosullu biçimlendirme yapmak için yada hucre değeri ne olacaktır

 

[gedavet]

yukarıdaki linkdeki 80 mesajdaki çalışma sayfasında b3 ile d3 hücreleri boş ise kırmısı dolgu yapmak istiyorum koşullu biçimlendirme ile yapmıyor

 

[gedavet]

yardım eden olusa çok iyi olacak şimdiden çok teşekkür ederim

 

[gedavet]

bu kodda yardım eden yokmu hocalarım sizlerin yardımına çok ihtiyacımız var

 

[uzmanamele]

merhaba

syn mustafakoza,
4 gündür sorunuza cevap alamamışsanız bunun anlamı; kimse sorunuzla ilgilenmiyor veya kimse yapamıyor değildir.
sorun sizin yeterince açıklama yapmamanız, sade ve anlaşılır örnek dosya eklememenizdir.
yardım alabilmeniz için sizinde bizlere yardımcı olmanız gerekir. hatayı kendinizde arayın.

 

[gedavet]

ekdeki dosyada yazdım

c1 b3 d3 hücreleri boş ise dolgu rengi ile kırmızı yapmak istiyorum

 

[gedavet]

lütfen sorum anlaşılmıyorsa nasıl anlata bilirim yapmak istediğim aslında çok basit ancak makro yaptırmıyor c1 b3 d3 hücreleri boş ise dolgu rengi ile kırmızı yapmak istiyorum

 

[leumruk]

Merhaba,
Elinizdeki kodlar her hücre seçiminde koşullu biçimlendirmeleri iptal ettiğinden koşullu biçimlendirme yaptığınızda kalıcı olmuyor. Bu nedenle isteğinizi kodlarınızın sonuna eklenecek bir kaç satırla çözmek daha mantıklı olur. Örneği inceleyiniz.

 

[gedavet]

mustafa altun bey teşekkür ederim yapmak istediğim oldu

 

[gedavet]

mustafa bey ekleyi verdiğiniz makrodaki kod ikinci bir tablo eklediğim zaman olmuyor

 

[leumruk]

mustafa bey ekleyi verdiğiniz makrodaki kod ikinci bir tablo eklediğim zaman olmuyor

Syn. mustafakoza,
Olmaması normal; çünkü siz b3, c3, d3 olarak istediniz, ben de ona göre yaptım. Lütfen soru sorarken isteğinizi ayrıntısıyla belirtin. Küçük bir ayrıntı kodları yeniden yazmamızı gerektirebiliyor. Emek sarfedilen bir şeyi tamamen değiştirmek sıkıntı veriyor.
Yeni örnek ekte...
NOT: Dosya yeniden güncellendi.

 

[gedavet]

mustafa bey öncelikle çok teşekkür ederim ancak sizi çok uğraştırdım yeni taplo ekleyince taplonun içindeki dolgu renklerini iptal ediyor 3. satırı iptal etmiyor diğer satırları iptal ediyor yani mesela c30 p30 arasını açık sarı yapsın gibi bir mantık yazıverseniz ben diğerlerini uygulasam yani taployu her eklediğimde yukarıdaki renkler kalacak yeni taploda mesela 30 satır sarı 31 satır başka bir renk gibi

 

[leumruk]

Merhaba,
Belirttiğiniz aralığı elle renklendirebilirsiniz. Bölmeyi seçtiğinizde mor görünmesi sizi yanıltmasın, renklendirmeyi yaptığınızda sarı renk olacaktır, başka bir hücreyi seçtiğinizde renklendirmeniz görülecektir.