با سلام
در فایل جدید با اضافه کردن یک ماکرو در صورت اضافه شدن سطر در جدول اول ، در جدول دوم نیز سطر اضافه میگردد
کد PHP:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next 'skip all run-time errors'
If Not Application.Intersect(Target, Range("A:c")) Is Nothing Then
Application.EnableEvents = False
Macro1
Application.EnableEvents = True
On Error GoTo 0 'Turn off error trapping and re-allow run time errors'
End If
End Sub
کد PHP:
Sub Macro1()
Z = Sheet1.Cells(Sheet1.Rows.Count, "A").End(xlUp).Row
Z = Z + 8
ActiveSheet.ListObjects("Table2").Resize Range("$H$9:$J" & Z)
End Sub
علاقه مندی ها (Bookmarks)