DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, [A2:A63355]) Is Nothing Then Exit Sub
a = Target.Row
Dolu = WorksheetFunction.CountA(Range("A" & a & ":" & "G" & a))
If Dolu = 7 Then
Range("A" & a).Interior.Color = vbYellow 'rengini sarıya boya
End If
End Sub
Rica ederim .Dönüş yaptığınız için teşekkür ederim.Sayın çıtır çok teşekkür ederim.