• اضافة إهداء
    (المعذره .. غير مسموح للزوار بإضافة الإهداءات, الرجاء التسجيل في المنتدى)


أهلا وسهلا بك زائرنا الكريم في أكاديمية الصقر للتدريب، لكي تتمكن من المشاركة ومشاهدة جميع أقسام المنتدى وكافة الميزات ، يجب عليك إنشاء حساب جديد بالتسجيل بالضغط هنا أو تسجيل الدخول اضغط هنا إذا كنت عضواً .




12-01-2018 04:10 مساء
مشاهدة مشاركة منفردة [1]
malik
menu_open
عضو
rating
معلومات الكاتب ▼
تاريخ الإنضمام : 03-10-2017
رقم العضوية : 857
المشاركات : 173
الجنس : ذكر
تاريخ الميلاد : 4-7-1985
الدعوات : 4
يتابعهم : 14
يتابعونه : 2
قوة السمعة : 86
الاعجاب : 29
 offline 
look/images/icons/i1.gif خلل في الكود
وعليكم السلام اخي جزاك الله كل خير

قم بلصق هذا الكود في مكان الكود الي عندك 

وجرب عمل ان كان هو طلبك 
ننتظر الرد 
Sub account()
Sheets(2).Activate
Range("C4:L1000" & Cells(Rows.Count, "D").End(xlUp).Row).Copy


Sheets(1).Activate
Range("C" & [L1000].End(xlUp).Row + 1).Select
Selection.PasteSpecial xlPasteValues
Sheets(2).Activate
Range("D4:L1000").ClearContents
Range("D4").Select
MsgBox ("تم الترحيل")
End Sub


 



الساعة الآن 02:10 صباحا