tristanfermat
Altın Üye
- Katılım
- 12 Haziran 2018
- Mesajlar
- 98
- Excel Vers. ve Dili
- Excel 365
- Altın Üyelik Bitiş Tarihi
- 15-08-2026
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
Nasil yapabilirim?
Tesekkürler
Kod:
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