ابو اسامة العينبوسي

السلام عليكم في الحقيقه ان هدا السؤال و الموضوع مهم من وجهة نظرى فعند الطباعه تحتاج الى مجموع كل صفحه على حدى سابدأ مع الاخوه الخطوه الاولى ( قد تشكل خميره الحل ) ادا عرفنا موقع فاصل الصفحات العرضى نستطيع التوقف هناك و نضع معادله للمجموع(بغض النطر عن عدد الصفوف لانه يتغير بتغير حجم الورقة و النص ) فالاساس هو فاصل الصفحات هنا كود لاستعراض مواقع فواصل الصفحات في الورقة المدرجه في مثال الاخ اعلاة Sub countHPageBreaks() With Worksheets(1) For i = 1 To .HPageBreaks.count MsgBox "فاصل الصفحه رقم " & i & "-" & "هو الصف رقم " & .HPageBreaks(i).Location.Row Next i End With End Sub اسف لتغيبي الطويل بسبب العمل و الله الموفق Total For Each Page.rar

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

السلام عليكم انا قد لا اشارك لانشغالى لكن مش ممكن يمر اسبوع الا ادخل المنتدى هذا عشقى الاول

السلام عليكم اخى العزيز انا اعمل في مجال الصيرفة و اعمل مايلى اذا كان لديك ازواج ثابته من العملات تتداولها باستمرار اعمل الاتى مثلا 1 - شراء دينار كويتى مقابل ريال سعودى 2- بيع دينار كويتى مقابل ريال سعودي و هكذا حتى 6 او 7 او 8 ازواج ارجو الرد ان كنت معنى السلام عليكم

السلام عليكم مشاركة بسيطة Private Sub CommandButton1_Click() If Me.CommandButton1.Caption = "ÇÎÝÇÁ ÎØæØ ÇáÔÈßÉ" Then ActiveWindow.DisplayGridlines = False Columns(1).EntireColumn.Hidden = True Me.CommandButton1.Caption = "ÚÑÖ ÎØæØ ÇáÔÈßÉ" Else ActiveWindow.DisplayGridlines = True Columns(1).EntireColumn.Hidden = False Me.CommandButton1.Caption = "ÇÎÝÇÁ ÎØæØ ÇáÔÈßÉ" End If End Sub HideGridlines.rar

السلام عليكم dd mmm yyyy dd mmm yyyy.rar

السلام عليكم استخدم Subtotal

السلام عليكم هكذا ما الخطأفي الكود2.rar

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

السلام عليكم ممكن هكذا =IF(WEEKDAY(C7)=5,C7+3,C7+1)[code] المرفق الثانى اوضح Date2.rar Date3.rar

السلام عليكم ارفق الملفين وفقك الله

السلام علبكم OUT FAX (Autosaved)2.rar

السلام عليكم بهذا الكود في التحقق من الصحة =AND(WEEKDAY(A1)<> 5, WEEKDAY(A1)<>6) باستثناء الخميس و الجمعة.rar باستثناء الخميس و الجمعة.rar

السلام عليكم شكرا جزيلا لكما الاخوة الافاضل استخدمه لعمل لطباعة فواتير "رسيتس" شكرا لكما الفكرة كانت اين اضع الكود في اى حدث فكان workbook_activate

السلام عليكم اللاخوه المحترمين في هذا المنتدى المعطاء هل من الممكن ربط تنفيذ ماكرو او كود ب احد مفاتيح ال F1.......F12 او PrintScrn

السلام عليكم مبدع اخى ابو عبد الله

السلام عليكم Private Sub Box_TimeIn_AfterUpdate() Box_TimeIn = Format(Box_TimeIn, "00.00") If Box_TimeOut <> "" And Box_TimeIn <> "" Then Me.Box_Time = Me.Box_TimeIn - Me.Box_TimeOut ElseIf Box_TimeOut = "" Or Box_TimeIn = "" Then Box_Time = "" End If End Sub

السلام عليكم بهذا الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Target.Row < 5 Or Target.Row > 13 Then Exit Sub If Target.Column = 1 Or Target.Column = 8 Or Target.Column = 9 Or Target.Column = 10 Then Cancel = True Target.Value = Time() Selection.NumberFormat = "h:mm;@" End If End Sub

السلام عليكم اللهم اهدى اخى اسماعيل شكرا لك

السلام عليكم الملف لايفتح عندى

مشكور اخى

السلام عليكم اليك ما طلبت باستثناء موضوع البحث لا استطع عمله الاخ خبور له باع في مثل هذه الامور TryThisOneDear2.rar

السلام عليكم ممكن لكن الهدف من الترحيل الى الاولى هو لطباعة البيانات المدخله حديثا (بتاريخ اليوم) ثم بعد ذلك تمسح تلقائيا اكمل لك الحل من البيت ان شاء الله

السلام عليكم اخى ممكن....... لكن لو تتكرم وترفق مثال نكون سعداء بمساعدتك

السلام عليكم ان كان المقصود نكمل Dim LR, LR2 As Integer With Sheets(1) LR = .Cells(1000, 1).End(xlUp).Row + 1 For i = 1 To 6 If IsNumeric(Me.Controls("textbox" & i)) Then .Cells(LR, i) = Val(Me.Controls("TextBox" & i)) Else .Cells(LR, i) = Me.Controls("TextBox" & i) End If Next i End With '---------------------------------------------------- With Sheets(2) LR2 = .Cells(1000, 1).End(xlUp).Row + 1 For i = 1 To 6 If IsNumeric(Me.Controls("textbox" & i)) Then .Cells(LR, i) = Val(Me.Controls("TextBox" & i)) Me.Controls("TextBox" & i).Value = "" Else .Cells(LR, i) = Me.Controls("TextBox" & i) Me.Controls("TextBox" & i).Value = "" End If Next i End With Me.TextBox1.SetFocus TryThisOneDear.rar