Deneyiniz;

Workbook_Open: Dosya açıldığında ilk kez 30 dakika sonra YenileVeKontrol işlemi başlatılır.
YenileVeKontrol:Tüm bağlantıları RefreshAll...

toplam sayı 4950
çalışılan toplam 4457
kalan 493
depo 203
Fark -290

Direk formülle zor olabilir fonksiyon var. =Dinamik(P1) yazarsan aşağıdaki kod çalışır

Function Dinamik(P1 As Range) As Double
toplam = 0
sonSayfa...

Deneyiniz
Private Sub CommandButton3_Click()
Dim wsAnaSayfa As Worksheet
Dim wsBasketbol As Worksheet
Dim rngAnaSayfa As Range
Dim matchFound As...