اريد اضافات للكود

[saad abed]

اخوانى
اعتذر عن هذا العنوان المبهم فكرت فلم اجد ايضاحات دلالية ****اكرر اعتذارى
ما اطلبه من حضراتكم
1- فورم البحث الذى صنع كوده الاستاذ احمد عبدالناصر
اضفت له التعديل ولكن بشرطين لكن الكود لا يعمل وان عمل يعدل فى اكثر من سطر

 

 

الطلب الثانى(مديول repor)

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

بشرط ان يجمع البند فقط

1 (2).rar

تم تعديل مايو 23, 2013 بواسطه سعد عابد

[عبدالله المجرب]

السلام عليكم 

قمت تعديلات على الكود لتعديل صيغة التاريخ في الليست بوكس 

جرب المرفق

 

1 (2).rar

[saad abed]

اخى ابواحمد عبدالله

جزاك الله خيرا

مشكلة الست بوكس اتحلت على يديك

بارك الله فيك

فى انتظار الطلب الثانى

وهو هل يمكن اضافة معادلة sum

لجم البنود فى مديول reportصفحة report2

[عبدالله باقشير]

السلام عليكم

 

هذا تعديل طفيف على الكود لتحصل على التجميع في كود التقرير

Sub BB()
Dim i As Long, ii As Long
On Error Resume Next
Range("c7:g55").ClearContents
Set MySheet = Sheets("data")
For i = 1 To 7
If i > 1 Then Range("C" & [d10000].End(xlUp).Row + 1) = "الأجمالي"
Range("C" & [d10000].End(xlUp).Row + 2) = MySheet.Cells(7, i + 11)
Range(MySheet.Cells(8, i + 11), MySheet.Cells(MySheet.Cells(Rows.Count, i + 11).End(xlUp).Row, i + 11)).Copy
Range("d" & [d10000].End(xlUp).Row + 2 + T).PasteSpecial (xlPasteValuesAndNumberFormats)
T = 1
Next
 Application.CutCopyMode = False
For i = 7 To 55
    ''''''''''''''''''''
    If CStr(Cells(i, "C")) = "الأجمالي" Then
        Cells(i, "e").Resize(1, 3).Formula = "=SUM(R[-" & ii - 1 & "]C:R[-1]C)"
        ii = 0
    Else
        ii = ii + 1
    End If
    ''''''''''''''''''''
    If Cells(i, "d") >= 1 Then
        Cells(i, "e") = Application.WorksheetFunction.SumIf(Sheets("saad").Range("b7:b5000"), Cells(i, "d"), Sheets("saad").Range("c7:c5000"))
        Cells(i, "f") = Application.WorksheetFunction.VLookup(Sheets("report2").Range("d" & i), Sheets("data").Range("d6:e100"), 2, 0)
        Cells(i, "g") = Val(Cells(i, "e")) * Val(Cells(i, "f"))
    End If
Next
With Sheets("report2").[b6:g55]
        .Font.NAME = "Arabic Typesetting"
        .Font.Size = 14
        .Font.Bold = True

End With
End Sub

في امان الله

[عبدالله المجرب]

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

[saad abed]

اخى عبدالله باقشير

كلمات الشكر قليلة استاذى

كلمات الاعجاب بفكرك البرمجى اقلها رووووووووووووووووووووووووعة

كنت اظن ان الاكواد تاتى فى وقت ما لاتقول معلهش مش هقدر لكنك يوما بعد يوم تثبت عكس ذلك

جزاك الله خيرا

بارك الله فيك

===================

الكود يمنى الاصل من صنع اخى عبدالله المجرب

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

شكرا لكما

بارك الله فيكما

دمتم بخير