Soru Diğer sütuna geçtiğim zaman hücre biçimlendirme sıfırlansın.

[nunu446]

Merhaba. Eklediğim dosyada sütun içinde veri olduğu zaman B sütununda onun karşısı yeşil olaraq işaretleniyor, vba ile d sütununa geçtiğim zaman yeşillerin sıfırlanmasını nasıl yapa bilirim? Yani C sütununda işim bitdi diyelim, D sütununda veri yazdığım anda koşullu biçimlendirme otomatik olarak D sütununa göre boyansın ve ya D bittiğinde E böyle devam etsin. Umarım anlata bilmişim. Önceden teşekkürler.

 

[nunu446]

İndir MƏLUMAT smetalar2

Dosyayı indir MƏLUMAT smetalar2

dosya.co

 

[ÖmerFaruk]

Sayfanızdaki varsa koşullu biçimlendirmeleri sıfırlayın.
Aşağıdaki kodu sayfanızın kod sayfasına ekleyin

Dim myColumn As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C4:XFD103")) Is Nothing Then Exit Sub
    If Target.Column < 3 Then Exit Sub
    If Target.Column <> myColumn Then
        myColumn = Target.Column
        myRange = Cells(4, Target.Column).Address(0, 1)
        With Range("B4:B103")
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=EBOŞSA(" & myRange & ")=Yanlış"
            .FormatConditions(1).Interior.Color = RGB(0, 255, 0)
        End With
    End If
End Sub

 

[nunu446]

Sayfanızdaki varsa koşullu biçimlendirmeleri sıfırlayın.
Aşağıdaki kodu sayfanızın kod sayfasına ekleyin

Dim myColumn As Integer
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Target, Range("C4:XFD103")) Is Nothing Then Exit Sub
    If Target.Column < 3 Then Exit Sub
    If Target.Column <> myColumn Then
        myColumn = Target.Column
        myRange = Cells(4, Target.Column).Address(0, 1)
        With Range("B4:B103")
            .FormatConditions.Delete
            .FormatConditions.Add Type:=xlExpression, Formula1:="=EBOŞSA(" & myRange & ")=Yanlış"
            .FormatConditions(1).Interior.Color = RGB(0, 255, 0)
        End With
    End If
End Sub

Cevabınız için teşekkür ederim, ama çalışmadı, Formülde eboşsa yazmışsınız onu isblank da yaptım olmadı, acaba niye? Bende ingilizce excel

 

[ÖmerFaruk]

Dosyanın makrolu hali aşağıdaki linktedir.
https://dosya.co/2c0ocichevfw/MƏLUMAT_makrolu.xlsm.html

 

[nunu446]

Dosyanın makrolu hali aşağıdaki linktedir.
https://dosya.co/2c0ocichevfw/MƏLUMAT_makrolu.xlsm.html

Makroda yine eboşsa yazılmış, o isblank olmalı, o yüzden çalışmıyo