تعديل علي كود ترحيل

[حسن البدوي0]

السلام عاليكم اخواني اريد المساعدة في التعديل علي هذا الكود داخل الملفل

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

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

هذا هو الكود المراد التعديل عالية

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

[احمدزمان]

السلام عليكم و رحمة الله وبركاته

Sub فاتورة_بيع_للمخزن()
'
' فاتورة_بيع_للمخزن ماكرو
'
Dim FS As Worksheet, TS As Worksheet
Dim Q1
Set FS = Sheets(ActiveSheet.Name)
Set TS = Sheets("المخزن")

For FR = 5 To 69
Q1 = FS.Cells(FR, 5).Value
Q3 = FS.Cells(FR, 8).Value
For TR = 1 To 999
If TS.Cells(TR, 1) = Q1 Then
TS.Cells(TR, 3) = TS.Cells(TR, 3) - Q3
GoTo 9
End If
Next 'TR
9 Next ' FR
'
End Sub

Sub فاتورة_مورد_للمخزن()
'
' فاتورة_بيع_للمخزن ماكرو
'
Dim FS As Worksheet, TS As Worksheet
Dim Q1
Set FS = Sheets(ActiveSheet.Name)
Set TS = Sheets("المخزن")

For FR = 5 To 69
Q1 = FS.Cells(FR, 5).Value
Q3 = FS.Cells(FR, 8).Value
For TR = 1 To 999
If TS.Cells(TR, 1) = Q1 Then
TS.Cells(TR, 3) = TS.Cells(TR, 3) - Q3
GoTo 9
End If
Next 'TR
9 Next ' FR
'
End Sub