Tạo form có Code xóa dòng khi đang ở Sheet khác

[HuyQTD]

Chào các bác
Em đang làm một file excel trong đó có 2 sheet. Sheet1 từ A2 đến A10 là dữ liệu, Sheet NHAT_KY dùng để lưu các quá trình sau khi in. Khi đang ở Sheet1 sau khi nhập số liệu vào ô B9 và Enter qua ô B10 thì chương trình sẽ tự copy dữ liệu từ A1 đến A10 vào Sheet NHAT_KY theo thứ tự vào dòng trống từ trên xuống, đồng thời sẽ gọi Form (Huy1)lên . Bây giờ em muốn các Bác viết Cod để khi nhấn nút Thoát thì chương trình sẽ tự động xóa dòng vừa copy sang Sheet NHAT_KY đồng thời tại ô A1 sẽ được lùi đi 1 đơn vị. Mong các Bác giúp đỡ nhé!!! Thân chào.

 

[ZzNHCzZ]

Code nút Thoát bạn viết đơn giản như sau:

Private Sub CommandButton2_Click()
Dim n As Integer
NHAT_KY.Select
    n = NHAT_KY.Range("A65536").End(xlUp).Row
    If n > 0 Then
            Rows(Trim(Str(n))).Select
            Selection.Delete Shift:=xlUp
    End If
Sheet1.Select
Huy1.Hide
End Sub

Không biết đúng ý bạn chưa?

Thân!

 

[HuyQTD]

Cảm ơn Bác ZzNHCzZ. Nhưng nếu trường hợp có 2 Sheet như giống Sheet1 đều copy vào Sheet NHAT_KY thì khi nhấn nút thoát thì ở Sheet nào thì trở về Sheet đó và tại ô A1 phải lùi đi một đơn vị thì phải làm sao? Mong Bác giúp đỡ!

 

[ZzNHCzZ]

Cảm ơn Bác ZzNHCzZ. Nhưng nếu trường hợp có 2 Sheet như giống Sheet1 đều copy vào Sheet NHAT_KY thì khi nhấn nút thoát thì ở Sheet nào thì trở về Sheet đó và tại ô A1 phải lùi đi một đơn vị thì phải làm sao? Mong Bác giúp đỡ!

Bạn có thể nói rõ cho mình được không?
vd mình có 3 Sheet: 2 sheet Du Lieu và 1 sheet Nhat Ky

Khi Click nút thoát ở Dữ liệu 1 thì có đúng như sau ko?

• Dòng cuối của Sheet Nhật Ký sẽ bị xóa
• Dòng cuối của Sheet Dữ liệu 1 bị xóa

Khi Click nút thoát ở Dữ liệu 2 thì có đúng như sau ko?

• Dòng cuối của Sheet Nhật Ký sẽ bị xóa
• Dòng cuối của Sheet Dữ liệu 2 bị xóa

Bạn trả lời nhanh nhé

Thân!

 

[HuyQTD]

Khi Click nút thoát ở Dữ liệu 1 thì.

• Dòng cuối của Sheet Nhật Ký sẽ bị xóa
• Và vẫn mở Sheet Dữ liệu 1
• Tại ô A1 của Dữ liệu 1 lùi đi một đơn vị

Khi Click nút thoát ở Dữ liệu 2 thì.

• Dòng cuối của Sheet Nhật Ký sẽ bị xóa
• Và vẫn mở Sheet Dữ liệu 2
• Tại ô A1 của Dữ liệu 2 lùi đi một đơn vị

Nhờ Bác giúp như thế này!