أبو حنــــين

بعد اذن اخي : / الاستاذ محمود خبير المعادلات هذا المثال بالكود التأخير2.rar

تفضل أخي الاعداد.rar

السلام عليكم تم عمل اللازم كلمه مرور لتشفيرها.rar

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

السلام عليكم اخي لقد وضعت هذه الدالة في الخلية J5 و سحبتها للاسفل لكنها تعمل مع بعض الاسطر و لا تعمل مع اخرى و لا اعرف سبب ذلك =((H5+I5)-(F5+G5))*24

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

او بهذه الطريقة Book1.rar

جرب هذا الكود Private Sub CommandButton1_Click() For s = 4 To 4500 If Range("H1").Value = Cells(s, 5).Value Then Cells(s, 8).Value = Cells(s, 7).Value Else Cells(s, 8).Value = "" End If If Range("H1").Value = Cells(s, 6).Value Then Cells(s, 9).Value = Cells(s, 7).Value Else Cells(s, 9).Value = "" End If If Range("j1").Value = Cells(s, 5).Value Then Cells(s, 10).Value = Cells(s, 7).Value Else Cells(s, 10).Value = "" End If If Range("j1").Value = Cells(s, 6).Value Then Cells(s, 11).Value = Cells(s, 7).Value Else Cells(s, 11).Value = "" End If Next End Sub

السلام عليكم تحويل الارقام.rar

إستعمل هذا الكود ربما يفي بالغرض Sub Hanine() Dim LR As Integer, x As Integer LR = [A10000].End(xlUp).Row Sheets("Cleared Payment").Range("A5:R1000").ClearContents Application.ScreenUpdating = False x = 5 For s = 5 To LR If Cells(s, 21).Value = 0 Then Range("a" & s).Resize(1, 18).Copy Sheets("Cleared Payment").Range("A" & x).PasteSpecial xlPasteValues Application.CutCopyMode = False x = x + 1 End If Next s MsgBox "Êã ÇáÊÑÍíá ÇáÈíÇäÇÊ ÈäÌÇÍ", vbInformation + vbMsgBoxRight, "ÊÑÌíá" Application.ScreenUpdating = True End Sub

جزاكم الله خيرا أخي أبو أحمد

العفو أخي skyblue

لو فرضنا ان الاسم الاول في الخلية A1 و الاسم الثاني في الخلية B1 فيكون الجمع في الخلية C1 بالدالة =A1 & " " & B1

السلام عليكم غير الدالة في الخلية H6 بالدالة التالية =E6 & TEXT(F6;"mm-yyyy")

جرب هذا الكود في حدث الورقة Private Sub Worksheet_Selectionchange(ByVal Target As Range) LastRow = Cells(Rows.Count, "A").End(xlUp).Row + 1 ComboBox1.Clear For t = 1 To LastRow If Cells(t, 1).Value > 0 And Cells(t, 1) <> "" Then ComboBox1.AddItem Cells(t, 1).Value End If Next End Sub

جزاك الله خيرا أخي مجدي يونس

جمعة مبارك لك أيضا أخي الكريم سمير و جزاك الله خيرا

استعمل هذا الماكرو Sub AbouHanine() Application.ScreenUpdating = False Dim cl As Range For Each cl In Range("A1:A14") For i = 1 To Sheets.Count Range("A1").AutoFilter Field:=1, Criteria1:=cl If Sheets(i).Name = cl Then Range("A2:A14").Copy With Sheets(i) .Select: .Range("A1").Select: .Paste Application.CutCopyMode = False: Sheets(1).Select: Selection.AutoFilter End With: End If Next: Next Application.ScreenUpdating = True End Sub

بارك الله فيكم أخي الحبيب : عبد الله جزاكم الله خيرا عمل متقن فعلا

السلام عليكم و رحمة الله أخي الكريم : سمير الهنداوي أخي الحبيب : أبو نصار جزاكم الله خيرا على مروركم الطيب أخي الكريم : / محمود رواس أرجو المعذرةعن تأخري عن الرد بسبب النت و مشاغل أخرى لكنني في القريب العاجل سأرد على تساؤلكم

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

لقد قمت بانجاز برنامج من جديد حسب ما اراه مناسبا جربه و اخبرني بالنتيجة و لا تنسانا من دعائكم الصالح التقسيط 4.rar

هذه محاولة لبعض التساؤلات أسماء الأبناء.rar

هذه بعض التنسيقات على الملف لا اذري هل تقصد هكذا ام غير ذلك فرز.rar

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