احمد عبدة

السادة المحترمين المساعدة فى كود حذف عميل بالكود تحياتى close custumer.zip

الاخوة المحترمين ارجو المساعدة فى هذة الاضافة لدى مشروع مماثل ومشكلتى مخرجات البرنامج (التقارير) المطلوب اضهار اجمالى التقرير من مدين ودائن ورصيد مع اضطهار تذيل وراس للصفحة لوجو مناسب تحياتى Ali_CLo_Time.rar

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

السلام عليكم هل من الممكن اضافة اجماليات التقرير فى الطباعة تحياتى

رائع اكثر من رائع بارك الله فيك وذادك من علمة تحياتى

برنامج اكثر من رائع بارك الله فيك وذادك من علمة يحتاج الى تطوير من حيث التقارير تحياتى والى الافضل دائما

الاخوة الاعضاء المحترمين هل من الممكن تحويل الملف التفيذى مرة اخرى الى ملف اكسل excel to exe والعكس exe to excel تحياتى

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

ياجماعة طلب مساعدة فى الطباعة

الملف عبارة عن برنامج الايجارات للاستاذ ضاحى الغريب بعد اذن الاستاذ ضاحى الغريب برنامج الايجارات الاصدار الثاني - ضاحي الغريب.rar

ارجو من استاذنا الفاضل / ضاحى الغريب شرح كود الطباعة لبرنامج الايجارات لقلة معرفتى بكود الطباعة تحياتى لاستاذنا الغالى [Sub Tenants_LstAdaMPrint() Set Frm = Tenants Sheet6.Visible = True Set SH = Sheet6 Application.Visible = True With SH .Activate For mm = 0 To Frm.LstAdaM.ListCount Dim Last As Long Rows("5:5").Hidden = False Last = Range("b" & Rows.Count).End(xlUp).Row + 1 + mm On Error Resume Next With Rows(Last) .FillDown .SpecialCells(xlConstants).ClearContents End With On Error GoTo 0 Next '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' LsRow = .Cells(Rows.Count, "b").End(xlUp).Row + 1 On Error Resume Next For AA = 0 To Frm.LstAdaM.ListCount .Cells(AA + LsRow, 2) = Frm.LstAdaM.Column(5, AA) .Cells(AA + LsRow, 4) = Frm.LstAdaM.Column(3, AA) .Cells(AA + LsRow, 5) = Frm.LstAdaM.Column(1, AA) Next: '""""""""""""""""""""""""""""""""""""""""""""""""""""""" LR = .Cells(Rows.Count, "b").End(xlUp).Row .Cells(LR + 1, 5) = Frm.T_Total1.Value: .Cells(LR + 1, 2) = "الـمجمـوع " '.Cells(LR + 1, 6) = Frm.Paid.Value '.Cells(LR + 1, 7) = Frm.T_Total1.Value '''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Rows("5:5").Hidden = True ER = WorksheetFunction.CountA(Range("A:E")) + 1 RR = .Cells(.Rows.Count, "A").End(xlUp).Row RN = "A1:E" & ER .[A3].Value = Frm.Lb_Information.Caption Tenants.Hide .Range(RN).PrintOut Copies:=1, Preview:=True, Collate:=True .Range("A6:E" & Rows.Count).Clear: .[A3].Value = "" Sheet6.Visible = False Sheet1.Activate Application.Visible = False Tenants.Show End With: End Sub

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

عمل جميل لمنتدى رائع شكرا على الاستفادة من البرامج تحياتى

شكرا اخ حسام جزاك الله خيرا وذادك من علمة مشكور اخ وائل على محاولة المساعدة جزاك الله خيرا وذادك من علمة

نرجو من السادة المحترمين اساتذة المنتدى الرائع المساعدة فى اتمام مشروع حصر بيانات المنطقة شكرا على تعاونكم تحياتى close custumer.rar

السادة المحترمين اساتذة المنتدى نرجو المساعدة فى عمل ورقة طباعة منفصلة على الاكسل بفرز اسم معين شكرا على حسن تعاونكم تحياتى طباعة فى ورقة اكسل منفصلة.rar

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

جزاك الله كل خير وزادك من علمة تم تعديل الاسم تحياتى

السادة الاخوة المحترمين نرجو حل المشكلة لتعم الفائدة وتحياتى لكل اعضاء المنتدى الرائع المطلوب جمع المبلغ.rar

السلام عليكم ورحمة الله وبركاته الاستاذ / ضاحي الغريب الاستاذ / شوقي ربيع بارك الله فيكم برنامج اكثر من رائـــــــــــــــــع نرجو من الله لكم التوفيق دائماً وعمل الافكار الجديدة والمتميزة دائماً تحياتى

السيد الاستاذ / عبدالله باقشير المحترم هل هناك امكانية لاضافة اكثر من قائمة فى الفورم تحياتى

الاستاذ عبد الله المحترم ارجو المساعدة فى استدعاء البيان عند تحديدة فى الليست بوكس واظهارة فى مربع النص وهل يمكن التعديل على البيان شكراا للتعاون تحياتى استدعاء بيان بالليست بوكس.rar

شكراا استاذ عبد الله وبارك الله فيك

الاخوة الاعزاء نرجو المساعدة فى عرض بيانات بالليست بوكس بشيت مختلف وشكرا للمنتدى الرائع استدعاء بيان بالليست بوكس.rar

شكرا لك اخى عبد الله على الاهتمام بالموضوع ولكن المعادلات المراد حمايتها تظهر هل هناك امكانية من اخفاء المعادلات وحماية الشيت من التعديل علية والنسخ ومرة اخرى شكرا للاهتمام بالموضوع