حسونة حسين

السلام عليكم ورحمه الله وبركاته وبها نبدأ

تفضل اخى

باسسورد الدخول 123

نظام الحسامي للمخازن-123.xlsb

السلام عليكم ورحمه الله وبركاته وبها نبدأ

جرب هذا التعديل اخى @mahmoud nasr alhasany

Gestion Stocks Magasin1.xlsm

الحمد لله الذي وفقك لما تريد اخى @mahmoud nasr alhasany

ولا داعى ابدا للاعتذار

فكلنا هنا من اجل هدف واحد

وهو مساعده اخواننا

تفضل لان الخليه f3 بها تاريخ ظهر لك هذا الخطأ

sNewFilePath = ThisWorkbook.Path & "\" & Replace(Range("F3").text, "/", "-") & ".pdf"

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

عدل السطر الى

sNewFilePath = ThisWorkbook.Path & "\" & Range("F3").text & ".pdf"

هذا الموضوع مخالف لقوانين المنتدي

××××××××

موضوع مكرر
××××××××
يغلق
××××××××

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

يرجى رفع ملف للعمل عليه

هذا الموضوع مخالف لقوانين المنتدي

××××××××

موضوع مكرر
××××××××
يغلق
××××××××

بارك الله فيك اخى كمال

اخى السائل هذا

رابط

للموضوع الاساسي للمرفق الذي في سؤالك يمكنك الاستفاده منه

لا يوجد قائمه منسدله

انما ليست بوكس

يتم التحكم بها من الكود

Listbox1.left = 8000

Listbox1.top = 5

ممكن تعدلهم كيفما شئت

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

يرجي رفع ملف للعمل عليه

هذا الموضوع مخالف لقوانين المنتدي

××××××××

موضوع مكرر
××××××××
يغلق
××××××××

جزاكم الله خيرا على دعاؤكم الطيب

الحمد لله الذي بنعمته تتم الصالحات

تفضل اخي جرب هذا التعديل

اخي الكود يقوم بالاتي

١ - يبحث عن ما تكتبه قي التيكست بوكس

٢ - يضيفه في الليست بوكس

٣ - الضغط مرتين على البيان الذي تريده في الليست بوكس ضغطتين متتالتين

٤ - عندها يقوم بعمل فلتر للبيان في الشيت

٥- يقوم بترحيل البيان الى ورقه الارصده 

٦ - يقوم بمسح الرقم من التيكست بوكس 

٧- عندما يتم مسح الرقم من التيكست بوكس يتم ازاله الفلتر

MD_24-04-2024.xlsm

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

جرب هذا التعديل

نموذج ادخال بيانات الحجاج داخل الشيت.xlsm

تفضل

 = "\\10.20.30.3\homedir\a.ghanem\PDF-Recipts\" & Sh.Range("e13") & "  ايصال رقم " & Sh.Range("i1") & ".pdf" 

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

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

غير المسار الي اي مسار داخل جهازك ووافنا بالنتائج

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

هل هو نفس الطلب بهذا الرابط ام لا 

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

عدل 

DestPath = ThisWorkbook.Path & "\" & Sh.Range("e11") & ".pdf"

الى

DestPath = "\\10.20.30.3\homedir\a.ghanem\كشف العمليات اليومية\"  & Sh.Range("e11") & ".pdf"

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

مرحبا بك في اول مشاركه لك بالمنتدي بين اخوانك 

من فضلك ارفق ملف اخي

السلام عليكم ورحمه الله وبركاته وبها نبدأ

1- قم بوضع هذا الكود في موديل جديد

2- قم بحفظ الملف بصيغه تقبل الماكرو وليكن XLSB

3- ثم شغل الكود

Sub Tarhil()
    Dim WS As Worksheet, SH As Worksheet, AR1, AR2, I As Long, J As Long, LR1 As Long, LR2 As Long
    Set WS = ThisWorkbook.Sheets("فواتير العملاء")
    Set SH = ThisWorkbook.Sheets("فاتورة المبيعات")
    AR1 = Array("C3", "C4", "E4", "C5", "C6", "E3", "H3", "J4", "J6")
    AR2 = Array("B", "C", "D", "E", "F", "G", "H", "I", "J")
    LR1 = SH.ListObjects("الجدول4").Range.Columns(2).Cells.Find("*", SearchDirection:=xlPrevious).Row
    LR2 = WS.ListObjects("الجدول2").Range.Columns(1).Cells.Find("*", SearchDirection:=xlPrevious).Row + 1
    
    For I = 8 To LR1
        For J = 1 To 9
            WS.Cells(LR2, J).Value = SH.Range(AR1(J - 1)).Value
        Next J
        For J = 10 To 18
            WS.Cells(LR2, J).Value = SH.Cells(I, AR2(J - 10))
        Next J
        LR2 = LR2 + 1
    Next I

End Sub

تفضل تبسيط للكود

نموذج ادخال بيانات الحجاج داخل الشيت.xlsm

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

ضع متغير باسم الصفحه التي تريد الترحيل لها

هذه بدايه التغييرات ويمكنك اكمال باقي الترحيلات بنفس المنوال

عذرا لانى اعمل بالموبايل 

Private Sub cmdAdd_Click()
Dim WS As Worksheet SH As Worksheet
Set SH  = ThisWorkbook.Worksheets("Entry")
Set WS = ThisWorkbook.Worksheets(Sh.Range("J4").text)
Dim M As Integer
M = WS.Range("B500").End(xlUp).Row + 1
WS.Cells(M, "B").Value = Sh.Range("G6").Value

2 ساعات مضت, احمد غانم said:

حفظ نسخة من الإيصال نفسه  School Fee Receipt  بصيغة PDF بمسار معين

هذه موجوده في الكود 

انسخ الكود مره اخري