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

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

spyhearts

بواسطه spyhearts
في منتدى الاكسيل Excel

 مشاركة
إذهب إلى أفضل إجابة Solved by محمد هشام.,

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

spyhearts

spyhearts

قام بنشر
قام بنشر

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

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

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

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

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

رابط هذا التعليق
شارك
عبدالله بشير عبدالله

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

قام بنشر
قام بنشر

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

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

 

فورم العلامة عبدالله باقشير.png

  • Like 4
رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر

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

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

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

السيارات.xlsm

رابط هذا التعليق
شارك
  • 2 weeks later...
محمد هشام.

محمد هشام.

قام بنشر
قام بنشر

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

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

  • Like 2
رابط هذا التعليق
شارك
  • أفضل إجابة
محمد هشام.

محمد هشام.

قام بنشر
  • أفضل إجابة
قام بنشر

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

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

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

  • Like 1
رابط هذا التعليق
شارك
محمد هشام.

محمد هشام.

قام بنشر
قام بنشر

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

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

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

 

رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر

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

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

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

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

 

رابط هذا التعليق
شارك
محمد هشام.

محمد هشام.

قام بنشر
قام بنشر

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

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

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

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

رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر

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

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

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

 

رابط هذا التعليق
شارك
محمد هشام.

محمد هشام.

قام بنشر
قام بنشر

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

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

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

308043285.png

  • Like 1
رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر

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

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

بارك الله فيك

تحية طيبة ..

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

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

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

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

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

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

HANDOVER.xlsm

رابط هذا التعليق
شارك
حسونة حسين

حسونة حسين

قام بنشر
قام بنشر

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

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


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

    

  • Like 1
رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر

السلام عليكم 

استاذي hassona229

بارك الله فيك

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

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

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

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

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

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

HANDOVER (2).xlsm

رابط هذا التعليق
شارك
محمد هشام.

محمد هشام.

قام بنشر
قام بنشر

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

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

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

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

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

تفضل اخي 

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

  • Like 1
رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر

السلام عليكم

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

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

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

 

 

 

 

 

رابط هذا التعليق
شارك
محمد هشام.

محمد هشام.

قام بنشر
قام بنشر

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

 

رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر

تمام ياباشا

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

 

 

السلام عليكم 

استاذي Mohamed Hicham

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

وبه الشرح

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

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

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

 

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

رابط هذا التعليق
شارك
محمد هشام.

محمد هشام.

قام بنشر
قام بنشر

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

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

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

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

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

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

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

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

 

  • Like 1
رابط هذا التعليق
شارك
spyhearts

spyhearts

قام بنشر
  • الكاتب
قام بنشر
10 ساعات مضت, Mohamed Hicham said:

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

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

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

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

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

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

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

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

 

السلام عليكم 

استاذي Mohamed Hicham

بعتذر جدا

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

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

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

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

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

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

 

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان
 مشاركة
الذهاب الي قائمه المواضيع

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

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

Important Information

  I accept