Kod:
Sub KLASÖR_GEC_KOPYALA()
On Error GoTo uyarı
sut = 1
For i = 1 To 10
sut = sut + 1
dosya = Range("H" & sut)
nereye = Range("J2")
Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CopyFile dosya, nereye
dosya = Range("i" & sut)
FSO.CopyFile dosya, nereye
devam:
Next i
Exit Sub
uyarı:
MsgBox dosya
GoTo devam
End Sub
Merhaba, yukarıdaki kodda ilk hatada uyarı bölümüne gidiliyor, ancak 2 hatada proğram hata verip duruyor neden acaba
yardımcı olabilir misiniz.?