- Katılım
- 17 Kasım 2006
- Mesajlar
- 39
- Excel Vers. ve Dili
- excel 2000 sp2 türkçe
üSTADLAR YARDIM LÜTFEN :yardim: AŞAĞIDAKİ KODLARI KAYIT MAKROSU İLE YAPTIM KODLAR GÜZEL ÇALIŞIYOR ANCAK BİR SORUN VAR HERŞEYİ YAPIYOR FAKAT İLK BİÇİMLENDİRMEDEN SONRAKİ İKİ BİÇİMLENDİRMEDE YAZI RENGİNİ AYARLAMIYO. BU BİÇİMLENDİRMELERİ ÖZET TABLO İÇİNDE YAPIYORUM. NEYİ EKSİK YAPIYORUM BİLMİYORUM BANA YARDIM EDİN LÜTFEN.
Sub Makro1()
'
' Makro1 Makro
'
'
Range("J7").Select
Cells.FormatConditions.Delete
Range("J7:J54").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=VE($G7=""GELİR"";J7<0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).ScopeType = xlDataFieldScope
Range("J7:J54").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=VE($G7=""YÖNETİM GİDERLERİ"";J7>0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).ScopeType = xlDataFieldScope
Range("J7:J54").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=VE($G7=""HİZMET MALİYETİ"";J7>0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).ScopeType = xlDataFieldScope
End Sub
TEŞEKKÜRLER
Sub Makro1()
'
' Makro1 Makro
'
'
Range("J7").Select
Cells.FormatConditions.Delete
Range("J7:J54").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=VE($G7=""GELİR"";J7<0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).ScopeType = xlDataFieldScope
Range("J7:J54").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=VE($G7=""YÖNETİM GİDERLERİ"";J7>0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).ScopeType = xlDataFieldScope
Range("J7:J54").Select
Selection.FormatConditions.Add Type:=xlExpression, Formula1:= _
"=VE($G7=""HİZMET MALİYETİ"";J7>0)"
Selection.FormatConditions(Selection.FormatConditions.Count).SetFirstPriority
With Selection.FormatConditions(1).Font
.Color = -16776961
.TintAndShade = 0
End With
Selection.FormatConditions(1).StopIfTrue = False
Selection.FormatConditions(1).ScopeType = xlDataFieldScope
End Sub
TEŞEKKÜRLER