bu döngü neden sürekli devam ediyor?

[zeliha]

Private Sub CommandButton1_Click()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("C:\paramet\eks")
Set dc = f.Files
For Each dosya In dc
For a = 2 To 33
For k = 1 To 1222
ProgressBar1.Value = a - 1
Cells(k, a - 1) = ExecuteExcel4Macro("'C:\paramet\eks\[" & dosya.Name & "]sayfa1'!R" & a & "C2")
Next k
Next a
Next
End Sub




a=33 olunca tekrar a=2 den başlıyor?

 

[Levent Menteşoğlu]

For Each dosya In dc
For a = 2 To 33
For k = 1 To 1222

Bu gayet normal, işlemler en üstteki döngüdeki çevrim bitene kadar devam edecektir. Bu kodla ne yapmak istediğinizi belirtirseniz ona göre yardımcı olalım.

 

[zeliha]

a=33 değerini de işleyince döngünün bitmesini istiyorum

 

[Levent Menteşoğlu]

Next k

yukarıdaki satırdan sonra aşağıdaki satırı ilave ederek deneyin.

if a=33 then exit sub