ترحيل من ورقة1 الى ورقة 2 لكن بشروط هل من حل

[زوهير]

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

ممكن كود في محرر vb يقوم بترحيل مبلغ معين من ورقة رقم 1 الى ورقة رقم 2 مع مرعاة الشروط التالية

1 يتم اضافة العدد ويتم جمعه ما العدد الذي سبق ترحيلة

2 وذلك بتأكد من الاسم او الرقم هل ممكن مع جزيل الشكر مسبقا

[احمدزمان]

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

ان شاء الله ممكن

وهناك عدة طرق

لذلك نحتاج ملف لفهم المطلوب وعمل الكود

[زوهير]

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

ان شاء الله ممكن

وهناك عدة طرق

لذلك نحتاج ملف لفهم المطلوب وعمل الكود

بارك الله فيك واشكرك على اهتمامك اولا

المرفق

مثال.rar

[عبدالله المجرب]

السلام عليكم

ضه هذا الكود في زر امر في الورقة 1

Sub Abu_Ahmed_Sum()

Dim cl As Range

For Each cl In Sheets("ورقة 2").Range("A2:A3")

If cl.Value = [A3].Value Then

x = cl.Offset(0, 1).Value

cl.Offset(0, 1).Value = x + [B3].Value

End If

Next

End Sub

ثم اكتب الاسم والمبلغ الذي تريد

في ورقة2 اجعل الاسماء بدون تكرار

[زوهير]

اخي السلام عليك

بارك الله فيك على هذا الاهتمام لقد نجح الامر جزئيا ولك جزيل الشكر ولاحترام والتقدير

لكن لو تكرمت اخي مازال هناك مشكل عالق

وهو ان الامر لا يقوم بمسح الخلايا عند العودة للورقة الاولى

وكذلك لا يقوم بادراج زبون جديد

وشكرا على تعاونك وحسن اهتمامك وجزاك الله خير الجزاء

[عبدالله المجرب]

السلام عليكم

حسب طلبك سيصبح الكود هكذا

Sub Abu_Ahmed_Sum()

Dim cl As Range

Set WS2 = Sheets("ورقة 2")

LR = WS2.Range("a" & Rows.Count).End(xlUp).Row

xx = Application.CountIf(WS2.Range("A2:A" & LR), [A3].Value)

If xx = 0 Then

WS2.Range("A" & LR + 1) = [A3].Value

WS2.Range("B" & LR + 1) = [B3].Value

Else

For Each cl In WS2.Range("A2:A" & LR)

If cl.Value = [A3].Value Then

x = cl.Offset(0, 1).Value

cl.Offset(0, 1).Value = x + [B3].Value

End If

Next

End If

[A3:B3].Value = ""

End Sub

[زوهير]

بارك الله فيك اخي الكريم وزادك علما ونفعا لاخوتك المسلمين

والله يعجز اللسان عن عذن شكرك كلمة شكر لا تكفي

ولكن اقول لك اثابك الله الجنة ورفع قدرك وزادك علما ووقاك شر البلايا

********* نعم اخي الدالة هي المطلوبة ووفت بالغرص ********

واعذرني عن الاطالة في رد لأني اعمل طول النهار ولا يتسنى لي التصفح الا في الليل

[عبدالله المجرب]

بارك الله فيك

والحمدلله انك وصلت الى مبتغاك