السلام عاليكم اخواني اريد المساعدة في التعديل علي هذا الكود داخل الملفل
اريد من هذا الكود ان يقوم باضافة المتر المربع لكل فاتورة حسب اسم الصنف الي المتر المربع داخل المخزن حسب اسم الصنف هذا داخل فاتورة البيع
اريد من هذا الكود ان يقوم بخصم المتر المربع لكل فاتورة حسب اسم الصنف من المتر المربع داخل المخزن حسب اسم الصنف هذا داخل فاتورة الموردين
هذا هو الكود المراد التعديل عالية
Sub ÝÇÊæÑÉ_ÈíÚ_ááãÎÒä()
'
' ÝÇÊæÑÉ_ÈíÚ_ááãÎÒä ãÇßÑæ
'
Dim FS As Worksheet, TS As Worksheet
Dim Q1
Set FS = Sheets(ActiveSheet.Name)
Set TS = Sheets("ÇáãÎÒä ÈÔßá ÚÇã")
For FR = 5 To 30
Q1 = FS.Cells(FR, 6).Value
Q2 = FS.Cells(FR, 4) & "*" & FS.Cells(FR, 5)
Q3 = FS.Cells(FR, 7).Value
For TR = 3 To 999
If TS.Cells(TR, 2) = Q1 Then
For TC = 3 To 33
If TS.Cells(2, TC) = Q2 Then
TS.Cells(TR, TC) = TS.Cells(TR, TC) - Q3
GoTo 9
End If
Next 'TC
End If
Next 'TR
9 Next ' FR
'
End Sub
المخزن.xlsm