Formüllerin hesaplanması ( Texbox )

[sensizsoldum]

Merhaba,
Aşağıda yazılan kod, Texbox tan veri süzme işlemi yapıyor. Texboxta veri varken süzme aktif oluyor, Texboxta veri silinince süzme kapanıyor. Bu koda bir özellik daha kazandırmak istiyorum.
Texboxa veri YAZILIRKEN formüllerin hesaplanması manuel, yazma işlemi bitti otomatik, veri var ama yazma işlemi bitti yine otomatik olarak uyarlana bilir mi? Yani Texboxa sadece veri yazılırken formüllerin hesaplanması manuel olsun istiyorum. Veri yokken veya veri var ama yazma işlemi bitti yine otomatik.
Umarım net bir şekilde anlatabildim.

 Private Sub TextBox1_Change()
    On Error Resume Next
    Son = Cells(Rows.Count, 1).End(3).Row
    metin = TextBox1.Value
         If metin = "" Then
    Range("a" & 2 & ":a" & Son).AutoFilter
    Exit Sub
    End If
    Set bul = Range("a" & 2 & ":a" & Son).Find(What:=metin)
    Application.GoTo Reference:=Range(bul.Address), Scroll:=False
    Range("a" & 2 & ":a" & Son).AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
        End Sub

 

[sensizsoldum]

Merhaba,
Yukarıda ki kodlara bu özelliği kazandıracak bir yol yordam yok mu arkadaşlar,
Sayfada sürekli olarak formüllerin hesaplanmasını, aktif pasif yapıyorum.

 

[sensizsoldum]

Merhaba
Konuya örnek dosya eklenmiştir.Dosya üzerinde açıklamarda mevcut olup, yukarıdaki mesaja göre düzenlemeler yapılabilir.
İlgilenen arkadaşlara şimdiden teşekkür ediyorum.

İyi çalışmalar

 

[Korhan Ayhan]

Aşağıdaki gibi olabilir.

Private Sub TextBox1_Change()
    On Error Resume Next
    Application.Calculation = xlCalculationManual
    
    Son = Cells(Rows.Count, 1).End(3).Row
    metin = TextBox1.Value
         If metin = "" Then
    Range("a" & 2 & ":a" & Son).AutoFilter
    Exit Sub
    End If
    Set bul = Range("a" & 2 & ":a" & Son).Find(What:=metin)
    Application.GoTo Reference:=Range(bul.Address), Scroll:=False
    Range("a" & 2 & ":a" & Son).AutoFilter Field:=1, Criteria1:=TextBox1.Value & "*"
    Application.Calculation = xlCalculationAutomatic
End Sub

 

[sensizsoldum]

Merhaba,
Araya eklenen kodları, makro kaydet ile eklemiştim pek bişeyler farketmemişti. Şimdi yine öyle. Ben farklı bir şeyler yapılacağını düşünüyordum.
Sayfada =TOPLAM(C3:C65536) toplam formülü bulunmakta süzülen veriyi değilde verinin tamamını topluyor. Ozaman bu Formülde süzülen verinin toplamını görmek için değişiklik yapılması mı gerekiyor.
Bu amaçla formüllerin hesaplanması manuel ve otomatiğe almak istemiştim.

 

[Korhan Ayhan]

Süzülen verilerde sonuç görmek için ALTTOPLAM fonksiyonu kullanılmaktadır. Forumda örnekler var arama yapınız.

 

[sensizsoldum]

Merhaba,
Teşekkür ederim Korhan Bey, Böylelikle toplamalarında farklı olduklarını öğrenmiş oldum. Bundan hariç birçok toplama yöntemi de varmış.

İyi akşamlar dilerim.