• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

Yardım On Error GoTo sorunu

karizmax

Yeni Üye
Katılım
20 Haz 2018
Mesajlar
41
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
türkiye
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.?
 
Üst Alt