اذهب الي المحتوي
أوفيسنا

كود نسخ البيانات اتوماتيك

mohmod zedan

بواسطه mohmod zedan
في منتدى الاكسيل Excel

 مشاركة
إذهب إلى الإجابة الإجابة بواسطة a.kawkab,

الردود الموصى بها

أبوأحـمـد

أبوأحـمـد

قام بنشر
قام بنشر

غير الكود إلى 

Sub TR7el()
Dim wk, wk2 As Worksheet
Dim ro, ro4 As Long
Set wk = Worksheets("رصد2")
Set wk2 = Worksheets("شيت2")

    ro4 = wk2.Range("A" & Rows.Count).End(xlUp).Row
  If ro4 >= 10 Then wk2.Range("A10:CH" & ro4) = ""

    ro = wk.Range("B" & Rows.Count).End(xlUp).Row
wk.Range("B8:D" & ro & ",G8:CK" & ro).Copy
wk2.Range("A10").PasteSpecial Paste:=xlPasteValues


End Sub

وخبرني

  • Like 1
  • Thanks 2
  • 2 weeks later...
mohmod zedan

mohmod zedan

قام بنشر
  • الكاتب
قام بنشر
  في 14‏/8‏/2023 at 08:11, a.kawkab said:

تفضل اخى الملف اى بيان يضاف فى شيت رصد2 بمجرد فتح شيت 2 ستجد البيانات تم نسخها تركت لك زر المسح شغال واوقفت زر الترحيل

Expand  

طيب ليه لما بتم النسخ في الشيت بتم التحديد ممكن تتلغي

زائر
هذا الموضوع مغلق.
 مشاركة
الذهاب الي قائمه المواضيع

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information

  I accept