Belİrlİ Aralikta KoŞullu BİÇİmlendİrme

[hasanvural]

E6:BY246 aralığındaki hücrelere "E" yazınca, o sütunun 5.Satırında ki değeri yazsın.Örnek dosyada da açıklama var.Yardımcı olacak arkadaşlara şimdiden teşekkür ederim.

 

[ileriexcel]

Bir sütun için örnek.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For Each ren In Range("e6:e256")
For Each ren1 In Range("e6:e256")
If ren.Value = "E" Then
If ren1.Value = "E" Then
ren.Interior.ColorIndex = 36
ren1.Value = Range("E5").Value
End If
End If
Next
Next
End Sub

 

[Korhan Ayhan]

Selamlar,

Sayfanızın kod bölümüne aşağıdaki kodu uygulayıp denermisiniz.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [E6:BY246]) Is Nothing Then Exit Sub
    If InStr(1, Target.Address, ":") <> 0 Then Exit Sub
    If IsEmpty(Target) Or UCase(Target) <> "E" Then
    Target.Interior.ColorIndex = xlNone
    End If
    If Not IsEmpty(Target) And UCase(Target) = "E" Then
    Target.Interior.ColorIndex = xlNone
    Target = Cells(5, Target.Column)
    Target.Interior.ColorIndex = 37
    End If
End Sub

 

[hasanvural]

Sayın Cost Control, yazdığınız kodu denedim.Tam istediğim gibi.Elinize sağlık.
Teşekkürler.