[ سؤاال ] كيفية طباعة ورقة بإسم شخص ابحث عليه فقط بالضغط عليه

[صلاح الدين الجزائري]

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

اما بعد

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

يعني لما اعمل بحث عن طريقة المنسدلة وانا اكون قد كتبت جدول كااامل بالاسماء و الالقاب و تواريخ الميلاد

يخرج لي اسماء المكتوبة ، مثل الجداول خانة للإسم و خانة للقب وخانة لتاريخ الميلاد

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

ان شاء الله تكونوا فهمتوووووا 

تجربة.rar

تم تعديل نوفمبر 26, 2015 بواسطه MoChekEs

[ابوحمزه المصرى]

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

 تجربة.rar

[بن علية حاجي]

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

أخي الكريم عملت بما في ملفك المرفق، أي بمجرد اختيار الاسم من المنسدلة يتم طباعة البيانات حسب شيت "صفحة الطباعة"... أرجو أن يكون المطلوب...

بن علية

 

تجربة.rar

[صلاح الدين الجزائري]

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

اما بعد

يا اخواني آسف على طرح الموضوع القديم : هنا

لقد قمت بكتابة الموضوع بالشكل الخاطئ

المطلوب الصحيح هو :

انا عندي جدول [ الصفحة 1 ] فيه مثلا اكثر من 50الف شخص ومكتوب فيه اسمه و لقبه و تاريخ ميلاده ورقم تسجيله

وفي [ الصفحة 2 ] عندي مكان للبحث عن شخص، لما اقوم بكتابة شخص ما، يقوم بإضهار لي هذه الاسامي حتى ولو كانت متشابهة [ يتم البحث اما بالاسم واللقب ، او تاريخ الميلاد ، او رقم التسجيل ]

يضهر لي كااامل معلومات الشخص المكتوب [ مثلا عندي 30شخص متشابه ] يضهرون في 30 في صفحة اخرى مثلالجدول يعني تحت بعض 

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

اذا لم تفهموا المطلوب، قولوا لي اعيد لكم

تجربة.rar

تم تعديل نوفمبر 27, 2015 بواسطه MoChekEs

[ياسر خليل أبو البراء]

أخي المشاكس

يرجى تغيير اسم الظهور للغة العربية

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

 

[صلاح الدين الجزائري]

كيف يعني اسم الظهور ؟..

+ انا اريد البحث عن شخص معين، فقط اكتبه في الخانة المناسبة في الصفحة اثنان واضغط enter

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

يعني كلهم تحت بعض بالترتيب

ولما اضغط على واحد منهم تظهر لي ورقة بإسمه قد كنت كتبتها انا [ مثلا شهادة اقامة ] 

يعني لما اضغط على الشخص الذي اريده تضهر لي شهادة اقامة بإسمه

[الـعيدروس]

السلام عليكم

انسخ الكود التالي الى حدث الورقة المسماه "الصفحة 2"

Private Const My_Rng_Adrs As String = "$A$3:$D$55000"
Private Const Area_Prnt As String = "$C$7:$E$15"
Dim Ar_1() As Variant
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
 If Not Intersect(Range("A7:A1000"), Target) Is Nothing Then
   MsgBox ""
    If Target <> Empty Then
       Dim Wr As Worksheet: Set Wr = Sheets("الصفحة 3")
       With Wr
         .Cells(7, 4) = Target
         .Cells(8, 4) = Target.Offset(0, 1)
         .Cells(9, 4) = Target.Offset(0, 2)
         .PageSetup.PrintArea = Area_Prnt
         .PrintPreview
         .Cells(7, 4) = "": .Cells(8, 4) = "": .Cells(9, 4) = ""
       End With
       Cancel = False
       Set Wr = Nothing
    End If
 End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Address = "$A$5" Then
   Range(Range("A7"), Range("D7").End(xlDown).Resize(1, 4)).ClearContents
   If Ali_Serch(CStr(Target), 1) = True Then
    Range("A7").Resize(UBound(Ar_1, 1), UBound(Ar_1, 2)) = Ar_1()
   End If
  Erase Ar_1
 End If
 If Target.Address = "$C$5" Then
   Range(Range("A7"), Range("D7").End(xlDown).Resize(1, 4)).ClearContents
   If Ali_Serch(CDate(Target), 3) = True Then
    Range("A7").Resize(UBound(Ar_1, 1), UBound(Ar_1, 2)) = Ar_1()
   End If
 Erase Ar_1
 End If
 If Target.Address = "$E$5" Then
   Range(Range("A7"), Range("D7").End(xlDown).Resize(1, 4)).ClearContents
   If Ali_Serch(CStr(Target), 4) = True Then
    Range("A7").Resize(UBound(Ar_1, 1), UBound(Ar_1, 2)) = Ar_1()
   End If
 Erase Ar_1
 End If
End Sub
Private Function Ali_Serch(Trget As String, Col As Long) As Boolean
Dim Ar
Dim Rng As Range
Dim C, x, i, XX, Xi, Xt
Dim Data_1
Dim Wrsh As Worksheet
Set Wrsh = Sheets("الصفحة 01")
With Wrsh
     If Col = 3 And Not IsDate(Trget) Then MsgBox "صيغة التاريخ التي كتبتها غير صحيحه !!", vbExclamation, "إدخال خاطئ !!": Exit Function
     Set Rng = .Range(My_Rng_Adrs)
     Ar = Rng.Value
     ReDim Preserve Ar_1(1 To Rng.Rows.Count, 1 To 4)
       For x = LBound(Ar, 1) To UBound(Ar, 1)
        XX = Ar(x, Col): Xi = Trim(Ar(x, 1)): Xt = Trim(Ar(x, 2))
        If Col = 3 Or Col = 4 Then
               Data_1 = Val(XX)
            ElseIf Col = 1 Then
               Data_1 = CStr(Xi & " " & Xt)
            ElseIf Col = 3 Then
               Data_1 = CDate(DateSerial(Year(XX), Month(XX), Day(XX)))
        End If
        If Not Data_1 = Empty Then
            If Data_1 Like Trget Then
                  Ali_Serch = True
                  i = i + 1
                For C = 1 To 4
                   Ar_1(i, C) = IIf(C = 3, Format(Ar(x, C), "dd/mm/yy"), CStr(Ar(x, C)))
                   Debug.Print Ar(x, C)
                Next C
             End If
         End If
       Next x
End With
Set Rng = Nothing: Set Wrsh = Nothing
End Function

 

بعد كتابة الاسم او التاريخ او رقم التسجيل اضغط انتر

ستظهر النتائج اسفل جدول البحث

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

جرب وابلغنا بالنتائج

تحياتي

تم اضافة المرفق وبه الكود اعلاه

تجربة_111.rar

تم تعديل نوفمبر 27, 2015 بواسطه الـعيدروس

[صلاح الدين الجزائري]

شكرا لك اخي الفاضل،

ولكن ممكن تضعها انت اذا ما معك مانع،

لأني ما عرفت وين اضعها بالضبط،

 

تجربة.rar

[الـعيدروس]

تمت اضافة المرفق في المشاركة السابقة اخي مشاكس

اقتباس

كيف يعني اسم الظهور ؟..

يقصد الاستاذ ياسر خليل اسم ظهورك تغيره كأسم عربي بدلاً عن "MoChekEs"

تم تعديل نوفمبر 27, 2015 بواسطه الـعيدروس

[صلاح الدين الجزائري]

13 دقائق مضت, الـعيدروس said:

تمت اضافة المرفق في المشاركة السابقة اخي مشاكس

يقصد الاستاذ ياسر خليل اسم ظهورك تغيره كأسم عربي بدلاً عن "MoChekEs"

شكككرا لك اخي العزيز،

+ اذا مافي مانع ممكن تعطيني رابط الفيس بوك بتاعك ؟

وتقولي كيف يتم العمل به ارجوك وشكرا لك

[الـعيدروس]

السلام عليكم

المرفق الاول شرح طريقة العمل عليه

والمرفق الاخر الملف وبه تعديل بعض الاخطاء

   البحث بالتاريخ لن يعمل معك

       اكتب التاريخ في الورقة "الصفحة 01" بالصيغة الصحيحه وسيعمل معك

         لاني ملاحظ مكتوب 01/01/00 ؟ 

توضيح.rar

تجربة_112.rar

[صلاح الدين الجزائري]

12 دقائق مضت, الـعيدروس said:

السلام عليكم

المرفق الاول شرح طريقة العمل عليه

والمرفق الاخر الملف وبه تعديل بعض الاخطاء

   البحث بالتاريخ لن يعمل معك

       اكتب التاريخ في الورقة "الصفحة 01" بالصيغة الصحيحه وسيعمل معك

         لاني ملاحظ مكتوب 01/01/00 ؟ 

توضيح.rar

تجربة_112.rar

اخي العزيز،

انا ليش ما تشتغل معي

الرجاء الرد في اقرب وقت

واعطيلي الفيس بوك بتاعك لكي اتحدث معك

تم تعديل نوفمبر 27, 2015 بواسطه MoChekEs

[الـعيدروس]

اقتباس

انا ليش ما تشتغل معي

ماهي التي لم تشتغل معك ؟

  تأكد من اعدادات امان الماكرو

  

اقتباس

+ اذا مافي مانع ممكن تعطيني رابط الفيس بوك بتاعك ؟

 يوجد ايميل Gmail  

aahfm2015@Gmail.com

 

[صلاح الدين الجزائري]

2 ساعات مضت, الـعيدروس said:

ماهي التي لم تشتغل معك ؟

  تأكد من اعدادات امان الماكرو

 

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

ما يضهرلي كما يحصل لك في الفيديو الي اعطيته لي

[الـعيدروس]

المشكله عندك اخي

هل انت مفعل امان الماكرو منخفض ام لا ؟

اتبع الفيديو في المرفق اذا لاتعرف الطريقه لتفعيل الماكرو

تفعيل الماكرو.rar

[صلاح الدين الجزائري]

نعم اخي انا مفعل الماكرو  واعرف كيف افعلو اخي

يعني ما هو الحل اخي

[ياسر خليل أبو البراء]

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

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

[الـعيدروس]

اخي مشاكس

مانوع الاوفيس عندك 2003 ام 2007 ؟

[ابو عبدالرحمن البغدادي]

السلام عليكم - عمل  رائع  - جزيتم خيرا

ممكن زيادة المدى  من A الى K   ، ويشمل عند اجراء البحث والاستدعاء والطابعة

 

[الـعيدروس]

السلام عليكم

اخي الكريم ابو عبدالرحمن

حاول ترفق ملف كمثال وبه المعطيات

 افضل بدلا مانعمل على شيء ويطلع

غير الذي تريد وهكذا نهدر وقت على الفاضي

 

 

 

[ابو عبدالرحمن البغدادي]

السلام عليكم - حياكم الله - بارك الله في اعماركم - بيض الله وجهك

الطابعة عند الضغط على الاسم.rar

[ابو عبدالرحمن البغدادي]

جزيتم خيرا

 

[الـعيدروس]

السلام عليكم

تفضل

 

الطابعة عند الضغط على الاسم_111.rar

[ابو عبدالرحمن البغدادي]

جزيت خيرا - 

[صلاح الدين الجزائري]

 

في 11/30/2015, 3:28:35, الـعيدروس said:

اخي مشاكس

مانوع الاوفيس عندك 2003 ام 2007 ؟

شكرا جزيييلا اخي الغالي عيدروس

انا حملت اوفيس 2007 ونجحت

ولكن واجهة مشكلة اخي

لما اضغط على الاسم مرتين

تضهر لي هذه الرسالة

http://store1.up-00.com/2015-12/1449074082851.jpg