Makroyu döngüye alma??

[baykan_m]

Merhaba Arkadaşlar,

Aslında dosyayı eklemek istiyorum ancak dosya dışarıdan başka dosyalara bağlandığı için işlem yapılamayacağını düşündüğümden makrolar ile sormak istedim. Aşağıdaki makroda eğer kullanıcı kırmızı ile belirttiğim koddaki gibi yanlış dosyayı seçerse sürekli döngü tekrarlasın, makroyu başa alsın istiyorum. Umarım anlatabilmişimdir Yardımcı olabilirseniz çok teşekkür ederim.

Sub deneme()

MsgBox ("Lütfen PERSONEL LİSTESİNİ seçiniz!")

dosya = Application.GetOpenFilename(FileFilter:="," & _
"*.xls;*.doc;*.bmp;*.jpg;*.gif;*.pdf;*.mdb", _
Title:="Lütfen indirdiğiniz bordro dosyasını seçiniz!") ' uzantı eklemeleri yapabilirsiniz
If dosya = False Then ' eğer vazgeçe basarsanız
MsgBox "Dosya seçme işlemi iptal edildi!"
Exit Sub
Else
dosyaadi = Mid(Dir(dosya), 1, Len(Dir(dosya)) - 4)
yol = Mid(dosya, 1, Len(dosya) - Len(Dir(dosya)))
uzanti = Mid(Dir(dosya), Len(Dir(dosya)) - 2, 4)
dosyayolu = yol & dosyaadi & "." & uzanti
Workbooks.Open (dosyayolu)
Windows(dosyaadi).Activate

If Range("a1") <> "Personel Listesi" Then
MsgBox ("Yanlış dosya seçtiniz, lütfen PERSONEL LİSTESİNİ seçiniz!")
Windows(dosyaadi).Close
End If

ActiveSheet.Cells.Select
Selection.Copy
Windows("PUANTAJ ŞABLON").Activate
Application.DisplayAlerts = False
Worksheets("Personel Listesi").Select
Worksheets("Personel Listesi").Range("a1").Select
ActiveSheet.Paste
Windows(dosyaadi).Close
Application.DisplayAlerts = True
End If

End Sub

 

[baykan_m]

Henüz problemimi çözemedim maalesef yardımcı olabilecek yok mu acaba

 

[mrwarrior]

Goto özelliğini kullanın. Nereden gitmek istiyorsanız oraya
Goto Buraya
Yazın. Gitmek istediğiniz yere de
Buraya:
Şeklinde yazın.