أبو أنس حاجب

السلام عليكم ورحمة الله وبركاته حفظكم الله فلترة النص تعمل ما المطلوب تعديله في كود التكست بوكس رقم2 كي تعمل ايضا فلترة الرقم أبو أنس فلترة لرقم من تكست بوكس.rar

السلام عليكم ورحمة الله وبركاته أستاذي الفاضل بالنسبة للكود خاصتي يقوم بالتصفية في الورقة الاولى للأعمدة C و G كلا على حدة حسب وجود الرقم واحد والنسخ أيضا كلا على حدة للاعمدة المتعلقة بكل عمود إلى الورقة الثانية (وهي من A:D بالنسبة للعمود C و E:H بالنسبة للعمود G ) والمطلوب من الكود خاصتك أن يقوم بالعمل بعد كودي بالتصفية في الورقة الثانية للعمود الأطول بيانات والعملية متغيرة

السلام عليكم ورحمة الله وبركاته أعزك الله وأكرم منزلك في الجنة أبو أنس

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

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي القاضل لو ممكن أضافة بسيطة على الكود: وهي بعد أن يتم الأنتقال إلى أول خلية فارغة يقوم الكود بالقفز خطوة واحدة بأتجاه اليسار أو اليمين (أي للخلية المجاورة) أبو أنس

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

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا حنين حفظك الله أنت الذي ظهورك في منتدانا مميز وليس الفورم اللهم أجزل له العطاء حتى يرضى ومتعه بالنظر إلى وجهك الكريم وأن تحفظ له ذريته من بعده إلى يوم الدين. أبو أنس

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

السلام عليكم ورحمة الله وبركاته المطلوب حفظكم الله من كل كود مستقل ان يذهب إلى آخر خلية فارغة في عموده هو لا ان يذهب إلى آخر خلية فارغة في الصف أبو أنس اخر خلية في اعمدة كلاً على حدة.rar

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

السلام عليكم ورحمة الله وبركاته هذا كود لاخفاء السطور والأعمدة للأستاذ أبو مؤنس السؤال الأخر ننتظر الأساتذة الأفاضل أبو أنس كود إخفاء الصفوف والاعمدة.rar

السلام عليكم ورحمة الله وبركاته أساتذتي الأفاضل حفظكم الله المطلوب كود للتصفية التلقائية للعمود الذي يكون فيه أطول بيانات وتكون التصفية حسب شرط بلا فراغات حيث أن البيانات في الأعمدة متغيرة الطول وأريد أن تتم التصفية عند عمل الكود وفق أطول بيانات لعمود ما اذا لا توجد امكانية لكل الأعمدة على أقل تقدير العمودين A و G أبو أنس تصفية بشرط العمود الاطول بيانات.rar

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

برنامج مرتبات للقطاع الخاص - سعيد بيرم.rar السلام عليكم ورحمة الله وبركاته أعدت رفعه من مكتبتي لعلي أصبت أبو أنس

السلام عليكم ورحمة الله وبركاته بعد أذن أستاذي وسيدي الفاضل دغيدي حفظه الله أخي الفاضل حفظك الله ضع هذا الكود في حدث الصفحة Sheet1 Private Sub Worksheet_Change(ByVal Target As Range) If Me.[AG519] Then Exit Sub If Not Application.Intersect(Target, Range("B7,B9:B12")) Is Nothing Then Application.EnableEvents = False Application.Undo Application.EnableEvents = True 'MsgBox "ÎáíÉ áÇ íãßä ÊÚÏíáåÇ" End If End Sub هذا الكود موجود في المنتدى للمزيد ابحث على حمايه ستجد مايرضيك أن شاء الله. أبو أنس

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

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

السلام عليكم ورحمة الله وبركاته المطلوب حفظكم الله إستخراج وفرز الأسماء من العمود C المتشابهة بالأسم والمتشابهة بالرقم كلاً على حدة إلى الصفحة المجاورة بيانات العمود قد تصل إلى الصف ستون وأغلبها متكررة أبو أنس استخراج التشابه.rar

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا حنين حفظك الله تميز وأبداع ونبل أخلاق أسال الله العظيم لك الفردوس الأعلى وجيرة محمد رسول الله (صلى الله عليه وسلم) أبو أنس

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

السلام عليكم ورحمة الله وبركاته أساتذتي الأفاضل حفظكم الله المطلوب يحققه لي الكود أدناه للأستاذ الفاضل عبد الله باقشير ولكن المشكلة أنه يجب الضغط على زر الترحيل مرات متعددة في حالة ادخلت بيانات عديدة حتى يتم التحديث والمطلوب التعديل عليه بان يتم التحديث للبيانات بضغطة زر واحدة مع أمكانية أضافة حسابات جديدة على أن يشملها الكود Sub Khboor_Tarheel() Dim SH As Worksheet For Each SH In ThisWorkbook.Worksheets SH.Unprotect Next SH On Error Resume Next Application.ScreenUpdating = False For A = 6 To [C5000].End(xlUp).Row If Cells(A, 3) <> "" Then MySheets = Cells(A, 3) Sheets(MySheets).[A6:H5000].ClearContents End If Next A For A = 6 To [C5000].End(xlUp).Row If Cells(A, 3) <> "" Then MySheets = Cells(A, 3) With Sheets(MySheets).Cells(A + 2, 1).End(xlUp) .Offset(1, 0) = Cells(A, 1) .Offset(1, 1) = Cells(A, 2) .Offset(1, 2) = Cells(A, 3) .Offset(1, 3) = Cells(A, 4) .Offset(1, 4) = Cells(A, 5) .Offset(1, 5) = Cells(A, 6) .Offset(1, 6) = Cells(A, 7) .Offset(1, 7) = Cells(A, 8) End With End If Next A For A = 6 To [C5000].End(xlUp).Row If Cells(A, 3) <> "" Then MySheets = Cells(A, 3) Sheets(MySheets).[A5:A5000].AutoFilter Field:=1, Criteria1:="<>" End If Next A Application.ScreenUpdating = True MsgBox "!Êã ÇáÊÑÍíá ÈäÌÇÍ Exported data was successful", vbInformation + vbMsgBoxRight, "Êã ÇáÊÑÍíá" Range("A3").Select On Error GoTo 0 For Each SH In ThisWorkbook.Worksheets SH.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True _ , AllowFormattingCells:=True, AllowSorting:=True, AllowFiltering:=True Next SH End Sub والله خير موفق ومعين أبو أنس

السلام عليكم ورحمة الله وبركاته أخي الفاضل حفظك الله أليك هذا المرفق للأستاذ الفاضل عمر الحسيني حفظه الله وأطال الله بعمره وبارك له في ولده. أبو أنس IFYes.rar

السلام عليكم ورحمة الله وبركاته المطلوب أعزكم الله كود ترحيل بناءاً على اسم الحساب إلى كل صفحة على حدة علماُ أن كل صفحة تحمل أسم الحساب أبو أنس Bank Statment Balance.rar

السلام عليكم ورحمة الله وبركاته أخي أبا الحسن حفظك الله Unload Me Application.Visible = True أسم الفورم.SHOW بدلاً من كلمة أسم الفورم أكتب أسم الفورم الحقيقي ثم أنسخ الأضافة أعلاه في كود زر الحفظ هذا حل بدائي ومؤقت حتى يتسنى للأساتذة المساعدة. والقصد هنا المحاولة ليس ألا

السلام عليكم ورحمة الله وبركاته أستاذي وسيدي الفاضل أبا أحمد ( عبد الله المجرب ) حفظك الله جزاك الله كل خير وجعل الفردوس الأعلى دار قرارك مع من تحب. فقط أستميحك عذراً فعند الأستدعاء للبيانات التاريخ يأتي بصيغة رقم (لعل ذلك عندي فقط) لعل هذا المطلوب أضافته في الكود أرجو التوجيه. Columns("C:C").NumberFormat = "dd/mm/yyyy" يوضع قبل هذا السطر Range("A7").Select