استدعاء الفاتورة من فولدر الفواتير للتعديل عليها ثم ترحيلها للفولدر نفسه بالاسم والعميل نفسهما

[محمد يوسف]

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

أساتذة وخبراء هذا المنتدي الراقي

عندي برنامج جميل جداً وأنا أدير أعمالي الحسابية به

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

لتعديلها ثم ترحيلها مرة أخرى إلى فولدر الفواتير وبنفس اسم العميل الذي هو مأخوذ من العمود b1

وباقي الشرح في الملف المرفق.

البرنامج وشرح المطلوب.rar

[محمد يوسف]

احبتي في الله

ارجو المساعدة

البرنامج وشرح المطلوب.rar

[Emad Sabry]

هتاخد فولدر الفواتير وتروح بيه لبارتيشن e وتحطه paste 

 

ودا الملف اللى هتستدعى بيه الفاتورة هيظهرلك الملف بتاعها عدل براحتك وبعدين دوس حفظ و اقفل الملف 

 

وخلى بالك من الاسم مينفعش تكتب مثلا فى برنامج المحاسبة  محمد يوسف 

وتيجى تكتب اسمه فى  ملف الفاتورة الخاص به محمد  يوسف يعنى تدوس فى واحدة مسطرة واحدة والتانية تدوس مرتين على المسطرة بين محمد ويوسف 

هيظهرلك خطأ 

 

ودا الكود اللى تم استخدامه 

Sub استدعاء_فاتورة_من_الفواتير()
Dim Filename As String
Filename = Range("B1").Value
Workbooks.Open ("e:\الفواتير\" & Filename & ".xlsm")
End Sub

 

برنامج المحاسب.xlsm

[محمد يوسف]

اخي  Emad Sabry  انا احبك  في الله - واسأل الله ان يجعل هذا العمل  في مزان حسناتك اللهم امين

هذا  ما اريد فعلاً  بالضبط كود جميل جداً

بس انا اسف 

لاني ليه طلب عندك  في نفس البرنامج ارجو منك 

المساعدة في ما اريد

 

تم تعديل نوفمبر 27, 2018 بواسطه محمد يوسف
مكررة

[محمد يوسف]

اخي  Emad Sabry  انا احبك  في الله - واسأل الله ان يجعل هذا العمل  في مزان حسناتك اللهم امين

هذا  ما اريد فعلاً  بالضبط كود جميل جداً

بس انا اسف 

لاني ليه طلب عندك  في نفس البرنامج ارجو منك 

المساعدة في ما اريد البرنامج وشرح المطلوب.rar

[محمد يوسف]

اخي  Emad Sabry  انا احبك  في الله

في ٢٧‏/١١‏/٢٠١٨ at 10:48, محمد يوسف said:

اخي  Emad Sabry  

المساعدة في ما اريد البرنامج وشرح المطلوب.rar

 

تم تعديل نوفمبر 28, 2018 بواسطه محمد يوسف

[Emad Sabry]

تم تعديل كل المطلوب 

وهذا هو الكود المستخدم لترحيل B1الى العمود K بدون تكرار والكود من ابداع الاستاذ @رجب جاويش ولكن قمت بتعديله ليناسب خلية واحدة بنفس الشيت وليناسب باقى متطلباتك 

Sub ragab()
Dim cl As Range, LR As Integer
Dim Sh As Worksheet, R_N As Integer
Set Sh = Sheet1

X = [B1]
LR = Sh.[K5000].End(xlUp).Row + 1
Range("B1").Copy
For Each cl In Sh.Range("K2:K" & LR)
    If cl = X Then
        R_N = cl.Row
        Sh.Cells(R_N, 11).PasteSpecial xlPasteValues
        GoTo 1
    End If
Next
Sh.Cells(LR, 11).PasteSpecial xlPasteValues
1: Application.CutCopyMode = False

   End Sub

وتم تفعيله بمجرد تغيير الخلية فى B1 عن طريق الكود التالى فى sheet1 

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then
        Call ragab
    End If
End Sub

 

وتم تعديل data validation لتظهر لك الاسم عند كتابة اول حرف 

وتم الغاء الرسالة التى تظهر لك عند فتح الشيت 

برنامج المحاسب.xlsm

تم تعديل نوفمبر 28, 2018 بواسطه Emad Sabry

[محمد يوسف]

استاذ Emad Sabry  اشكرك  وبارك الله فيك

هذا هو المطلوب  بالنسبة لترحيل 

انا عايز البحث ايضاً في عمود  b1  

[Emad Sabry]

الان, محمد يوسف said:

استاذ Emad Sabry  اشكرك  وبارك الله فيك

هذا هو المطلوب  بالنسبة لترحيل 

انا عايز البحث ايضاً في عمود  b1  

هو بحث ايضا لما تدخل حرف الالف مثلا وتدوس على سهم هيظهرلك كل اللى بيبدأ اسمائهم بالالف 

[محمد يوسف]

البحث في b1   مش شغال 

انا عيايز البحث في b1   لسبب  عندما اسجل اسم عميل جديد لو هو موجود من فطرة قبل ذالك  يظهر لي  فقوم باختيارة  بدل من  2 فاتورة يبقي فاتورة وحدة

تم تعديل نوفمبر 28, 2018 بواسطه محمد يوسف

[Emad Sabry]

اكتب الاسم فى B1 ودوس على السهم هيظهرلك كل البيانات لو كتبت محم كل اللى بيبدأ اسمهم ب محم هيظهرلك لما تدوس على السهم فتقدر تعرف دا عندك ولا لأ 

زى الصورة كدا 

تم تعديل نوفمبر 28, 2018 بواسطه Emad Sabry

[محمد يوسف]

استاذ Emad Sabry   اشكرك علي الاهتمام وبارك الله فيك

ولكن انا عايز اسناء كتابة الاسم  - مثلا  - الان  جالي عميل  وطلب مني شغل  وانا  بايع لهو من فطرة  وانا معرفش اني بائع لهو من قبل

فاسناء كتابة اسمه   واول حرف يظهر الاسم المطابق

[Emad Sabry]

انت كدا عاوز تعمل كومبو بوكس وعلشان تعمل كومبو بوكس لازم تعدل فى كل الاكواد علشان تبقى مرتبطة مع كومبو بوكس وليس B1 

فدا اسهل طريقة عملتهالك كان لازم تقول من الاول انك عاوز كدا لان كدا هنغير كل الاكواد 

[محمد يوسف]

لا انا مش عايز  كومبو بوكس 

لكن لو في اي طريقه غير data validation يبقي افضل

لو ينفع  كود  يبقي تمام

[Emad Sabry]

لو كود هيكون كود data validation برضه 

تانى حاجة انت بتقول عندك عملاء كتير فلو كتبت م برضه مش هيظهر الاسم لان فى كذا اسم عندك هيكون هيبدأ ب م زى محمد و محمود ومهدى ومن الممكن ان يكون عندك كذا اسم زى محمد فبرضه مش هيظهر لكن الطريقة اللى عملتهالك اكتر طريقة هتفيدك لانه هيظهر كل الاسماء 

تانى حاجة حتى لو العميل دا متسجل عندك مش هيتكرر تانى فى العمود K ولما تحفظ الفاتورة هتلاقيه ظهرلك تحذير ان اسم الفاتورة دى موجود قبل كدا 

 

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

 

[محمد يوسف]

استاذ Emad Sabry  اشكرك  وبارك الله فيك

واسأل الله ان يزيدك علماً وان يجعل هذا العمل في  مزان حسناتك  اللهم امين