satır renklendirilmesi

[asker156]

iyi çalışmalar arkadaşlar. Benim bir sorunum vardı. f hücresine bir veri yazdığımda aynı satırın a dan g ye kadar yeşil boyanması gerekli. Ve ayrıca bu olaylar sayfa 2 sayfa 3 ve sonralarında da olması gerekli.. Arkadaşlar ilgileriniz için şimdiden teşekkür ederim

 

[Orion1]

Aşağıdaki kodu çalışma sayfasının ilgili kod sayfalarına yazınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.Range("F1:F65536")) Is Nothing Then Exit Sub
On Error Resume Next
Range(Cells(Target.Row, "A"), Cells(Target.Row, "G")).Interior.ColorIndex = 50

End Sub

 

[Seyit Tiken]

Gri sütuna değer girerek olayı gözlemleyiniz.

 

[asker156]

sayın orion2 afedersiniz ben yazmayı unutmuşum. f hücresindeki verinin silinmesi durumunda satır renksiz duruma gelmesi gerekli.

 

[asker156]

Say&#305;n seyit tiken; =E&#286;ER($F15<>"";1;0) bu form&#252;lde F15 de&#287;erini di&#287;er sat&#305;rlarda nas&#305;l serisi yap&#305;labilir. Birde bu sayfalarda veriler &#231;ok olacak. &#304;leriki zamanlarda Yava&#351;lamaya neden olurmu.

 

[Orion1]

sayın orion2 afedersiniz ben yazmayı unutmuşum. f hücresindeki verinin silinmesi durumunda satır renksiz duruma gelmesi gerekli.

Aşağıdaki kodu kullanınız.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.Range("F1:F65536")) Is Nothing Then Exit 
On Error GoTo hata
If Target.Value <> "" Then
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "G")).Interior.ColorIndex = 50
    Else
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "G")).Interior.ColorIndex = xlNone
End If
hata:
End Sub

 

[asker156]

say&#305;n; Orion2 son verdi&#287;iniz kod hata veriyor

 

[atrixum]

say&#305;n; Orion2 son verdi&#287;iniz kod hata veriyor

End if
eksik kalm&#305;&#351; eklersen d&#252;zelir

 

[Orion1]

sayın; Orion2 son verdiğiniz kod hata veriyor

Aşağıdaki kodu deneyiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, ActiveSheet.Range("F1:F65536")) Is Nothing Then Exit [COLOR="Red"][B]Sub[/B][/COLOR]
On Error GoTo hata
If Target.Value <> "" Then
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "G")).Interior.ColorIndex = 50
    Else
    Range(Cells(Target.Row, "A"), Cells(Target.Row, "G")).Interior.ColorIndex = xlNone
End If
hata:
End Sub

 

[asker156]

bu istedi&#287;im gibi te&#351;ekk&#252;rler

 

[Orion1]

bu istediğim gibi teşekkürler

Rica ederim.
İyi çalışmalar.