Koşullu biçimlendirme

[lepricon]

sorum ektedir, biraz karmaşık olduğu için örneklendirerek sordum yardımlarınız için teşekkürler....

 

[Ömer]

Merhaba,

Bu işlem için makro kullanmanız gerekir.

Çalışma sayfasının kod bölümüne kopyalayınız, daha sonra D5: D9 arasına veri girerek sonuçları gözlemleyiniz..

Private Sub Worksheet_Change(ByVal Target As Range)
 
    Dim Alan As Range, Aralık As Range
 
    If Intersect(Target, [D5:D9]) Is Nothing Then Exit Sub
 
    Set Aralık = Range("E" & Target.Row & ":N" & Target.Row)
 
    Aralık.NumberFormat = "General"
 
    If IsNumeric(Target.Value) = False Then Exit Sub
 
    For Each Alan In Aralık
        With Cells(Target + 1, Alan.Column)
            If Target = 1 Then
                Alan.NumberFormat = """" & .Value & "/""  General"
            ElseIf Target = 2 Then
                Alan.NumberFormat = """" & .Value & "/""  General"
            ElseIf Target = 3 Then
                Alan.NumberFormat = """" & .Value & "/""  General"
            End If
        End With
    Next Alan
 
End Sub

.

 

[lepricon]

Ömer Bey çok teşekkür ederim yardımınız için,
kusuruma bakmayın şehir dışında olduğumdan teşekkürü biraz geç yazabildim.
Hazırladığınız kod işimi çözdü, tekrar tekrar teşekkür ederim..