Macroyu Sürekli Acik Tutmak

[tristanfermat]

Asagida butona kayitli olan makroyu sürekli acik tutmak istiyorum yani gelen yeni degerlerle sayfadaki degerler hemen degissin. Sürekli makro calistirmak istemiyorum
Nasil yapabilirim?
Tesekkürler

Sub Toplamlar()

    Dim i   As Long, _
        t(3) As Double, _
        Sht As Worksheet
    
    Set Sht = Sheets("CHEF")
    
    For i = 2 To Sht.Cells(Rows.Count, "A").End(3).Row
    
        If Sht.Cells(i, "C") = Date Then t(0) = t(0) + Sht.Cells(i, "B")
        
        If (Year(Sht.Cells(i, "C")) = Year(Date)) And _
            Application.WorksheetFunction.WeekNum(Sht.Cells(i, "C")) = Application.WorksheetFunction.WeekNum(Date) Then _
            t(1) = t(1) + Sht.Cells(i, "B")
        
        If (Year(Sht.Cells(i, "C")) = Year(Date)) And _
            Month(Sht.Cells(i, "C")) = Month(Date) Then _
            t(2) = t(2) + Sht.Cells(i, "B")
        
        If (Year(Sht.Cells(i, "C")) = Year(Date)) Then t(3) = t(3) + Sht.Cells(i, "B")
        
    Next i
        
    Range("D5").Resize(4, 1) = Application.WorksheetFunction.Transpose(t)
    
    
    
End Sub

 

[kemal turan]

Merhaba,
Eğer yukarıdaki kodunuz bir modül içerisinde ise gelen yeni değerler bir kod ile geliyorsa kodunuzun sonuna Call Toplamlar ,
Eğer yukarıdaki kodunuz Örnek: Userform1 içerisinde ise kodunuzun sonuna Call Userform1.Toplamlar ,
ekleyiniz.

 

[Kasniç]

İlaveten sayfada kullanacaksanız. Sayfa Modülüne ekleyin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Call Toplamlar
End Sub

 

[tristanfermat]

Tesekkürler calisti ama bir sorun var su an sayfada herhangi bir yere tiklamadan degerler degismiyor bunu cözmenin bir yolu var mi?

 

[Kasniç]

Aklıma zamanlı makro geliyor bunu kullanabilirsiniz. 3 saniye bir makronuz çalışır. Değiştirebilirsiniz.
Örneğin:
Sub calistir()
Application.OnTime Now + TimeValue("00:00:03"), "Toplamlar"
End Sub

Toplamlar makrosunun End Sub öncesine de Call calistir ekleyiniz.

 

[tristanfermat]

Maalesef ise yaramadi ama aklima bisey geldi sayfada her 3 saniyede bir yere tiklansa otomatik kodla böyle birsey eklenebiliyor mu?