مطلوب تعديل على هذا الكود

[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