( عنوان معدل ) ترحيل خلايا من ورقة عمل لأخرى عند الضغط على خليه

[حسام عبدالمحسن]

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

 

الاساتذة عمالقة المنتدى مرفق لكم ملف اكسيل فى الورقة رقم1  فى العمود الاول مجموعه اسماء وفى العمود الثانى المبالغ الخاصة بهم

 

اريد عند الضغط على اى اسم يتم ترحيل الاسم والمبلغ الخاص به فى الورقة رقم2

 

مثال :عند الضغط على حسام1 يتم ترحيلة فى الورقة رقم2 فى الصف الاول........وعند الضغط على حسام3 يتم ترحيلة ايضا فى الروقة2 فى الصف الثانى

وعند الضغط على حسام3 يتم ترحيلة الى الصف الثالث

ارجوا ان اكون قدرت اوصل المطلوب

وارجو شرح المعادلة للافادة

وجزاكم الله كل خير

 

 

hosam.rar

[بن علية حاجي]

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

 

أخي الكريم حسام، جرب الكود التالي في حدث الورقة 1:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
   LRow1 = Sheets("æÑÞÉ1").Range("A65000").End(xlUp).Row 
   LRow2 = Sheets("æÑÞÉ2").Range("A65000").End(xlUp).Row + 1
      If Not Intersect(Target, Range("A2:A" & LRow1)) Is Nothing Then
         With Sheets("æÑÞÉ1")
            .Range(.Cells(Target.Row, 1), .Cells(Target.Row, 2)).Copy Sheets("æÑÞÉ2").Range("A" & LRow2)
        End With
      End If
End Sub

العبارة "æÑÞÉ" في الكود معناه "ورقة"

 

وقد تم تطبيقه على ملفك في المرفق: hosam.rar

 

 

أخوك بن علية

[حسام عبدالمحسن]

اخى الكريم ابن علية

بالفعل هذا هو المطلوب بارك الله فيك

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

الملف بة مجموعه اوراق

التنفيذ على ورقة 2013   يتم ترحيل المبلغ المقابل الاسم وهو شهر مايو

والترحيل يكون فى ورقة المطالبات

 

الملف بة شاشة افتتاحية

اسم المستخدم(حسام)

كلمة المرور(حسام)

 

كلمة سر محرر الاكودvba 

(2731987)

 

http://www.gulfup.com/?jXQxCX

[بن علية حاجي]

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

 

أخي الكريم، لست أدري إن كنت قد فهمت المطلوب، انظر إلى الملف المرفق الذي تم فيه نعديل على الكود حسب المطلوب الذي فهمته...

 

أخوك بن علية

 

 

الملف المرفق على الرابط التالي: http://www.mediafire.com/?bhapttt5a4ysx54

[حسام عبدالمحسن]

اخى العزيز بن علية

 

 تم تحميل الملف ولم يفتح من البداية

[بن علية حاجي]

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

 

أخي الكريم، لم أفهم ما تعنيه بـ "ولم يفتح من البداية".، لأني قمت بتحميله وفتحه دون أي مشكل...

 

أخوك بن علية

[حسام عبدالمحسن]

اخى العزيز مرفق صورة توضح ماذا اقصد

http://http://im42.gulfup.com/MaVjX.bmp

تم تعديل مايو 14, 2013 بواسطه حسام غباشى

[حسام عبدالمحسن]

اخى الكريم بن علية

 

تمت تجربة الملف على جهاز اخر وقمت بفتحة ولكن عند الضغط على اى اسم من الاسماء الموجودة تظهر رسالة

مرفق صورة لتوضيح ذلك

[ضاحي الغريب]

أخي الحبيب /// حسام

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

الملف مضبوط وكود (((اخي الحبيب بن علية حاجي))).....  رائع ويعمل بكفاءة.

وهذه صورة من الملف

 

والملف رفعته لك مــرة أخري (((علي الرابط التالي )))

 

http://

[حسام عبدالمحسن]

الاخوة الكرام

بارك الله فيكم لقد اجهدتكم كثيرا معى جزاكم الله كل خير تم تجربة الملف بعد تغيير نسخة الاوفيس ويعمل جيدا واشكر كل من ساهم فى عمل هذا الملف خاصة ((اخى بن علية حاجى)) ولكم جزيل الشكر

[حسام عبدالمحسن]

الاخوة الكرام

بارك الله فيكم لقد اجهدتكم كثيرا معى جزاكم الله كل خير تم تجربة الملف بعد تغيير نسخة الاوفيس ويعمل جيداولكن عند الضغط على العمود الخاص بالاسم لعمل بحث على اى اسم فى الشيت  2013 يتم تحديد الملف بالكامل هل يوجد حل لهذة المشكلة

واشكر كل من ساهم فى عمل هذا الملف خاصة ((اخى بن علية حاجى)) ولكم جزيل الشكر

[حسام عبدالمحسن]

الاخ الكريم بن حاجى

الملف يعمل جيدا ولكن عند الضغط على العمود الخاص بالاسم يتم تحديد الملف بالكامل مما يعوقنى فى البحث عن اى اسم ارجوا حل هذة المشكلة للاهمية

 

http://www.gulfup.com/?XMVCb2