Hücredeki Formül silindiğinde renk değişsin

Katılım
6 Eylül 2007
Mesajlar
655
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
Arkadaşlar merhaba, bir çalışmam var bu çalışmada sayfa1 de K4:K10 arasındaki hücrelerde bazı formüller var. İsteğim bu hücrelere bir başka şey yazıldığında hücre rengi değişsin , hücrede bulunan formül geri geldiğinde renk eski haline dönsün ( not : esas dosyamda hücre silinip boş bırakıldığında formül geri geliyor) bu mümkünmü acaba? yani bunu yapmamın sebebi kullanıcı hangi hücreyi değiştirdiğini bilmesi maksadı ile yapmak istiyorum.
 

Ekli dosyalar

Katılım
6 Eylül 2007
Mesajlar
655
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
Seyit bey teşekkürler, gayet istediğim gibi olmuş ancak aynı sayfada " Private Sub Worksheet_Change(ByVal Target As Range)" var her iki kodu nasıl birleştirebilirim , aşağıdaki gibi yaptım hata verdi

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [L6:L201]) Is Nothing Then Exit Sub
If Target.HasFormula = 0 Then
Target.Interior.Color = 11854022
Else
Target.Interior.Color = 14083324
End If

If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub

Application.EnableEvents = False
Call fiyat1
Call fiyat2
Application.EnableEvents = True

End Sub
 

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [L6:L201]) Is Nothing Then
Kodlarınız
End If
If Not Intersect(Target, Range("L:L")) Is Nothing Then
Kodlarınız
End If
End Sub

Bu şekilde deneyiniz.
 
Katılım
6 Eylül 2007
Mesajlar
655
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
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [L6:L201]) Is Nothing Then
Kodlarınız
End If
If Not Intersect(Target, Range("L:L")) Is Nothing Then
Kodlarınız
End If
End Sub

Bu şekilde deneyiniz.
 

Ekli dosyalar

Katılım
6 Eylül 2007
Mesajlar
655
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
Bu hatayı verdi
 
Katılım
6 Eylül 2007
Mesajlar
655
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
Kod'ları bu şekilde düzenledim ancak yukarıdaki hatayı verdi maalesef :(


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, [L6:L201]) Is Nothing Then
If Target.HasFormula = 0 Then
Target.Interior.Color = 11854022
Else
Target.Interior.Color = 14083324
End If
If Not Intersect(Target, Range("L:L")) Is Nothing Then
Application.EnableEvents = False
Call fiyat1
Call fiyat2
Application.EnableEvents = True
End If
End Sub
 
Katılım
6 Eylül 2007
Mesajlar
655
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
Örnek dosya ekledim
 

Ekli dosyalar

Seyit Tiken

Uzman
Uzman
Katılım
23 Ağustos 2005
Mesajlar
4,651
Excel Vers. ve Dili
Excel : 2010
Bu şekilde diğer kod satırlarını tamamlayınız.
Kod:
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
 
Üst