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...

Kolay gelsin

Rıca ederım. Formül değilde fonksiyon olabilir.

Sub test()
Dim values, i, ii, say, liste, son
son = 18 ' Cells(Rows.Count, 1).End(3).Row
values = Range( A2:N & son).Value
ReDim liste(1 To (son...

Ellerinize sağlık

Application.EnableEvents = False
Application.EnableEvents = True

Bu kodlar ile excel'in kendini kapatması sorununu çözdüm ve kodları yeniden...

Sizin kodları şu şekilde düzenledim:

Sub buyuktensırala()
Set ws = ThisWorkbook.Sheets( TEST )
lastRow = ws.Cells(ws.Rows.Count, AE ).End(xlUp).Row...

kolay gelsin

Kolay gelsin iyi gunler

Sorunu hallettim. Yine de teşekkür ederim.

sheets( test ).activate yada sheets( test ).select gibi kodlar eklenebilir. Örnek dosya koyunuz foruma