ahmed_hus

السلام عليكم ورحمه الله وبركاته جزيل الشكر لهذا المنتدى المبارك وجعله فى ميزان حسناتكم المطلوب تشغيل الكود ده عندة الضعظ دبل كليك على العمود d فقط وليس اى عمود وفى حاله الترحيل يتم ايداع قيمة الخلية c1 فى خانة السنه بجانب القيمة المرحله ( عذرا لايمكن تحميل الشيت من جهاز الشغل فتم وضع نسخة من شكله وترتيبه هنا ) تحصيلات 2012 (تمثل خلية c1) عمود d أسم العميل القيمة تاريخ الأستحقاق رقم قيد الايداع مراقب ايداع السداد البروتستو السنة احمد حسين 555.00 2012/12/15 555.00 احمد حسين 556.00 2012/12/16 احمد حسين 557.00 2012/12/17 احمد حسين 558.00 2012/12/18 احمد حسين 559.00 2012/12/19 احمد حسين 560.00 2012/12/20 وهذا الكود Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Sheet1.Cells(1, 2) = "تحصيلات" Then Selection.Copy ActiveCell.Offset(0, 4).Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Else If Sheet1.Cells(1, 2) = "مرتدات" Then Selection.Copy ActiveCell.Offset(0, 5).Range("A1").Select ActiveSheet.Paste Application.CutCopyMode = False Else Sheet1.Activate End If End If End Sub