محمد الزريعي قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 الاخوة الأعزاء .. انا وضعت الكود الخاص بالترحيل من شيت الي شيت أخر وهو كالتالي : 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 مع ترحيل الرابط التشعبي . وشكراً رابط هذا التعليق شارك More sharing options...
محمد الزريعي قام بنشر ديسمبر 20, 2015 الكاتب مشاركة قام بنشر ديسمبر 20, 2015 كود ترحيل بيانات الخلية من شيت 1 الي شيت 2 مع الرابط التشعبي حيث ان ("1")sa.=sheets ("2")sh.=sheets هذا توضيح للأعلى رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 (معدل) السلام عليكم كالتالي sa.Cells(zz, 5).Copy Sh.Cells(LR1, 5) تم تعديل ديسمبر 20, 2015 بواسطه الـعيدروس رابط هذا التعليق شارك More sharing options...
محمد الزريعي قام بنشر ديسمبر 20, 2015 الكاتب مشاركة قام بنشر ديسمبر 20, 2015 يعطيك العافية اخي العيدورس . نعم أخي هي المفترض نفس ما قلت من المفروض تنتقل بيانات الخلية مع رابطها .. ولكن الي يحدث لم يتم نقل الهايبر لنك . شاهد المثال المرفق مثال.rar رابط هذا التعليق شارك More sharing options...
الـعيدروس قام بنشر ديسمبر 20, 2015 مشاركة قام بنشر ديسمبر 20, 2015 الكود هو 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 تحياتي 2 رابط هذا التعليق شارك More sharing options...
محمد الزريعي قام بنشر ديسمبر 20, 2015 الكاتب مشاركة قام بنشر ديسمبر 20, 2015 اسعدتني الله يسعدك .. تم تجربة الكودين .. وطلع المطلوب .. وشكراً لك جزيلاً والله يجعلها في ميزان حسناتك ، هذا ما اقدر أوصله لك . رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.