مساعدة في عمل يوزر فورم للبحث برقم اللوحة او كود السيارة او رقم التسلسل وطباعة التقرير

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · أكتوبر 11, 2022

السلام عليكم ورحمه الله وبركاته..اتمني من الاخوة الزملاء في المنتدى المساعدة في عمل يوزر فورم بحث وتعديل واضافة وطباعة

يكون البحث ب3 طرق رقم اللوحة كود المعدة ورقم التسليل ..اعتذر منكم واعلم ان الموضوع محرج

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

إعادة رفع الملف بعد وضع الفورم به

قسم الحركة10-2022.xlsm

عبدالله بشير عبدالله · أكتوبر 11, 2022

وعليكم السلام > نعم كما اخبرك استاذنا محسن مهند طلبك موجود بكثرة لو استخدمت خاصية البحث . عل كل حال وجدت لك فورم من المتتدى لصاحبه عبدالله باقشير جعله الله في ميزان حسناته وطبقته على ملفك فيه البحث بما تشاء والتعديل والاضافة والحذف والطباعة لو اتقنت استخدامه لن تحتاج الى غيره ان شاء الله

قسم الحركة10-2022.xlsm

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · أكتوبر 16, 2022

السلام عليكم ورحمه الله وبركاته ..اعتذر عن التاخير في الرد بسبب مرضي

عبدالله بشير عبدالله ما شاء الله تسلم ايديك استاذي ساقوم باستعماله والتمرن عليه

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

السيارات.xlsm

**محمد هشام.** · أكتوبر 24, 2022

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

السيارات(1).xlsm

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · أكتوبر 25, 2022

السلام عليكم ..شكرا على اهتمامك Mohamed Hicham ..مرفق الملف بعد تعديل الملاحظات ..وشكرا لك

السيارات(1).xlsm

**محمد هشام.** · أكتوبر 27, 2022

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

تفضل اخي ..اولا اسف على التاخير بسبب ظروف العمل ..

السيارات(1).xlsm

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · أكتوبر 27, 2022

سؤال ياستاذي

بالنسبة للحذف والتعديل

شرط كتابة رقم الاقامة مع الكود

**محمد هشام.** · أكتوبر 27, 2022

الحدف والتعديل يتم بشرط إضافة رقم الإقامة فقط .

وهذا ما قمت بطلبه.

في حالة الرغبة باضافة إمكانية حذف الصفوف والتعديل بشرط رقم الكود يمكنك ذالك بقراءة الاكواد لقد تم شرحها خطوة بخطوة وتنفيذ المطلوب بكل سهولة

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · نوفمبر 1, 2022

السلام عليكم اخبارك Mohamed Hicham

بعد ما اضفت البيانات عن طريق الاضافة

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

هل كود التعديل مرتبط بالخلايا المذكورة اعلاه ( اسم الموظف رقم الجوال رقم الاقامة ) ..وشكرا لك

**محمد هشام.** · نوفمبر 1, 2022

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

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

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

السيارات(1).xlsm

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · نوفمبر 2, 2022

استاذي الفاضل ..بعد التجرية ..اتضح كود التعديل مكتوب شرط عدم وجود محتوى في الخلايا d10 - h 10 - l 10

معني كدا ان انا اقدر اعدل البيانات بس لو عدلت رقم الاقامة او الاسم او رقم الجوال تظهر رسالة غير موجود

تعديل البيانات هيكون من ضمنهم 3 خانات دول ..ممكن تتعدل ازاي ..بعتذر لكثرة طلباتي ..وشكرا لحضرتك

**محمد هشام.** · نوفمبر 2, 2022

اخي على ما يبدو لي انك لم تفهم الكود جيدا ركز معي هدا السطر يعني انه في حالة وجود فراغات في الخلايا يتم عدم تنفيد الكود مع اظهار رسالة تخبرك بملئ البيانات وهدا مستبعد ..الاصل في التعديل انك تقوم باستدعاء البيانات اولا اما برقم الكود او رقم الاقامة ثم تعديلها وفي هده الحالة تكون جميع الخلايا بها قيمة . تم وضع الشرط فقط لتجنب استبدال البيانات بالفراغ عند تنفيد الكود

If Range("L10").Value = "" And Range("d10").Value = "" And Range("h10").Value = "" Then
MsgBox "المرجوا ادخال البيانات"
 Exit Sub
End If

وعند التعديل لا نقوم بتغيير قيمة الخلايا L7 او D7 ..يتم التعديل مكان الاسهم كما في الصورة

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · نوفمبر 3, 2022

استاذي الفاضل Mohamed Hicham

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

بارك الله فيك

تحية طيبة ..

شكرا على التوضيح فعلا كنت اعدل البيانات ايضا في خانة الكود ورقم الاقامة

اعتذر لكثرة طلباتي

فضلا وليس امرا

ممكن المساعدة بالملف المرفق ولو امكن المساعدة في كود الحفظ PDF انه يحفظ اي ورقة داخل الفولدر باالكود اللي موجود في الخلية C6

وهل ينفع اعمل زر للتراجع عن الادخال الخاطىء في الملف ليكون بديل عن ctrl+Z

وشكرا لسعة صدرك

HANDOVER.xlsm

**حسونة حسين** · نوفمبر 7, 2022

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

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


Private Sub CommandButton9_Click()
ActiveSheet.Range("A1:M29").ExportAsFixedFormat Type:=xlTypePDF,Filename:="D:\تقارير قسم الحركة\" & range("C6") & ".pdf"

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · نوفمبر 8, 2022

السلام عليكم

استاذي hassona229

بارك الله فيك

تم التجربة والحمد لله تمام

باقي استاذي Mohamed Hicham

جزاه الله كل خير

يحاول مساعدتي في الملف المرفق بالمشاركة السابقة ( الملف المرفق به الملاحظات )

وشكرا لاعضاء المنتدى الكرام

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

HANDOVER (2).xlsm

**محمد هشام.** · نوفمبر 14, 2022

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

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

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

وبعد إضافة بيانات المستلم للمركبة يتم افراغ المحتواى الملون باللون الأصفر

ما هي طريقة اضافة البيانات ..

تفضل اخي

Sub MH_IF_condition1()
Dim sh As Worksheet
Dim strTexte As String
strTexte = "البيانات غير موجودة"
Rng = sheet2.Range("C6").Value
Set sh = sheet2

Application.ScreenUpdating = False

If Len(Range("C6").Value) = 0 Then
  MsgBox "المرجوا ادخال رقم الكود"
 Exit Sub
End If

With Sheets("All_Data")
    Set Trouve = .Range("B:B").Find(what:=sheet2.Range("c6"), LookIn:=xlValues, lookat:=xlWhole)
     If Trouve Is Nothing Then
       MsgBox (" الكود غير موجود"), vbOKOnly + vbInformation
       sheet2.Range("c8,c9,f8,f9,i8,i9,l8,l9").Value = strTexte
       Exit Sub
     Else
     End If

 Sheet1.Activate
    For i = 5 To 500
        If Range("B" & i).Value = Rng Then
           
            sh.Range("c8").Value = Range("H" & i).Value
            sh.Range("c9").Value = Range("E" & i).Value
            sh.Range("F8").Value = Range("G" & i).Value
            sh.Range("F9").Value = Range("C" & i).Value
            sh.Range("I8").Value = Range("I" & i).Value
            sh.Range("I9").Value = Range("F" & i).Value
            sh.Range("L8").Value = Range("J" & i).Value
            sh.Range("L9").Value = Range("K" & i).Value
            
         End If
     
    Next i
    End With
sheet2.Activate
Range("C6").Select
Application.ScreenUpdating = True
End Sub

Sub MH_IF_condition2()
Dim sh As Worksheet
Dim LastRow As Long
Dim strTexte As String
strTexte = "البيانات غير موجودة"
Rng = sheet2.Range("c48")
Set sh = sheet2
LastRow = Sheet3.Cells(Sheet3.Rows.Count, 1).End(xlUp).Row

Application.ScreenUpdating = False
If Len(Range("C48").Value) = 0 Then
  MsgBox "المرجوا ادخال رقم الكود"
 Exit Sub
End If

 With Sheets("DRIVER")
    Set Trouve = .Range("A:A").Find(what:=sheet2.Range("c48"), LookIn:=xlValues, lookat:=xlWhole)
     If Trouve Is Nothing Then
     
       MsgBox (" الكود غير موجود"), vbOKOnly + vbInformation
       sheet2.Range("C50,C51,C52,g50,G51,G52,j50,j51").Select
       Selection.ClearContents
       Range("C48").Select
       
       'sheet2.Range("c50,c51,c52,g50,g51,g52,j50,j51").Value = strTexte
       
       Exit Sub
     Else
     End If

For i = 2 To LastRow
Sheet3.Activate
    
        If Sheet3.Cells(i, 1).Value = Rng Then
         
            sh.Range("c50").Value = Range("d" & i).Value
            sh.Range("c51").Value = Range("j" & i).Value
            sh.Range("c52").Value = Range("k" & i).Value
            sh.Range("G50").Value = Range("C" & i).Value
            sh.Range("G51").Value = Range("F" & i).Value
            sh.Range("G52").Value = Range("E" & i).Value
            sh.Range("J50").Value = Range("I" & i).Value
            sh.Range("J51").Value = Range("L" & i).Value
            
             
          End If
     
    Next i
   End With
sheet2.Activate
Range("C6").Select
Application.ScreenUpdating = True

End Sub

Sub Claer()
Dim Rng1, Rng2 As Range
Set Rng1 = Range("C6,C8,C9,F8,F9,I8,I9,L8,L9")
Set Rng2 = Range("c48,c50,c51,c52,g50,g51,g52,j50,j51")
Union(Rng1, Rng2).Select
Selection.ClearContents

       Range("C4").Select
End Sub

وهدا الكود بحدث ورقة (" handover.Form" )

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Me.Range("C6:C48")) Is Nothing Then Exit Sub

    On Error GoTo SafeExit
    Application.EnableEvents = False

    If Target.Address = "$C$6" Then
    Call MH_IF_condition1
      
    ElseIf Target.Address = "$C$48" Then
       MH_IF_condition2
    End If

SafeExit:
    Application.EnableEvents = True
End Sub

بالتوفيق

HAND_MH.xlsm

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · نوفمبر 14, 2022

السلام عليكم

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

وتوضيح مشكلتي مرفق رابط الملف

https://sg.docworkspace.com/d/sIAjSspuPAbqxypsG?sa=01&st=0t ومعذزة لاني استخدم الجوال احتاج العمل على اليوزر فورم متعدد ممكن استاذي تفتح الملف وساحاول اوضح لحضرتك

**محمد هشام.** · نوفمبر 14, 2022

الملف الدي تم الاشتغال عليه ليس به اي فورم فقط واجهة لاستدعاء البيانات من شيتات اخرى قد تم تنفيد الثلاث مطالب التي تم ادراجها داخل الملف

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · نوفمبر 14, 2022

تمام ياباشا

دا الملف اللي في الموضوع الثاني اللي انا ربطت به ملف الهاند اوفر

السلام عليكم

استاذي Mohamed Hicham

مرفق الملف المطلوب المستخدم والمرور 123

وبه الشرح

حتى بعد ما ضفت الاكواد في اليوزفورم للبحث مش ظاهر حاجة

وللاسف كود الاضافة والحذف والتعديل والطباعة مش عارف اضيفهم لليوزفورم

وبعتذر عن عدم المقدرة للرد امس لاستخدامي الجوال

جاري التعديل.xlsm

**محمد هشام.** · نوفمبر 15, 2022

أخي هو نفس الملف الذي تم الاشتغال عليه أكثر من مرة !!!

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

بحيث تقوم انت بوضعه في الأرشيف وإعادة تصميم ملف مشابه .

1)تم الاشتغال عليه أول مرة بترحيل البيانات من شيت لآخر والبحث والتعديل

2) تم الاشتغال عليه بعد إضافة واجهة لادخال البيانات أمس

الآن انت قمت باضافة فورم لنفس المهمة . كان من المفروض أن تأجل رفع الملف حتى تكمل تصميم ملفك

وهذا لا يشجعني إلا الاستمرار في اهدار الوقت بدون فائدة

بالتوفيق ....

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ · نوفمبر 16, 2022

10 ساعات مضت, Mohamed Hicham said:

أخي هو نفس الملف الذي تم الاشتغال عليه أكثر من مرة !!!

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

بحيث تقوم انت بوضعه في الأرشيف وإعادة تصميم ملف مشابه .

1)تم الاشتغال عليه أول مرة بترحيل البيانات من شيت لآخر والبحث والتعديل

2) تم الاشتغال عليه بعد إضافة واجهة لادخال البيانات أمس

الآن انت قمت باضافة فورم لنفس المهمة . كان من المفروض أن تأجل رفع الملف حتى تكمل تصميم ملفك

وهذا لا يشجعني إلا الاستمرار في اهدار الوقت بدون فائدة

بالتوفيق ....

السلام عليكم

استاذي Mohamed Hicham

بعتذر جدا

ولكن فيه سوء فهم

اعلم بان الملف تم الاشتغال عليه اول مره بعد مساعدتك اخي

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

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

واشكرك جدا لمحاولة مساعدتي

وشكرا اخي Mohamed Hicham بارك الله فيك

تسجيل الدخول

مساعدة في عمل يوزر فورم للبحث برقم اللوحة او كود السيارة او رقم التسلسل وطباعة التقرير

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

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

عبدالله بشير عبدالله

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

حسونة حسين

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

محمد هشام.

𝒜ℬ𝒪 𝒴𝒪𝒰𝒮ℰℱ

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

انشئ حساب جديد

تسجيل دخول

تصفح الموقع

تصفح جديد الموقع

Support

Important Information