كود نقل الخلية من شيت 1 الي شيت 2 مع الرابط التشعبي

[محمد الزريعي]

الاخوة الأعزاء ..

انا وضعت الكود الخاص بالترحيل من شيت الي شيت أخر  وهو كالتالي :

 Sh.Cells(LR1, 5) = sa.Cells(zz, 5)  
Sh.Cells(LR1, 6) = sa.Cells(zz, 6)
Sh.Cells(LR1, 7) = sa.Cells(zz, 7)
Sh.Cells(LR1, 8) = sa.Cells(zz, 8)

لكن وجت في الحقيقة انه ينقل الكلمة ولا ينقل الرابط التشعبي الخاص بها .

ياليت احد يدلني كيف ارنقل الراتبط التشعبي .

أي ارحل البيانات من الشيت 1 الي الشيت 2  مع ترحيل الرابط التشعبي . وشكراً

[محمد الزريعي]

كود ترحيل بيانات الخلية من شيت 1 الي شيت 2 مع الرابط التشعبي

حيث ان

 

("1")sa.=sheets

("2")sh.=sheets

هذا توضيح للأعلى

[الـعيدروس]

السلام عليكم 

كالتالي

sa.Cells(zz, 5).Copy Sh.Cells(LR1, 5)

 

تم تعديل ديسمبر 20, 2015 بواسطه الـعيدروس

[محمد الزريعي]

يعطيك العافية اخي العيدورس .

نعم أخي  هي المفترض نفس ما قلت  من المفروض تنتقل بيانات الخلية  مع رابطها .. ولكن  الي يحدث لم يتم نقل الهايبر لنك .

شاهد المثال المرفق

 

 

مثال.rar

[الـعيدروس]

الكود هو 

 Set sa = Sheets("1")
 Set sh = Sheets("2")
 sh.Cells(2, 2) = sa.Cells(2, 2)
 sh.Cells(2, 3) = sa.Cells(2, 3)
 sh.Cells(2, 4) = sa.Cells(2, 4)
 sh.Cells(2, 5) = sa.Cells(2, 5)

sh.Activate

لم تغير شيء فيه كما هو الصح كالتالي

Sub dd()
 Set Sa = Sheets("1")
 Set sh = Sheets("2")
 With Sa
     .Cells(2, 2).Copy sh.Cells(2, 2)
     .Cells(2, 3).Copy sh.Cells(2, 3)
     .Cells(2, 4).Copy sh.Cells(2, 4)
     .Cells(2, 5).Copy sh.Cells(2, 5)
 End With
 sh.Activate
End Sub

او هكذا كإختصار الاسطر

Sub dd()
 Set Sa = Sheets("1")
 Set sh = Sheets("2")
 With Sa
     Union(.Cells(2, 2), .Cells(2, 3), .Cells(2, 4), .Cells(2, 5)).Copy sh.Cells(2, 2)
 End With
 sh.Activate
End Sub

تحياتي

[محمد الزريعي]

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