Formülün Bozulması

[mc_exrem]

Merhabalar

Dosyamın CAM sayfasının E8 hücresine yazdığım =TOPLA(E11:E99) formülünü dosyayı kapatıp açtığımda kayboluyor. Yardımcı olabilir misiniz.

 

[Ömer]

Merhaba,

Cam sayfasında aşağıdaki kodları kullanmışsınız. Toplama makro ile yapıldığı için formül yok.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A11:A100")) Is Nothing Then Exit Sub
[A8] = WorksheetFunction.Sum([A11:A100])
[E8] = WorksheetFunction.Sum([E11:E100])
End Sub

 

[mc_exrem]

Merhaba,

Cam sayfasında aşağıdaki kodları kullanmışsınız. Toplama makro ile yapıldığı için formül yok.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("A11:A100")) Is Nothing Then Exit Sub
[A8] = WorksheetFunction.Sum([A11:A100])
[E8] = WorksheetFunction.Sum([E11:E100])
End Sub

Ama çalışmıyor?

 

[Ömer]

Kodları silip sade 1. mesajda verdiğiniz formülü hücreye yazın.

 

[mc_exrem]

Kodları silip sade 1. mesajda verdiğiniz formülü hücreye yazın.

teşekkürler