إلى كيماس هانوك ولد مجرب .....والكثيرمن خبراء الإكسل

[ريان أحمد]

موضوعي القديم

[طارق محمود]

السلام عليكم

أخي طاهر

عندك مشكلة في إيصال ماتريد

أو انك بخيل في الشرح

دائما من يريد المساعدة لابد ان يكون علي علم تام بأبعاد الموضوع

عموما

أرجو أن يكون المرفق هو ماتريد

88-3.rar

[ريان أحمد]

شكرا على المرور وآسف إن كنت بخيلا في الشرح

المرفق السابق هو تقريبا ما أريد ينقصه مايلي

الفورم في إسم الملف جلبت النطاق $j$14:$j$18في الورقة bd وأن أريد $j$14:$j$18في الورقة cl

في جهاز الكمبيوتر لديا وقت وأشهر وسنوات تتغير حسب الوقت والشهر والسنة الحالية

هذا البرنامج الذي عندي أعمل به طيلة شهر كامل بشكل عادي مثلا نحن في شهر ماي أعمل على هذا الملف بشكل عادي لكن عندما يدخل شهر جديد الذي هو جوان وعند فتح ملفي كالعادة يقول لي البرنامج في رسالة قم بلإعمال المذكورة سابقا بالترتيب وفي الأيام العادية الأخرى يدخل البرنامج بشكل عادي وتتكرر هذه العملية في بداية شهر جويلية وأوت وسبتمبر ............................. إلخأي في الأول من كل شهر طيلة السنة

يعني ليس كل ما أفتح المنف تأتي تلك الرسائل ولكن بداية كل شهر وفقط

وفي الأخير آسف آسف آسف

[طارق محمود]

السلام عليكم

أخي الحبيب الغالي

لاداعي أبدا للأسف

أنا اللي متاسف لو كنت ضايقتك

كل الموضوع اني أمازحك لتشرح بزيادة لمن يريد المشاركة

الفورم في إسم الملف جلبت النطاق $j$14:$j$18في الورقة bd وأن أريد $j$14:$j$18في الورقة cl

في محرر الفيجوال بيزيك

انقر علي الفورم

ومن ثم علي دبل كليك علي زر "إنسخ" ، فيظهر لك الكود الخاص به

أضف السطر الأحمر في نفس المكان

Private Sub CommandButton1_Click()

Dim sh As Worksheet

Dim MyFilOpen As String, MyPath As String, MyBook As String

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

On Error GoTo Err_mydate

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

Sheets("cl").Select

Set sh = ActiveWorkbook.Worksheets(ActiveSheet.Name)

Application.ScreenUpdating = False

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

With sh

MyPath = CStr(TextBox2.Value) & ":\" & CStr(TextBox1.Value) & "\"

MyBook = CStr(ComboBox1.Value) & File_Type(MyPath & ComboBox1.Value)

End With

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

Set sh = ActiveWorkbook.Worksheets(MySheet_cl)

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

MyFilOpen = MyPath & MyBook

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

If Dir(MyFilOpen, vbDirectory) = vbNullString Then

MsgBox "ÑÇÈØ ÛíÑ ãæÌæÏ"

Else

Workbooks.Open Filename:=MyFilOpen

Sheets(1).Columns("k:k").Copy sh.Range("m1")

Workbooks(MyBook).Close False

MsgBox "Êã äÓÎ ÇáÈíÇäÇÊ Çáì ÇáæÑÞÉ : " & vbCr & MySheet_cl

sh.Activate

End If

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

Err_mydate:

If Err Then MsgBox "Err.Number:" & vbCr & Err.Number

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

Application.ScreenUpdating = True

Set sh = Nothing

Sheets("cl").Select

End Sub

[طارق محمود]

هذا البرنامج الذي عندي أعمل به طيلة شهر كامل بشكل عادي مثلا نحن في شهر ماي أعمل على هذا الملف بشكل عادي لكن عندما يدخل شهر جديد الذي هو جوان وعند فتح ملفي كالعادة يقول لي البرنامج في رسالة قم بلإعمال المذكورة سابقا بالترتيب وفي الأيام العادية الأخرى يدخل البرنامج بشكل عادي وتتكرر هذه العملية في بداية شهر جويلية وأوت وسبتمبر ............................. إلخأي في الأول من كل شهر طيلة السنة

يعني ليس كل ما أفتح المنف تأتي تلك الرسائل ولكن بداية كل شهر وفقط

تم حل هذه النقطة من قبل

الآن هو يطلب منك الخطوات لأنني حفظته وتاريخ الخلية به يوم من أيام شهر 4 ونحن الآن في شهر 5

غير تاريخ الخلية واحفظه ثم افتحه من جديد فلن يطلب شيئا إذا كان شهر وعام تاريخ الجهاز مطابق لشهر وعامتلك الخلية

[ريان أحمد]

أستاذي TareQ M لقد تم تجربة الكود ونج بشكل جميل جدا ورائع نشكرك من كل قلبي وجزاك الله كل خير

أما فيما يخص نطاق البيانات فلقد تم التغيير في

cl!$J$14:$J$18 ----- rowsource

لكومبكس ومشي الحال

[احمد فضيله]

الأخ العزيز المهندس / طارق

ربنا يبارك في حضرتك

بسم الله ما شاء الله

مجهود كبير جدا جدا جدا

جزاك الله كل خير . و جعلك دائماً في عون المسلمين

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