cocoa35
Altın Üye
- Katılım
- 6 Eylül 2007
- Mesajlar
- 654
- Excel Vers. ve Dili
- excel 2016 32 Bit ve Excel 2020 32 Bit Türkçe ve İngilizce
- Altın Üyelik Bitiş Tarihi
- 10-12-2024
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, [K4:K10]) Is Nothing Then Exit Sub
If Not Range("K4").HasFormula Then Range("K4") = "=Sayfa2!F4"
If Not Range("K5").HasFormula Then Range("K5") = "=Sayfa2!F5"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("K:K")) Is Nothing Then Exit Sub
If Target.Row >= 4 And Target.Row <= 10 Then
If Target.HasFormula = 0 Then
Target.Interior.Color = 11854022
Else
Target.Interior.Color = 14083324
End If
End If
Application.EnableEvents = False
Call fiyat1
Application.EnableEvents = True
End Sub