ahmed_hus قام بنشر يناير 10, 2013 قام بنشر يناير 10, 2013 السلام عليكم ورحمه الله وبركاته جزيل الشكر لهذا المنتدى المبارك وجعله فى ميزان حسناتكم المطلوب تشغيل الكود ده عندة الضعظ دبل كليك على العمود 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
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.