Makro koduna alternatif

[neyzenburak]

Exceldeki döngüsel başvuru probleminden ötürü ufak bir makro kodu hazırladım ancak biraz yavaş çalışıyor.

Aşağıdaki döngüye alternatif daha hızlı çalışabilecek bir öneriniz var mıdır ?

Sub denemedongu()
Application.ScreenUpdating = False
Dim ticarisat As Single 'ticarilerin satırı
Dim ongsut As Single 'manuel sipariş girilen sütun
Dim stok As Single 'bir sonraki haftanın kalan stok sütun numarası
Dim x As Long
Dim stokdeg As Single 'bir sonraki haftanın kalan stok miktarı
Dim sipmik As Single 'şuan gereksiz
ticarisat = 336
Set ambmik = Sayfa17.Cells(ticarisat, 3) 'ambalaj içi miktarı




For ongsut = 84 To 156 Step 4 '84 88 92 olmalı
For ticarisat = 336 To 364
stok = ongsut + Sayfa17.Range("ce335")
stokdeg = Sayfa17.Cells(ticarisat, stok)
sipmik = Sayfa17.Cells(ticarisat, ongsut)
ambmik = Sayfa17.Cells(ticarisat, 3)
Application.Calculation = xlCalculationManual

    If stokdeg < 0 Then
    x = 1
         Do
            stokdeg = Sayfa17.Cells(ticarisat, stok)
            ActiveSheet.Cells(ticarisat, ongsut) = ambmik * x
            Application.Calculation = xlCalculationAutomatic
            x = x + 1
            stokdeg = Sayfa17.Cells(ticarisat, stok)
          Loop Until stokdeg > 0
    Else
    
    End If
  Application.Calculation = xlCalculationAutomatic
 
Next ticarisat
Next ongsut
Application.ScreenUpdating = True

End Sub

Merhabalar,

 

[ÖmerFaruk]

Örnek dosyanızı da ekleme şansınız var mı?