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)
On Error GoTo Son
Dim Son As Long
Son = [B65536].End(3).Row
If Target.Row < 9 Then Exit Sub
Range("B9:AK" & Son).Interior.ColorIndex = xlNone
Range("B" & Target.Row & ":AK" & Target.Row).Interior.ColorIndex = 36
Son:
End Sub
arkadaşım ben makrodan anlamam.eğer dosyayı sen yapıp ´gönderirsen memnun olurum[/QU OTE]
Sayın;Necdet Yeşertener Hocamızın Hazırladığı Kodları Ben Ekledim Çalışma sayfasına
Necdet Bey Çalışmanız İçin Teşşekürler
arkadaşlar çok teşekkür ederim.sayfa koruması yaptığımda.olmuyor neden olabilir acaba