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