الـعيدروس

السلام عليكم بعد اذن استاذي الحبيب احمد زمان حسب فهمي للمطلوب بيكون الكود كذا Sub tahwiell() 'نقل البيانات Application.Calculation = xlManual Dim FS, FR, TS, TR FS = "الوارد" TS = Sheets(FS).Range("A20") TR = Sheets(FS).Range("J20") TC = Sheets(FS).Range("K20") Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Cells(TR, TC) = Sheets(FS).Cells(20, 6) Sheets(TS).Protect Password:="ehab123" With Sheet11 S = .Range("F1000").End(xlUp).Row + 1 If Sheet1.Cells(4, "g").Value = .Cells(4, "f").Value Then .Cells(S, "f").Value = Sheet1.Cells(5, "c").Value ElseIf Sheet1.Cells(4, "g").Value = .Cells(4, "g").Value Then .Cells(S, "g").Value = Sheet1.Cells(5, "c").Value End If End With TS = Sheets(FS).Range("A21") TR = Sheets(FS).Range("J21") TC = Sheets(FS).Range("K21") 'Sheets(TS).Unprotect Password:="ehab123" Sheets(TS).Cells(TR, TC) = Sheets(FS).Cells(21, 5) 'Sheets(TS).Protect Password:="ehab123" Application.Calculation = xlAutomatic MsgBox "الحمد لله تم النقل" Sheets(FS).Select ActiveSheet.EnableSelection = xlUnlockedCells ActiveSheet.Protect End Sub ارجو ان اكون وفقت في فهم طلبك تحياتي

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

لاشكر على واجب وفقك الله

السلام عليكم تفضل هذا الكود حطه في ماكرو Private Const GWL_STYLE As Long = -16 Public Const MIN_BOX As Long = &H20000 Public Const MAX_BOX As Long = &H10000 Const SC_CLOSE As Long = &HF060 Const SC_MAXIMIZE As Long = &HF030 Const SC_MINIMIZE As Long = &HF020 Const SC_RESTORE As Long = &HF120 Private Declare Function GetWindowLong _ Lib "user32.dll" _ Alias "GetWindowLongA" _ (ByVal hwnd As Long, ByVal nIndex As Long) As Long Private Declare Function SetWindowLong _ Lib "user32.dll" _ Alias "SetWindowLongA" _ (ByVal hwnd As Long, _ ByVal nIndex As Long, _ ByVal dwNewLong As Long) As Long Private Declare Function DrawMenuBar _ Lib "user32.dll" _ (ByVal hwnd As Long) As Long Private Declare Function GetForegroundWindow _ Lib "user32.dll" () As Long Public Sub AddToForm(ByVal Box_Type As Long) Dim BitMask As Long Dim Window_Handle As Long Dim WindowStyle As Long Dim Ret As Long If Box_Type = MIN_BOX Or Box_Type = MAX_BOX Then Window_Handle = GetForegroundWindow() WindowStyle = GetWindowLong(Window_Handle, GWL_STYLE) BitMask = WindowStyle Or Box_Type Ret = SetWindowLong(Window_Handle, GWL_STYLE, BitMask) Ret = DrawMenuBar(Window_Handle) End If End Sub وهذا حطه في حدث الفورم Private Sub UserForm_Activate() AddToForm MIN_BOX AddToForm MAX_BOX End Sub

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

تسلم اخي ابو الحسن والحمد لله انه اشتغل معك تمام اذا عانا احد الاخوة من عدم تشغيل الفورم يتبع شرح الفيديو وإن شاء الله يمشي الحال shrh.rar

السلام عليكم اخي الفاضل أبو الحسن أنت تستاهل كل خير تكبير تصغير اخفاء الاطار فقط الكثير والكثير اطلع على الملف المرفق تحكم بشكل الفورم.rar

السلام عليكم تفضل HID_SH_PASS.rar

تسلم اخي ابو الحسن وملفك اروع واروع بحكم انه على كلمة مرور تقبل تحياتي وشكري

السلام عليكم بعد اذن اخي الحبيب أبو الحسن تفضل عله يكون المراد HID_SH.rar

السلام عليكم وهذا الملف الاخير ( اخر ماتوصلنا اليه) ومن لدية الوقت من الاساتذه الافاضل يكمل ماتبقى بدل مايكون التعب تعبين مهم جدا _alidroos8.rar

السلام عليكم بالنسبة لدالة التجميع للمخالفات هي دالة معرفة بكود وانت حذفت الكود التابع لها فكيف تبغاها تعمل معاك حط هذا الكود في مودويل وراح تعمل معاك ان شاء الله Function S(rng) Dim CellSum As Long Dim Cell As Range Application.Volatile CellSum = 0 Set rng = Intersect(rng.Parent.UsedRange, rng) For Each Cell In rng If IsNumeric(Cell) Then If Not Cell.EntireRow.Hidden And _ Not Cell.EntireColumn.Hidden Then _ CellSum = CellSum + Cell End If Next Cell S = CellSum End Function

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

السلام عليكم عباقرة الاكسس حفظكم الله اريد كود يقوم بتغير اتجاه التكست بوكس حسب تغيير اعداد الصفحه مثلا الصفحه افقي يتغير باتجاه افقي الصفحه عمودي يتغير باتجاه عمودي الصفحه ( صفحة الطباعه ) PrintPreview ويحتفظ بموقع التكست

تم التصويت من قبلي وأطمنك صوت قدام قدام لاحد الطلب 20

السلام عليكم اكتب التاريخ بهذا الشكل 01/01/1433 06/01/1433 جرب المرفق مهم جدا _alidroos8.rar

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

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

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

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

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

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

السلام عليكم اطلع على المرفق وبه الملاحظة الاخيرة من قبلك بالنسبة لإسم مدير الشئون و الموظف المسئول أكتب اساميهم في خلايا H1 و H2 بدل النقاط ======================================== وهل وجود التقرير فى الصفحة دى لازم يلغى الشغل القديم الى هو ادخل رقم الاقامة هنا "إقتباس" ======================================== لا يأثر ابداً انا عدلت مكان الخليه صارت B2 التعديل لشيت المخالفات المرورية فقط =================== اي ملاحظات او تعديل في هذه النقطه انا موجود الى لقاء متجدد تحياتي المرفق في المشاركة التالية =======>>>>>

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

السلام عليكم الاخ الفاضل ضى النور مسائك فل وياسمين لاعليك من اراد ان يتعلم لابد مايسأل اولا السموحه منك على التأخير وبالنسبه للملف والله هذي الساعه فقط قدرت امسك فيه شويات ====================== ماتم عمله هو التالي ====================== تقرير لورقة المخلافات المرورية تحط من (تاريخ ) الى (تاريخ) وتضغط الزر ( تقرير لتاريخ معين) عمل الزر هو : يقوم بعمل تصفية مابين التاريخين المحددين يقوم بعمل إظهار الأحدث في الصفوف الأولى ويلية القديم مع تذيل للصفحة مسئول الشئون : .... الموظف المختص : ... إجمالي مبالغ المخلافات مابين التاريخين : (مبلغ وقدر) لاتنسى التسديد بدري كي لايتضاعف المبلغ أما الفورمز لم يتم أي تعديل أو إضافات لضيق الوقت الى لقاء متجدد تحياتي مهم جدا _alidroos5.rar