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

[cocoa35]

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.

 

[Seyit Tiken]

Örnek Dosyayı inceleyiniz.

 

[cocoa35]

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]

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.

 

[cocoa35]

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.

 

[cocoa35]

Bu hatayı verdi

 

[cocoa35]

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

 

[Seyit Tiken]

Örnek dosyayı görmek lazım.

 

[cocoa35]

Örnek dosya ekledim

 

[Seyit Tiken]

Bu şekilde diğer kod satırlarını tamamlayınız.

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