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

[mohmod zedan]

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

كود نسخ.xlsb

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

[أبوأحـمـد]

تفضل

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

[mohmod zedan]

21 ساعات مضت, أبوأحـمـد said:

تفضل

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

[أبوأحـمـد]

ماني فاهم

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

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

[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 19:07, mohmod zedan said:

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

 

السلام عليكم 

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

[mohmod zedan]

11 ساعات مضت, a.kawkab said:

السلام عليكم 

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

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

[a.kawkab]

13 ساعات مضت, mohmod zedan said:

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

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

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

[mohmod zedan]

1 ساعه مضت, a.kawkab said:

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

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

[a.kawkab]

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

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