أيسم إبراهيم

السلام عليكم جرب المرفق أخي الكريم دمت بخير أيسم إبراهيم كشف حساب.rar

السلام عليكم الأخ الكريم موضوعك ظل يشغلني طول الفترة الماضية لأني كنت في حاجة لمثله لكن لم أستطع تنفيذه ولا حتى الحصول عليه من الأخوة الزملاء و الأساتذة في المنتدى. المهم توصلت لحل يرضيك جدا و ينفذ كل ما تطلب بضغطة زر واحد الكود التالي يقوم بإخفاء الأعمدة الفارغة و التي تساوي صفر أيضا ثم قمت بعمل معاينة للطباعة في الكود ( منها يمكنك تنفيذ عملية الطباعة ) ثم قمت في النهاية بعمل إظهار للأعمدة التي تم إخفاؤها للتجهيز للمقبوضة التالية أتمنى أن يفي بكل ما تطلب دمت بخير أيسم إبراهيم Sub AY_Hide_Columns()<BR> Dim RowCell As Range<BR> Application.ScreenUpdating = False<BR> For Each RowCell In Sheet1.Range("$A$223:$Z$223")<BR> If RowCell.Value = Sheet1.Range("$Z$2").Value And RowCell <> vbNullString Then<BR> RowCell.EntireColumn.Hidden = True<BR> ElseIf Sheet1.Range("$Z$2").Value = vbNullString Then Sheet1.Range("A223:Z223").EntireColumn.Hidden = False<BR> Else<BR> RowCell.EntireColumn.Hidden = False<BR> End If<BR> Next RowCell<BR> <BR>ActiveSheet.PrintPreview<BR>Range("A1:Z225").Select<BR>Selection.EntireColumn.Hidden = False<BR>Range("A1").Select<BR>Application.ScreenUpdating = True<BR>End Sub<BR> يوم 25.rar

السلام عليكم بعد إذن الأساتذة أبو عبد الله و طارق و لإثراء الموضوع جرب أخي هذا الكود Sub SortABC() Dim i As Integer, j As Integer, x As Integer x = Sheets.Count For i = 1 To x - 1 For j = i + 1 To x If Sheets(j).Name < Sheets(i).Name Then Sheets(j).Move before:=Sheets(i) End If Next Next Sheets(1).Select End Sub دمتم بخير أيسم إبراهيم

Sub mm() Dim Expiry As Date Expiry = DateValue("10/07/2010") If Date > Expiry Then Dim CEL As Range Application.ScreenUpdating = False Application.Calculation = xlManual Sheets(2).Activate For Each CEL In ActiveSheet.UsedRange If CEL.HasFormula = True Then CEL = CEL.Value Next CEL End If Application.Calculation = xlAutomatic Application.ScreenUpdating = False Sheet2.Visible = xlSheetVeryHidden Sheet3.Visible = xlSheetVeryHidden Sheet4.Visible = xlSheetVeryHidden Sheet5.Visible = xlSheetVeryHidden Sheet1.Visible = True Sheet1.Select ActiveWorkbook.Save ActiveWorkbook.Close End Sub جرب الكود المرفق يقوم بتنفيذ الكود على ورقة 2 ويمكنك تغيير اسم الورقة من السطر التالي Sheets(2).Activate أتمنى أن يكون هذا ما تريد دمت بخير أيسم إبراهيم

السلام عليكم الأخ الكريم تم إضافة أداة الإدخال لاختيار ورقة العمل التي سيتم تنفيذ الكود عليها أعتقد أن هذا ما تريد دمت بخير أيسم إبراهيم Aysam.rar

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

السلام عليكم تفضل المرفق أخي الكريم تم إدماج الكودين في كود واحد و تم عمل كود لإظهار أوراق العمل بعد الفتح من جديد دمت بخير أيسم إبراهيم Aysam.rar

تفضل المرفق إن شاء الله يكون به ما طلبت ياريت لو سمحت أخي الكريم أن تتبع قواعد المشاركة في المنتدى اقرأها كاملة هنا 3.rar

و إذا لم تساوي واحد أو أكبر . ما ذا تريد أن يحدث ؟؟؟؟؟؟؟؟؟؟؟؟

السلام عليكم أخي أحمد اضغط زر معاينة الصفحة للطباعة من الشاشة التي ستظهر انقر زر عرض عادي(Normal View) دمت بخير أيسم إبراهيم

السلام عليكم تقضل أخي الكريم Sub DelPic() Application.ScreenUpdating = False ActiveSheet.Pictures.Delete Application.ScreenUpdating = True End Sub دمت بخير أيسم إبراهيم

Private Sub Worksheet_Change(ByVal Target As Range) Range("A1").select If ActiveCell.Value > Date Then Range("A2").Value = "hi" ElseIf Range("A1").Value <= Date Then Range("A2").Value = "hello" End If End Sub هذا كان ردي عليك في أحد المنتديات منذ فترة يبدو أنك لم تراه السلام عليكم

السلام عليكم ممتاز الحل أخي ياسر بارك الله فيك دمت بخير أيسم إبراهيم

السلام عليكم عمل جميل و متعوب فيه جزاك الله خيرا أيسم إبراهيم

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

السلام عليكم الأخ الكريم تفضل المرفق به _ إن شاء الله _ ما طلبت دمت بخير أيسم إبراهيم بيانات مندوب المبيعات.rar

السلام عليكم أخي كيماس عمل رائع و به مثابرة و دقة و دأب تحسد عليها جزاك الله خيرا أيسم إبراهيم

السلام عليكم الأخ الكريم تفضل المرفق به _ إن شاء الله _ ما طلبت دمت بخير أيسم إبراهيم بيانات مندوب المبيعات.rar

السلام عليكم الأخ الكريم أين عمود الأساسي؟ أم أن الأساسي هو المرتب بالكامل ؟؟ أرجوا التوضيح دمت بخير أيسم إبراهيم

السلام عليكم حمدا لله على سلامتك أستاذ هادي الحمد لله إنك بخير دمت دائما بخير و في أحسن حال أيسم إبراهيم

لإثراء الموضوع يمكنك استخدام المعادلة التالية DATEDIF(A1;A2;"m") حيث أنA1 =تاريخ آخر شهر مسدد وA2 = تاريخ آخر شهر غير مسدد

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

السلام عليكم الأخ الكريم اطرح آخر شهر مسدد من آخر شهر غير مسدد واجعل تنسيق الخلية التي بها معادلة الطرح كالآتي كليك يمين على الخلية ...تنسيق خلية .... مخصص... ثم اكتب الحرف m Format Cells>>> Custom>>> m

السلام عليكم الأخ الكريم اتبع الرابط التالي به شرح مفصل لما تريد الشرح للأستاذ عماد الحسامي FOR....NEXT

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