الترحيل

[orbit]

السادة الأعضاء

أريد كود بسيط لترحيل قيمة خلية إلى خلية أخرى استنادا إلى قيمة خلية ثالثة

[حمادة عمر]

من الافضل ان ترفق ملف بمثال لما تريده

مع توضيح الشروط التي سيتم الترحيلعلي اساسها  اذا تحققت في الخلية الثالثة كما تريد

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

[orbit]

السادة الأعضاء

أريد كود بسيط لترحيل قيمة خلية إلى خلية أخرى استنادا إلى قيمة خلية ثالثة

السادة الأعضاء المحترمين أنا أريد تعلم طريقة كتابة الكود

أريد أن أكتب في الخلية ل B2 في الورقة 1 ويتم ترحيل محتوى الخلية إلى B2 في الورقة2 إذا كانت قيمة الخلية A1 في الورقة الأولى كلمة "حساب" مثلا

[عبدالله المجرب]

السلام عليكم

تابع هذا الرابط

http://www.officena.net/ib/index.php?showtopic=41919

[محمد توبه]

اضف اولا زر امر واضف اليه هذا الكود

 

dim sh as worksheet

dim sh1 as worksheet

(set sh= sheets("sheet1"

(set sh1= sheets("sheet2"

lr=sh1.range("b100").end(xlup).row

 then "حساب"=[if sh.range[a1 

[sh1.range("b" & lr).value = sh.range[b2

else 

exit sub

end if

 

يرجى من اساتذتى بالمنتدى الاستاذ حماده عمر و الاستاذ عبد الله المجرب مراجعه الكود لتصحيح ما به من اخطاء

تم تعديل يونيو 26, 2013 بواسطه محمد توبه