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

[خالد المصـــــــــــرى]

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

كود للنسخ.xlsb

[lionheart]

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

[خالد المصـــــــــــرى]

لو سمحت بعد اذنك ارفق ملف العمل مع الكود

[lionheart]

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

[خالد المصـــــــــــرى]

تمام شكرا تم التجريب بارك الله فيك

 

تم تعديل يونيو 14, 2023 بواسطه خالد المصـــــــــــرى