معادلة إدراج سعر شراء من شيت إلى شيت آخر

[waleedsh3alan]

اساتذتى الكرام ارجو منكم المساعده فى هذه المعادله

والمطلوب منها ادراج اخر سعر للشراء من شيت اضافه الى شيت مخزن

مرفق صوره المعادله

وصوره لشيت الاضافه العمود H (السعر )

وصوره لشيت مخزن المراد اضافه المعادله به العمود H (اخر سعر للشراء )

 

[سليم حاصبيا]

3 ساعات مضت, waleedsh3alan said:

اساتذتى الكرام ارجو منكم المساعده فى هذه المعادله

والمطلوب منها ادراج اخر سعر للشراء من شيت اضافه الى شيت مخزن

مرفق صوره المعادله

وصوره لشيت الاضافه العمود H (السعر )

وصوره لشيت مخزن المراد اضافه المعادله به العمود H (اخر سعر للشراء )

 

الصورة لا تنفع لادراج معادلة

مطلوب الملف

[waleedsh3alan]

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

وهل يمكن فى كود ترحيل الفواتير ان يتم الترحيل دون تغيير المعادلات   المدرجه على الفاتوره

w sh.rar

[سمير نجار]

اخي الكريم وليد

بعد اذن استاذنا سليمw sh-1.rarw sh-1.rar في المرفق

طبعاُ الملف مستمد من حل سابق للاستاذ سليم

w sh-1.rar

[سليم حاصبيا]

يمكن استعمال هذا الكود(بدون حلقات تكرارية)

ريما يكون اسرع

Sub Salim_transfer()
Dim ws As Worksheet, Sh As Worksheet
Dim i As Long, LR As Long, LS As Long
Dim New_LR As Long
Dim My_Rg1 As Range
Dim My_Rg2 As Range

Application.ScreenUpdating = False
Set ws = Sheets("مشتريات")
Set Sh = Sheets("اضافه")

LR = Sh.Range("C" & Rows.Count).End(xlUp).Row
LS = ws.Range("C" & Rows.Count).End(xlUp).Row
If LS <= 6 Then MsgBox "Nothing to Copy": GoTo Leave_Me_Out
If LR < 2 Then LR = 2
Set My_Rg1 = ws.Range("a7:a" & LS)
Set My_Rg2 = ws.Range("b7:e" & LS)
 With Sh.Range("b" & LR + 1).Resize(LS - 6, 1)
    .Value = ws.Range("E2").Value
    .Offset(, 1).Value = ws.Range("b4").Value
    .Offset(, 2).Value = ws.Range("b3").Value
    .Offset(, 3).Value = My_Rg1.Value
    .Offset(, 4).Resize(LS - 6, 4).Value = My_Rg2.Value
   
 End With
  

New_LR = Sh.Range("B" & Rows.Count).End(xlUp).Row
Sh.Range("a3:a5000").ClearContents
    For i = 1 To New_LR - 2
     Sh.Range("a" & i + 2) = i
    Next
Leave_Me_Out:
Application.ScreenUpdating = True
End Sub

 

[Eslam Abdullah]

دى معادله لادراج اخر سعر شراء من شيت الاضافه لشيت المخزن لعلها تفى بالغرض
طبقتها على الملف المرسل

w sh.rar

[waleedsh3alan]

اشكر الاساتذه الكبار على مساعدتى فى هذا العمل

سليم حاصبيا

سمير نجار

Eslam Abdullah