اذهب الي المحتوي
أوفيسنا

الردود الموصى بها

قام بنشر

في المرفق كود ساعدني به الاستاذ مختار جزاه الله كل خير

أرجو مساعتي في تعديل الجزء المتعلق باختيار ملف الوورد فبدلا من اختياه من نافذة حوار أن يأخذ اسم الملف ومساره من الشيت 2 الخلية لتكن A1

والشكر لكم  للاستاذ مختار مرة أخرى

وبارك الله

قائمة بالاسعار مختار.rar

قام بنشر

أخي الكريم محي

قم بوضع تعليق على هذه الأسطر التي تقوم بفتح مربع حواري لاختيار الملف منها

'    Set FD = Application.FileDialog(msoFileDialogOpen)
'    FD.Show
'    If FD.SelectedItems.Count <> 0 Then
'        FName = FD.SelectedItems(1)
'        Else
'        Exit Sub
'    End If

وضع هذا السطر .. قبلها أو بعدها (مش هتفرق)

FName = Sheet2.Range("A1").Value

 

ممكن ترفق ملف الورد المستخدم في مثالك للإطلاع عليه والاستفادة منه

تقبل تحياتي

قام بنشر

الحمد لله أن تم المطلوب على خير ..

وإن كان ع الحشيش ، فأنا عندي للأسف مفيش .. ممكن نستعين بأحد الأصدقاء من كفور بلشاي (مش عارف هو ظهر فجأة واختفى تاني ليه)

 

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information