- Katılım
- 6 Kasım 2005
- Mesajlar
- 300
- Altın Üyelik Bitiş Tarihi
- 06-09-2023
dosya ektedir...yardımlarınız için şimdiden tşk.ler...
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [C:C]) Is Nothing Then Exit Sub
satirlar = "A" & Target.Row & ":G" & Target.Row
Select Case Target
Case "Arz", "arz": Range(satirlar).Interior.ColorIndex = 37
With Range(satirlar).Font
.Name = "Times New Roman"
.Size = 14
End With
Case "Beklemede", "beklemede": Range(satirlar).Interior.ColorIndex = 38
Case "Giriş", "giriş": Range(satirlar).Interior.ColorIndex = 12
Case "Çıkış", "çıkış": Range(satirlar).Interior.ColorIndex = 48
End Select
End Sub
işinize yaradığına sevindimteşekkürler komatan63...elinize sağlık...