الرجاءالمساعدة في التأكد من وجود الملفات

[deyad]

الرجاءالمساعدة في التأكد من وجود الملفات :

^اريد عندما اضغط على الزر يرجع لي اي من الاسماء الموجودة في العمود A موجودة في المجلد ويضع لها True في العمود b

المثال في الارفاق شكراً لكم...

Test.rar

[عبدالله باقشير]

السلام عليكم

الحل بطريقتين :

بمعادلة معمولة بالكود

وباستخدام الكود المشمول ايضا على المعادلة

بالضغط على زر الكود

Option Explicit

'

'


Sub kh_Test_MyFillName()

    Dim R As Long

    Columns("B:B").ClearContents

    Do

        R = R + 1

        Cells(R, "B") = FilePath_Test(CStr(Cells(R, "A")))

    Loop While Cells(R, "A") <> ""

End Sub


'=======================================================

Function FilePath_Test(MyName As String) As Boolean

Dim MyPath As String

If Len(MyName) = 0 Then GoTo 1

MyPath = ThisWorkbook.Path & "\" & MyName & "*"

FilePath_Test = Not Dir(MyPath, vbDirectory) = vbNullString

1:

End Function

المرفق بمعيتها ملفين اكسل

اكسل 2003

اكسل 2007

Test.rar

[deyad]

السلام عليكم اخي الكريم فضلت

ومشكور شكر كبير

واتمنى ان اصل لبعض ما عندك

وشكراً كثيراً لحل مشكلتي

واتمنى الله ان يكافئنا على فعل الخير والسلام

واذا امكن يوجد شق ثاني اريده هل يمكن؟

اود اضافة ارتباط تشعبي ايضاً في نفس العمود A على الملفات الموجودة فقط التي لها قيمة true فقط

وشكراًمرة ثانية

تم تعديل أبريل 21, 2011 بواسطه deyad

[عبدالله باقشير]

السلام عليكم

اود اضافة ارتباط تشعبي ايضاً في نفس العمود A على الملفات الموجودة فقط التي لها قيمة true فقط

شاهد المرفق

المرفق بمعيتها ملفين اكسل

اكسل 2003

اكسل 2007

Test1.rar