اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

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


إذهب إلى أفضل إجابة Solved by احمدزمان,

الردود الموصى بها

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

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

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

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

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

رابط هذا التعليق
شارك

  • 2 weeks later...
  • أفضل إجابة

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

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

 

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information