ترحيل + جمع

[عمر الجزاوى]

منتدى اوفيسنا المحترم الذى يمد يده بالمساعدة دائما شكرا لكم جميعا وبتاسف لكم لكثرة اسئلتى المطلوب ترحيل الخلية M5 الى رصيد اول بناء على اسم المنتج الموجود في الخلية  L5  وعند ترحيل الخلية m5 تنجمع مع الموجود في العمود رصيد اول بناء على اسم المنتج الموجود فى العمود B 

 

ترحيل + جمع.xlsm

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

جرب هذا الكود

Sub AdNumber()
  Dim Rs As Worksheet
  Dim FIND_RG As Range

On Error GoTo Bay_Bay_Ya_Helween

  Set Rs = Sheets("الرصيد")
  Set FIND_RG = Rs.Range("B:B").Find(Rs.Range("L5"), Lookat:=1)

If Not FIND_RG Is Nothing Then
  FIND_RG.Offset(, 5) = _
  Val(FIND_RG.Offset(, 5)) + Val(Rs.Range("M5"))
  Rs.Range("M5") = vbNullString
End If

Bay_Bay_Ya_Helween:
End Sub

jassawi.xlsm

[عمر الجزاوى]

تسلم يمينك استاذ سليم هذا هو المطلوب وكود رائع بعد اذنك استاذ سليم ممكن نربط الكود بخلية بدل مانربطها بزر مثل ما فى الصورة