سليم حاصبيا

هذا الملف لا يسمح لك بتكرار الاسم واللقب من خلال يوزر فورم تعديل في زر اضافة salim.rar

تفضل على 2003 القائمة المنسدلة في C5 مطاطة كل رقم يدرج فيها يتم حفظه تلقائياً والمكرر لا يسجل الا مرة واحدة Fatoura-Final 2003.rar

هل هذا ما تقصده recorder.rar

تم معالجة الامر Fatoura-Final 2.rar

1-عليك اولا مسح الفاتورة من الارشيف من خلال الزر Delete (عدة مرات)حتى تظهر لك رسالة تفيد ان كل بيانات هذه الفاتورة قد تم مسحها (اذ يمكن ان تكون الفاتورة مسجلة اكثر من مرة في الارشيف) 2- قم يتعديل ما تريد على الفاتورة( اضافة او حذف بعض البيانات أو تعديل التاريخ الخ....) 3-اضغط على ترحيل مرفق ملف جديد للعمل عليه فاتور مع ترحيل واستدعاء salim2.rar

هذا لأنك وافقت على نسخ فاتورة ثانية من خلال الرسالةالتي ظهرت عندما ضفطت على الزر ترحيل الحل مسح الفاتورتين (اضغط مرتين على الزر DElete ثم اعد كتابة الفاتورة) أو امسح الفاتورتين يدوياً من خلال تحديد صفوفهما ثم right click ثم Delete row

جرب هذا الملف الجديد فاتور مع ترحيل واستدعاء salim2.rar

استبجل الماكرو بهذا Sub experement() Dim my_rg As Range On Error Resume Next Set my_rg = Application.InputBox("insert you range", Type:=8) If my_rg Is Nothing Then MsgBox ("Please select One column") On Error GoTo 0 Exit Sub End If cols = my_rg.Columns.Count If cols <> 1 Then MsgBox ("Please select One column"): Exit Sub If my_rg.Count = 1 Then Set my_rg = my_rg Else Set my_rg = my_rg.SpecialCells(xlCellTypeBlanks).Columns(1) End If For Each cel In my_rg With cel If .Offset(0, 1).Value <> "" Then .Value = .Offset(0, 1).Value .Offset(0, 1).Value = "" .Offset(0, 2).Value = Date End If End With Next End Sub

تفضل الملف جاهز جمع عددين بدون وضع الفارزة العشرية salim.rar

اكنب هذه المعادلة في الخلية G6 واسحب نزولاً =IF(OR(E6="",F6=""),"",CEILING(SUM(F6,E6)/2,1))

تفضل اخي ما تريد يمكنك تشغيل الماكرو بواسطة Ctlr+Shif+D وليس Crl+D لان هذا الاختصار يفقدك اختصار اخر (نسخ المعادلات) يمكنك ايضاً تشغيل الماكرو بواسطة الزر انتقال بيانات من الى Macro1.rar

جرب هذا الماكرو Sub sum_if() my_max = Application.Max(Sheets("Salary").Range("a:a")) Sheets("Salary").Range("c8:c" & my_max).Formula = "=IF(B8<>"""",SUMIF(Data!$B$7:$B$200,$B8,Data!$I$7:$I$200),"""")" Sheets("Salary").Range("c8:c" & my_max).Value = Sheets("Salary").Range("c8:c" & my_max).Value End Sub

يمكن استبدال الكود بهذا الذي يجعلك تختار في جال موجود اسم او تاريخ مشترك بين نعم او لا Sub Tarhil_salim() Dim lrb, lrg, My_Max, Name_count, Date_count As Integer Dim S_Sh As Worksheet Dim T_Sh As Worksheet Set S_Sh = Sheets("الفاتورة"): Set T_Sh = Sheets("الارشيف") Name_count = Application.CountIf(T_Sh.Range("c:c"), S_Sh.Range("c7")) Date_count = Application.CountIf(T_Sh.Range("b:b"), S_Sh.Range("c6")) If Name_count + Date_count >= 2 Then Message = MsgBox("هذه الفاتورة يمكن ان تكون مكررة! تأكد من ذلك" & Chr(10) & "اذا أردت الاستمرار إضغط نعم", 68) If Message <> 6 Then Exit Sub End If My_Max = Application.Max(S_Sh.Range("b:b")) lrg = T_Sh.Cells(Rows.Count, "G").End(3).Row If lrg = 1 Then lrg = 2 If lrg = 2 Then S_Sh.Range("c9" & ":f" & 9 + My_Max - 1).Copy Destination:=T_Sh.Range("g" & lrg) Else S_Sh.Range("c9" & ":f" & 9 + My_Max - 1).Copy Destination:=T_Sh.Range("g" & lrg + 2) End If T_Sh.Range("H:j").Value = T_Sh.Range("H:j").Value lrg = T_Sh.Cells(Rows.Count, "G").End(3).Row lrb = lrg - My_Max + 1 With T_Sh .Cells(lrb, 2) = S_Sh.Range("c6").Value .Cells(lrb, 3) = S_Sh.Range("c7").Value .Cells(lrb, 4) = S_Sh.Range("c38").Value .Cells(lrb, 5) = S_Sh.Range("c39").Value .Cells(lrb, 6) = S_Sh.Range("c36").Value End With End Sub

جرب هذا لملف للترحيل فقط فاتور مع ترحيل واستدعاء salim.rar

جرب هذا الملق استمارة تنقيط خاصة بنهاية السنة salim.rar

جرب هذا الملف What_Are The Changed Cells.rar

جرب هذا الماكرو Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Column <> 1 Then Exit Sub If Target.Count > 1 Or Target <> "" Then Exit Sub If Target.Offset(0, 1) <> "" And Target.Offset(0, 2) = "" Then Target.Value = Target.Offset(0, 1).Value Target.Offset(0, 1).Value = "" Target.Offset(0, 2).Value = Time Target.Offset(0, 3).Value = Date End If End Sub

هات مثال غلى ذلك ثم تريد النسخ ام النقل

هذه المعادلة تغطي مجموع ايام الغياب و التأخير(لا اعلم اذا كان هذا المطلوب) =SUMPRODUCT(--($D4:$AH4="ت"))+SUMPRODUCT(--($D4:$AH4="غ"))

لا ارى الا جدول فارغ

بعد فتح المصنف الذي تريد قم بما يلي: 1-من تبويب Formula اختر name manager 2- حدد New 3 -في خانة Name حدد اي اسم تريده (عندي انا cell_has_formula ) 4- في خانة Refers to اكتب هذه المعادلة =GET.CELL(48,INDIRECT("rc",FALSE)) 5-اصغط Ok ثم Close 6- اصغط Alt+O+D+N ثم اختر من النافذة ....use a formula to determine 7-اكتب في خانة Fomat value هذه المعادلة cell_has_formula= 8- اختر التنسيق الذي تريد

اذهب الى هذا العنوان

لا تبحث عن المعادلات بالطربقة التقليدية (~+Ctrl+Shift) بعد الان اكسل يلوّن لك الخلية التي تحتوي على معادلة بمجرد كتابتها والضغط على Enter تلوين المعادلات.rar

لا تبحث عن المعادلات بالطربقة التقليدية (~+Ctrl+Shift) بعد الان اكسل يلوّن لك الخلية التي تحتوي على معادلة بمجرد كتابتها والضغط على Enter تلوين المعادلات.rar

جرب هذه المعادلة في الخلية I8 واسحب يساراً ثم نزولاً بدون (Ctrl+Shift+Enter) اذا لم تعمل معك المعادلة استبدل الفاصلة , بفاصلة منقوطة ; =INDEX($D$3:$D$25,(COUNTIF($B$3:$B$25,$H8)-1)*(COLUMNS($I$8:I8)-1)+MATCH($H8,$B$3:$B$25,0)) أو يمكنك استعمال هذه المعادلى للعامود الاول (Ctrl+Shift+Enter) =MIN(IF($B$3:$B$25=$H8,$D$3:$D$25,"")) و هذه للعامود الثاتي (Ctrl+Shift+Enter) =MAX(IF($B$3:$B$25=$H8,$D$3:$D$25,""))