نجوم المشاركات

السلام عليكم ورحمه الله وبركاته تفضل اخى Private Sub CommandButton1_Click() Dim X X = Application.Match(TextBox1, Sheet1.Columns(3), 0) If IsError(X) Then MsgBox "الكود غير موجود" End If End Sub

يمكنك فعلها من خلال أزرار التبويبات data --- sort أو تسجيل ماكرو بهذا لتحصل على الكود بالتوفيق

1-تجديد حركة السير.xlsm

بارك الله اخى حسونة الكود شغال زى الفل لك ودى وتقديرى لشخصك الكريم

بعد اذن الاخ كمال هذا برنامج صادر ووارد سبق ان طرحه احد الاعضاء لا اذكر اسمه اومعرفه فجزاه الله عنا خيرا الصادر والوارد.xlsm

وعليكم السلام-تفضل

تجربة معرفة بداية الأسبوع ونهايته بالذكاء الاصطناعي للويب فكرة طرأت ببالي أعرضها على سبيل الاطلاع فقط : ظهرت النتيجة كما يلي:

السلام عليكم أخي الكريم @Yasser Fathi Albanna كيف حالكم تم الحل بالنظر إلى المعادلة التي تحوي على النطاق المعرف مطروحاً من النطاق الصف( Y_7 ) - 3 كما يظهر في الصورة: رجعت إلى النطاق المعرف وحددته بالضبط ليس كما وجدت حيث كان معظم الشيت معرف على أنه ( Y_7 ) ولضبط ارتفاع الصفوف وضعت 3 صفوف فوقه هذا والله أعلى وأعلم والسلام عليكم ورحمة الله وبركاته

مدين أو دائن تعنى بالدارج مدين = عليه (على الشخص او على الحساب المراد التسجيل علية او على الطرف الاخر) دائن= له (مستحق لصالح الشخص او الحساب المراد التسجيل له او لصالح الطرف الاخر)

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

وعليكم السلام ورحمة الله وبركاته بعيدا عن التعقيد وتكرار البيانات عملت لك فلتر في ورقة البيانات وبعد تعديل البيانات تضغط زر حفظ التعديل فيلتغي الفلتر وبالتالي النتيجة واحدة أرجو أن يؤدي المطلوب هذي كل الأكواد Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B1")) Is Nothing Then Range("A2:APL2").AutoFilter Field:=21, Criteria1:=Range("B1") End If End Sub Sub e() Range("A2:APL2").AutoFilter Field:=21 End Sub نسخ البيانات - الى الرئيسية .xlsb

وعليكم السلام ورحمة الله تعالى وبركاته طلبك غير واضح بالنسبة لي لاكن ربما بما ان عمود B يتضمن دائما كلمة ( رقم القائمة) في اخر صف يمكنك الاعتماد عليها لترقيم الصفحات في عمود C Sub Sequence() Dim k As Long With Sheets("الجدول") k = 1 For Réf = 4 To .Range("B" & .Rows.Count).End(xlUp).Row If .Range("B" & Réf) = "رقم القائمة" Then .Range("C" & Réf) = k k = k + 1 End If Next Réf End With End Sub ترقيم الورقة (1).xlsm

احيانا نستخدم امر معين في اكثر من نموذج مثلا امر اضافة او حفظ الخ او حتى رسالة معينة فبدلا من اعادة كتابتها في كل نموذج ممكن نعمل وحدة نمطية ونستدعيها عند الحاجة وكذك قد نحتاج الى تنفيذ حدث معين في نفس النموذج فيدلا من اعادة كتابتة ممكن نستدعيها Call tx11_AfterUpdate هنا استدعينا حدث بعد التحديث للحقل tx11 عند تحديث حقل اخر او عند النقر على زر امر