عبدالله المجرب

شاهد هذا الرابط http://www.officena.net/ib/index.php?showtopic=42346

والنعم فيك ======= لا يوجد مرفق

السلام عليكم جرب المرفق طباعة.rar

الطلب الاول جرب هذا ضع هذه المعادلة في خانة اجمالي العجز بدل معادلة SUM =SUBTOTAL(9;A3:A386) الطلب الثاني هل تقصد ان يطبع في الورقة عدد الصفحات ورقم الصفحة الحالية بينها مثل Page 5 Of 20 Pages

اخي ابو سارة ضع مرفق == بالمناسبة من اي مناطق البحرين انت

جرب كذا Private Sub Workbook_Open() If Date > DateValue("1/3/2012") Then Application.Visible = False If InputBox("لطفاً أدخل كلمة السر ") <> "الله اكبر" Then MsgBox "كلمة مرور خطائة " ThisWorkbook.Close Else Application.Visible = True MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub

جميل جداً

جرب هذا التعديل Private Sub Workbook_Open() Application.EnableCancelKey = xlDisabled Application.Visible = False If Date > DateValue("1/3/2012") Then If InputBox("لطفاً أدخل كلمة السر ") <> "الله اكبر" Then MsgBox "كلمة مرور خطائة " ThisWorkbook.Close Else Application.Visible = True MsgBox "تفضل بالدخول كلمة مرورك صحيحة " End If End If End Sub

هذا الموضوع مميز ويستحق التثبيت ××××××× مثبت ××××××× الإدارة

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

ارجو الاطلاع على قواعد المشاركة http://www.officena.net/Tips/Questions.htm

نرجو الالتزام بقواعد المشاركة ======= سيتم تعديل العنوان للدلالة ============ جرب هذا الكود ضعه في زر أمر Sub Abu_Ahmed() Dim cl As Range T = 7 For Each cl In Range("C2:C" & [C1000].End(xlUp).Row) If cl = "مرعى" Then Cells(2, T) = cl.Offset(0, -1) T = T + 1 End If Next End Sub

جرب هذا التعديل Sub Abu_Ahmed_Delet() Dim CL As Range For Each CL In [H4:H1000] If Not IsEmpty(CL) And Application.CountIf([J4:J1000], CL) = 0 Then CL.Offset(0, 1) = "X" Next End Sub

ضع هذا الكود في زر أمر في الورقة 1 Sub Abu_Ahmed_Twzee3() R = 1 For i = 1 To [A1000].End(xlUp).Row Sheets("ورقة2").Range("A" & R) = Cells(i, 1) R = R + 6 Next End Sub

وهذه http://www.officena.net/ib/index.php?showtopic=42350

تم عمل اللازم تم عمل اللازم هذي علمها عند الله جرب وشوف تم اضافة دالة معرفة (منقولة للامانه) لفصل الرقم عن الحروف اكيد راح يهنق بسبب العدد الكبير في الكلمات وحاجة الكود لعمل عدة اجراءات للكلمة الواحدة فاستعمل عدد محدود في كل مرة شاهد ما تم عمله في الكود وبانتظار رايك test.zip

هو ملف اضافي او وضيفة اضافية

اداة رائعة بارك الله فيك اخي احمد

السلام عليكم تم تعديل العنوان ومستقبلاً نرجو منك التقيد بالقواعد ======== في المرفق تم عمل عدة شروط (اكتشفها بالتجربة) ان شاء الله يفي بالغرض دالة للبحث والايجاد.rar

الحروف الى حد حرف اللام فقط مع العلم ان هناك اسم بحرف الياء

شاهد المرفق الإنتقال الى ورقة مختارة.rar

السلام عليكم جرب المرفق نموذج موازنة.rar

السلام عليكم ما شاء الله عليك استاذنا الكبير الخالدي كود مميز وبعد اذنك هذا تعديل على الكود ليقبل الحروف الصغيرة والكبيرة باللغة الانجليزية Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column = 1 And Target.Row > 9 Then On Error GoTo 10 If Target = "" Then Exit Sub If Len(Target) < 12 Then GoTo 10 If Len(Target) > 14 Then GoTo 10 If Asc(Mid(Target, 1, 1)) < 65 Then GoTo 10 If Asc(Mid(Target, 1, 1)) > 192 Then GoTo 10 If Asc(Mid(Target, 2, 1)) < 65 Then GoTo 10 If Asc(Mid(Target, 2, 1)) > 192 Then GoTo 10 If Asc(Mid(Target, 3, 1)) < 65 Then GoTo 10 If Asc(Mid(Target, 3, 1)) > 192 Then GoTo 10 If Mid(Target, 4, 7) * 1 > 0 Then GoTo 10 If Mid(Target, 11, 1) <> "/" Then GoTo 10 If Mid(Target, 12, 3) * 1 < 1 Then GoTo 10 GoTo 20 10 Target = "" MsgBox "إدخال غير صحيح" 20 End If End Sub

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

السلام عليكم اخي الفاضل اليك هذا الرابط http://www.officena....topic=37603&hl= وقد قمت بعمل تعديل بسيط في الكود ليتناسب وطلبك شاهد المرفق فورم بحث في جريدة الرياض.rar