nhờ giúp đỡ nút ghi dữ liệu

[lyc2011]

Em có file excel
sheet 1 là ct dùng nhập dữ liệu
sheet 2 là CT sẽ lưu các dữ liệu của sheet hóa đơn
em muốn làm nút GHI khi chon sẽ lưu dữ liệu sang sheet 2 và xóa các dữ liệu trên sheet 1 và số chứng từ sẽ tự tăng lên 1
Nhờ các anh chị giúp đỡ em code cho nút ghi

 

[nguyenthuy13388]

Em có file excel
sheet 1 là ct dùng nhập dữ liệu
sheet 2 là CT sẽ lưu các dữ liệu của sheet hóa đơn
em muốn làm nút GHI khi chon sẽ lưu dữ liệu sang sheet 2 và xóa các dữ liệu trên sheet 1 và số chứng từ sẽ tự tăng lên 1
Nhờ các anh chị giúp đỡ em code cho nút ghi

thử xem ổn không bạn

Sub Nu´t1_Click()

LR1 = Sheet1.Cells(Rows.Count, "b").End(xlUp).Row
LR2 = Sheet2.Cells(Rows.Count, "C").End(xlUp).Row
x = LR1 - 8
Sheet1.Range("B9:F" & LR1).Copy
a = Sheet1.Cells(4, 3).Value
b = Sheet1.Cells(4, 6).Value
Sheet2.Activate
Range("C" & LR2 + 1).PasteSpecial xlPasteValues
Range("A5:A" & LR2 + x).Value = a
Range("b5:b" & LR2 + x).Value = b
Sheet1.Select
Cells(4, 3).Value = ""
Cells(4, 6).Value = b + 1
Range("B9:F" & LR1).Value = ""
Application.CutCopyMode = False
End Sub

 

[phulien1902]

Em có file excel
sheet 1 là ct dùng nhập dữ liệu
sheet 2 là CT sẽ lưu các dữ liệu của sheet hóa đơn
em muốn làm nút GHI khi chon sẽ lưu dữ liệu sang sheet 2 và xóa các dữ liệu trên sheet 1 và số chứng từ sẽ tự tăng lên 1
Nhờ các anh chị giúp đỡ em code cho nút ghi

Thử:

Sub CapnhatDL()
    Dim a, b
    Dim i&, j&, k&, LR&, LR1&
    With Sheets("BH")
        a = .Range("B9", .Range("B65000").End(xlUp)).Resize(, 5).Value
    End With
    ReDim b(1 To UBound(a, 1), 1 To 5)
    For i = 1 To UBound(a, 1)
        k = k + 1
        For j = 1 To 5
            b(k, j) = a(i, j)
        Next
    Next
    With Sheets("CT")
         LR = .Range("C" & Rows.Count).End(xlUp).Row + 1
         .Range("C" & LR).Resize(k, 5) = b
         .Range("A" & LR) = Sheets("BH").Range("C4")
         .Range("B" & LR) = Sheets("BH").Range("F4")
    End With
   With Sheets("BH")
         LR1 = .Range("C" & Rows.Count).End(xlUp).Row + 1
         .Range("B9:E" & LR1).ClearContents
        .Range("C4") = Empty: .Range("F4") = Empty
  End With
End Sub