[القناص المحترف]

ممكن كود عند ما اصل اخر ملف في اداة file1 انتقل الى الملف الاول في الاداة الانو هذا الكود هو لمعطل برنامجي
وشكرا :confused:

[ولد رائع]

اكتب هذا الكود في General

PHP كود :

Dim Rsz As Integer 


وهذا الكود داخل امر التالي

PHP كود :

If Rsz <= 0 Then Rsz = File1.ListCount 


وهذا داخل امر السابق

PHP كود :

If Rsz = File1.ListCount Then Rsz = 0 


ان شاء الله يفيدك هذا الكود اخي الكريم

[@@أبورائد@@]

السلام عليكم ورحمة الله وبركاته





[url="http://www.vba4a.com/vb/showthread.php/8773-%D8%A7%D9%84%D8%AA%D8%B9%D8%A7%D9%85%D9%84-%D9%85%D8%B9-%D8%A7%D8%AF%D8%A7%D8%A9-file1"]التعامل مع اداة file1
[/url]




السلام عليكم ورحمة الله وبركاته