Makro Çalıştırırken excel in Donma Yapması

[SpYFuRKy]

Arkadaşlar herkese Kolay gelsin. Makro ile ilgili donma sorunu yaşıyoruz.Kodlarını yolluyorum yardımcı olursanız sevinirim. Basit bir sayma sistemi.

Sub aralık()

For i = 17 To 100
For j = 17 To 100
For k = 17 To 100

Worksheets(1).Cells(1, 1).Value = i
Worksheets(1).Cells(1, 2).Value = j
Worksheets(1).Cells(1, 3).Value = k

Next k

Next j

Next i





End Sub

 

[acar6783]

Sub aralık()

For i = 17 To 100


Worksheets(1).Cells(1, 1).Value = i
Worksheets(1).Cells(1, 2).Value = i
Worksheets(1).Cells(1, 3).Value = i

Next i





End Sub

Bu şekilde yaparsanız da aynı sonucu verecek fakat ne işe yarıyor bu kod: