لماذا احتاج تكرير المتغير (عبارة عن الصف الاخير)

[saad abed]

اخوتى

السلام عليكم

اسئلتى كترت انا عارف

احببت ان اقلدكم واصنع اكوادى بنفسى فظهر لى الاتى

احتجت تكرار المتغير اكات وكذللك متغير اخر بنفس الطريقة

لانى احتاج السطر الاخير فى العمود cوالعمودd

فلماذا احتجت التكرار

هل يمكن اختصار الكود

المرفق يوضح كل شئ

 

1.rar

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

السلام عليكم 

اخي سعد قمت بإختصار الكود ليكو كالتالي

Sub BB()
Range("c7:h100").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
For i = 7 To 60
Cells(i, "e") = Application.WorksheetFunction.SumIf(Sheets("saad").Range("c5:c10000"), Cells(i, "d"), Sheets("saad").Range("b5:b10000"))
Cells(i, "f") = Application.WorksheetFunction.VLookup(Range("d8:d100"), Sheets("data").Range("c5:e100"), 3, 0)
Cells(i, "g") = Cells(i, "e") * Cells(i, "f")
Next
 Application.CutCopyMode = False
With Sheets("report2").[b6:h60]
        .Font.NAME = "Arabic Typesetting"
        .Font.Size = 14
        .Font.Bold = True
        .HorizontalAlignment = xlCenter
'
End With
End Sub

[saad abed]

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

بما اننى اثق فى قدراتك

فقبل التجربة

كود جميل واختصار فى محله

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

اشكركم

جارى التجربة واعلامكم بالنتيجة

[saad abed]

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

عندما جربت الكود زهلت من دقة عمل الكود

ايه الجمال ده يا عبدالله

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

وبارك فيك

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

الحمد لله تمت الإجابة