مساعد فى كود ترحيل فى جدول

[الياسر سات]

برجاء ال مساعد فى كود ترحيل فى جدول مرفق شيت 

ترحيل.zip

[ياسر خليل أبو البراء]

أخي الكريم الياسر

جرب الكود التالي

Sub Test()
    Dim LR As Integer
    LR = Cells(27, 1).End(xlUp).Row + 1
    Range("A" & LR & ":F" & LR).Value = Range("A3:F3").Value
End Sub

تقبل تحياتي

 

[الياسر سات]

16 ساعات مضت, ياسر خليل أبو البراء said:

شكرا 

كونت اريد عمل زر الترحيل فى صفحة وجدول فى صفحة 

وشكرا لكم مرة اخرى

 

[ياسر خليل أبو البراء]

أخي الكريم الياسر

لقد قمت بعمل المطلوب على الملف المرفق ..إذا أردت أي تعديل قم بإرفاق ملفك الجديد توفيراً للوقت .حتي يسهل تقديم المساعدة

والموضوع لن يستغرق سوى دقيقة واحدة إن شاء الله طالما نفس الفكرة

فقط ستقوم بالإشارة إلى الورقة المصدر والورقة الهدف أثناء عملية الترحيل

تقبل تحياتي

[الياسر سات]

 اريد عمل زر الترحيل فى صفحة وجدول فى صفحة 

ترحيل.zip

[ياسر خليل أبو البراء]

جرب التعديل التالي (الاسم المستخدم في الكود هو الاسم البرمجي ورقة1) أما الاسم الظاهر في التبويب هو ورقة2

حاول تضبط المسميات بشكل صحيح

Sub Test()
    Dim LR As Integer
    With ورقة1
        LR = .Cells(27, 1).End(xlUp).Row + 1
        .Range("A" & LR & ":F" & LR).Value = .Range("A3:F3").Value
    End With
End Sub

تقبل تحياتي