خالد المصـــــــــــرى قام بنشر يونيو 14, 2023 مشاركة قام بنشر يونيو 14, 2023 كود نسخ البيانات من ورقة لورقة اكسل كود للنسخ.xlsb رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر يونيو 14, 2023 مشاركة قام بنشر يونيو 14, 2023 In the first sheet module paste the following code Private Sub Worksheet_Change(ByVal Target As Range) Dim ws As Worksheet, sh As Worksheet, rng As Range, lr As Long If Target.Row > 6 And Target.Column < 10 Then Application.ScreenUpdating = False With ThisWorkbook Set ws = .Worksheets(1): Set sh = .Worksheets(2) End With lr = ws.Cells(Rows.Count, "C").End(xlUp).Row If lr >= 7 Then Set rng = ws.Range("D7:J" & lr) With rng Rem sh.Range("A6").Resize(.Rows.Count, .Columns.Count).Value = rng.Value rng.Copy sh.Range("A6") End With End If Application.ScreenUpdating = True End If End Sub the code will be executed as soon as you changed any cell in the range 2 1 رابط هذا التعليق شارك More sharing options...
خالد المصـــــــــــرى قام بنشر يونيو 14, 2023 الكاتب مشاركة قام بنشر يونيو 14, 2023 لو سمحت بعد اذنك ارفق ملف العمل مع الكود رابط هذا التعليق شارك More sharing options...
lionheart قام بنشر يونيو 14, 2023 مشاركة قام بنشر يونيو 14, 2023 I don't attach files if you don't know how to copy the code and use it, you have to learn the basics first before posting a question 2 رابط هذا التعليق شارك More sharing options...
أفضل إجابة خالد المصـــــــــــرى قام بنشر يونيو 14, 2023 الكاتب أفضل إجابة مشاركة قام بنشر يونيو 14, 2023 (معدل) تمام شكرا تم التجريب بارك الله فيك تم تعديل يونيو 14, 2023 بواسطه خالد المصـــــــــــرى 1 رابط هذا التعليق شارك More sharing options...
الردود الموصى بها