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

[mohmod zedan]

كود نسخ البيانات من رصد 2  الى شيت2  اتوماتيك

كود نسخ.xlsbFetching info...

تم تعديل يوليو 24, 2023 بواسطه mohmod zedan

[أبوأحـمـد]

تفضل

كود نسخ البيانات.xlsmFetching info...

[mohmod zedan]

  في 24‏/7‏/2023 at 21:35, أبوأحـمـد said:

تفضل

Expand  

شكرا اخى الكريم لكن لو تكرمت معاليك عايز الغي التنسيق اللى بتنسخ به من الشيت

[أبوأحـمـد]

ماني فاهم

النسخ يتم للقيم فقط

صور هذا التنسيق

[mohmod zedan]

يعنى تنسيق الخط في الرصد 48 بيبقى في الشيت بردو 48

[أبوأحـمـد]

غير الكود إلى

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

وخبرني

[mohmod zedan]

ممكن طريقة اخري نسخ اتوماتيك بدون رز

 

[a.kawkab]

  في 6‏/8‏/2023 at 16:07, mohmod zedan said:

ممكن طريقة اخري نسخ اتوماتيك بدون رز

 

Expand  

السلام عليكم 

للنسخ بدون زر ضع نفس الكود فى حدث change لشيت رصد2 او فى حدث activate لشيت 2

[mohmod zedan]

  في 13‏/8‏/2023 at 07:24, a.kawkab said:

السلام عليكم 

للنسخ بدون زر ضع نفس الكود فى حدث change لشيت رصد2 او فى حدث activate لشيت 2

Expand  

ممكن توضح في الملف

[a.kawkab]

  في 13‏/8‏/2023 at 18:17, mohmod zedan said:

ممكن توضح في الملف

Expand  

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

كود نسخ البيانات.xlsmFetching info...

[mohmod zedan]

  في 14‏/8‏/2023 at 08:11, a.kawkab said:

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

Expand  

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

[a.kawkab]

تفضل اخى الكريم الملف بعد ازالة التحديد

كود نسخ البيانات.xlsmFetching info...