Tự động thêm dòng ở sheet2 (1 người xem)

[Duong gia]

Chào các bác. Mong các bác giúp đỡ vấn đề sau: Giả sử file excel có 2 sheet. Ở Sheet1 chứa mã hàng, tên hàng ... và tôi đặt A120 là CSDL. Sheet2 tôi đặt vùng dữ liệu từ A120 là CSDL1. Khi ta insert thêm mã hàng mới ở sheet1 thì tự động sheet2 cũng insert thêm dòng và có mã hàng tương ứng. Mong các Bác viết đoạn code cho cv này. Cám ơn rất nhiều.

 

[ThuNghi]

Chào các bác. Mong các bác giúp đỡ vấn đề sau: Giả sử file excel có 2 sheet. Ở Sheet1 chứa mã hàng, tên hàng ... và tôi đặt A120 là CSDL. Sheet2 tôi đặt vùng dữ liệu từ A120 là CSDL1. Khi ta insert thêm mã hàng mới ở sheet1 thì tự động sheet2 cũng insert thêm dòng và có mã hàng tương ứng. Mong các Bác viết đoạn code cho cv này. Cám ơn rất nhiều.

Dùng sự kiện activate tại sheet2

Private Sub Worksheet_Activate()
Gan
End Sub

Sub Gan()
Dim eRow As Long
With Sheet1
    eRow = .[a65000].End(xlUp).Row
    .Range("A1:D" & eRow).Name = "CSDL01"
    Sheet2.Range("A1:D" & eRow).Value = .Range("A1:D" & eRow).Value
End With
Sheet2.Range("A1:D" & eRow).Name = "CSDL02"
End Sub

 

[Duong gia]

Dùng sự kiện activate tại sheet2

Private Sub Worksheet_Activate() Gan End Sub

Sub Gan() Dim eRow As Long With Sheet1     eRow = .[a65000].End(xlUp).Row     .Range("A1:D" & eRow).Name = "CSDL01"     Sheet2.Range("A1:D" & eRow).Value = .Range("A1:D" & eRow).Value End With Sheet2.Range("A1:D" & eRow).Name = "CSDL02" End Sub

Cám ơn Bác ThuNghi. Bác sửa một chút giúp em với vì mục đích của em là CSDL02 thể hiện Doanh thu còn vùng bên dưới CSDL02 dùng để thể hiện Chi phí lấy từ sheet khác. KQKD là Doanh thu - Chi phí. Nếu dùng đoạn code của bác thì không được, vì nó sẽ xóa hết vùng dữ liệu bên dưới. Thanks

 

[rollover79]

Dùng sự kiện activate tại sheet2

Private Sub Worksheet_Activate()
Gan
End Sub

Sub Gan()
Dim eRow As Long
With Sheet1
    eRow = .[a65000].End(xlUp).Row
    .Range("A1:D" & eRow).Name = "CSDL01"
    Sheet2.Range("A1:D" & eRow).Value = .Range("A1:D" & eRow).Value
End With
Sheet2.Range("A1:D" & eRow).Name = "CSDL02"
End Sub

Dùng event Active của Worksheet 2 như này rất hay, code viết gọn và đơn giản, dễ kiểm soát. Nhưng cũng có 1 chút hạn chế, ví dụ ở 1 sheet khác sheet2 có dùng công thức tham chiếu đến vùng CSDL ở sheet 2 này, khi ta thay đổi CSDL1 ở sheet1 thì các công thức tham chiếu kia sẽ không được cập nhật cho tới khi sheet 2 được Active.

 

[nghiabanh]

Sub Gan()
Dim eRow As Long
With Sheet1
eRow = .[a65000].End(xlUp).Row
.Range("A1" & eRow).Name = "CSDL01"
Sheet2.Range("A1" & eRow).Value = .Range("A1" & eRow).Value
End With
Sheet2.Range("A1" & eRow).Name = "CSDL02"
End Sub