ترحيل مبالغ الى اماكن محددة

[skyblue]

الاساتذة المشرفين والاعضاء الافاضل

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

برجاء المساعدة حسب المرفق

BOOK1.rar

[احمدزمان]

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

اخي الكريم

اتذكر هذا الموضوع زمان اشتغلنا علية

على اي حال

ادور علية وان حصلته اوافيك به

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

السلام عليكم

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

Sub Abu_Ahmed()

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

Select Case [D7].Value:

    Case Is <> 0

    MySh.[e6] = [D7]

    MySh.[e11] = [D8]

    MySh.[e16] = [D9]

    MySh.[e21] = [D10]

Case Else

    GoTo 1

End Select

1 End Sub

[احمدزمان]

ارجو المعذرة

أنا استعجلت في الرد وما فهمت مظبوط

ولكن اتضحت الروئيا بعد رد اخي ابو احمد

[skyblue]

ايو احمد اعجز ماذا اقول لك . لكن مشكور والف شكر على الحل .

استاذ احمد زمان ايضا مشكور فلطالما تعملت منك الكثير .

حفظكم الله