أبو رجائي

أسأل الله العظيم رب العرش العظيم أن يشفي ابنتك أسأل الله العظيم رب العرش العظيم أن يشفي ابنتك أسأل الله العظيم رب العرش العظيم أن يشفي ابنتك أسأل الله العظيم رب العرش العظيم أن يشفي ابنتك أسأل الله العظيم رب العرش العظيم أن يشفي ابنتك أسأل الله العظيم رب العرش العظيم أن يشفي ابنتك أسأل الله العظيم رب العرش العظيم أن يشفي ابنتك

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

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

اخي خبور دمتم ارجو التكرم بافهامنا حول الكود خاصة انك قلت : لاراق بالون الاحمر خارجة عن الكود يعني لا يستدعى البيانات منها 1- لذلك افهمني كيف نضيف اوراق اخى للكود 2- او البحث في عمود آخر غير ما علمت في كودك : 3- كيف يمكن ان نكبر الجدول ( يعني نضع فيه اعمدة أكثر من الموجد في البرنامج ) ماذا نضيف على الكود 4- نريد شرح وافي عن كودك التالي : ما معنى كل سطر للاستفادة : ( Sub &Ccedil;&Oacute;&Ecirc;&Iuml;&Uacute;&Ccedil;&Aacute;() On Error Resume Next If [b4] = "" And [C4] = "" And [E4] = "" Then MsgBox "&iacute;&Igrave;&Egrave; &Ccedil;&Icirc;&Ecirc;&iacute;&Ccedil;&Ntilde; &Iacute;&Oacute;&Ccedil;&Egrave; &Egrave;&Iuml;&aacute;&Ccedil;&aacute;&Eacute; &Ntilde;&THORN;&atilde; &Ccedil;&aacute;&Iacute;&Oacute;&Ccedil;&Egrave; &Ccedil;&aelig; &Ccedil;&Oacute;&atilde; &Ccedil;&aacute;&Iacute;&Oacute;&Ccedil;&Egrave; &Ccedil;&aelig; &Ccedil;&Icirc;&Ecirc;&Ccedil;&Ntilde; &Ntilde;&THORN;&atilde; &Yacute;&iacute;&Iuml;", vbInformation + vbMsgBoxRight, "&Ecirc;&auml;&Egrave;&iacute;&aring;" Else [b9:H200].ClearContents [b6] = "" & [K1] Application.ScreenUpdating = False For x = 1 To Sheets.Count MySheets = Sheets(x).Name If Sheets(x).Name = "&Ccedil;&aacute;&THORN;&iacute;&aelig;&Iuml;" Then Exit For For R = 3 To Sheets(MySheets).[A1500].End(xlUp).Row If (Sheets(MySheets).Cells(R, 4) = [b4] Or Sheets(MySheets).Cells(R, 6) = [C4] Or Sheets(MySheets).Cells(R, 1) = [E4]) And (Sheets(MySheets).Cells(R, 7) >= [G4] And Sheets(MySheets).Cells(R, 7) <= [H4]) Then With Sheets("&Ccedil;&aacute;&THORN;&iacute;&aelig;&Iuml;").[b200].End(xlUp) .Offset(1, 0) = Sheets(MySheets).Cells(R, 1) .Offset(1, 1) = Sheets(MySheets).Cells(R, 2) .Offset(1, 2) = Sheets(MySheets).Cells(R, 3) .Offset(1, 3) = Sheets(MySheets).Cells(R, 4) .Offset(1, 4) = Sheets(MySheets).Cells(R, 5) .Offset(1, 5) = Sheets(MySheets).Cells(R, 6) .Offset(1, 6) = Sheets(MySheets).Cells(R, 7) End With End If Next R Next x Application.ScreenUpdating = True MsgBox "!&Ecirc;&atilde; &Ccedil;&Oacute;&Ecirc;&Icirc;&Ntilde;&Ccedil;&Igrave; &Ccedil;&aacute;&szlig;&Ocirc;&Yacute; &Ccedil;&aacute;&atilde;&Oslash;&aacute;&aelig;&Egrave; &Egrave;&auml;&Igrave;&Ccedil;&Iacute;", vbInformation + vbMsgBoxRight, "&Ecirc;&atilde; &Ccedil;&aacute;&Ccedil;&Oacute;&Ecirc;&Icirc;&Ntilde;&Ccedil;&Igrave;" [b4:E4].ClearContents End If End Sub جزاك الله الجنة يا استاذنا

اخواني الاحباء هل يوجد لديكم برنامج عن الرسائل الصادرة والواردة الاضافة يكون فيها عن طريق فورم والبحث فيها حسب الموضوع او الجهة المرسل لها او اليها

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

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

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

زادك الله علما وأحياك على طاعته

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