makroda eğer ile biçimlendirme acil yardım

[thugangel]

Arkadaşlar yapmak istediğim şey örmeğin A sütununda ki bir hücrenin değeri, "0" dan büyükse aynı satırda bulunan bazı hücrelere( g , j , l hücreleri gibi) kenarlık çizsin ve yazı rengini değiştirsin. Forumda aradım ama bulamadım.Yadım ederseniz çok sevinirim. (bunu çalışma kitabının bazı sayfalarında yapmasını istiyorum)

 

[Mustafa MUTLU]

İlgili sayfanın kod bölümüne :

Private Sub Worksheet_Change(ByVal Target As Range)

Columns("G:J").Select
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1>0"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With

End Sub

 

[thugangel]

Çok teşekkür ederim. kod çalıştı ancak benim biçimlendirmek istediğim hücreleri kod üzerinde değiştirmeme rağmen sizin yazdığınız hücrelerde biçimlendirme yapıyor.Nasıl bir düzeltme yapmam lazım. benim istediğim F H J L N P hücrelerinde değişiklik yapması

 

[Mustafa MUTLU]

Çok teşekkür ederim. kod çalıştı ancak benim biçimlendirmek istediğim hücreleri kod üzerinde değiştirmeme rağmen sizin yazdığınız hücrelerde biçimlendirme yapıyor.Nasıl bir düzeltme yapmam lazım. benim istediğim F H J L N P hücrelerinde değişiklik yapması

Private Sub Worksheet_Change(ByVal Target As Range)
Columns("F").Select
Call Bicim
Columns("H").Select
Call Bicim
Columns("J").Select
Call Bicim
Columns("L").Select
Call Bicim
Columns("N").Select
Call Bicim
Columns("P").Select
Call Bicim
End Sub
Sub Bicim()
Selection.FormatConditions.Delete
Selection.FormatConditions.Add Type:=xlExpression, Formula1:="=$A1>0"
With Selection.FormatConditions(1).Font
.Bold = True
.Italic = False
.ColorIndex = 5
End With
With Selection.FormatConditions(1).Borders(xlLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.FormatConditions(1).Borders(xlBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End Sub

 

[thugangel]

çoook teşekkür ederim.

 

[thugangel]

iki sorunum var. 1. sorun makro işlemi bittiğinde p sütunu seçili kalıyor. Örn. A8 hücresine değer girdiğimde makro bitince bir altındaki A9 Hücresinin seçili olması mümkün mü?
2. sorun sayfada herhangi bir hücrede bir işlem yaptığımda makro çalışıyor.Sadece A sütunundaki bir hücreye değer girildiğinde çalışması mümkün mü?
şimdiden çok teşekkür ederim.

 

[thugangel]

yukarıdaki iki sorun için cevap bekliyorum yardımcı olursanız çok sevinirim.

 

[thugangel]

Arkadaşlar yok mu yardım. Mustafa Bey yardım Ltfen.