xin giúp đỡ về VBA tự động nhập dữ liệu (2 người xem)

[truongtn1987]

Xin chào mọi người trong giaiphapexcel mình đang muốn làm 1 hóa đơn để bán hàng mà mỗi lần in hóa đơn thì dữ liệu tự động nhập xuống dòng từ strees 1 sang bảng data, khi bấm nút In . Xin cám ơn mọi người

 

[phulien1902]

Xin chào mọi người trong giaiphapexcel mình đang muốn làm 1 hóa đơn để bán hàng mà mỗi lần in hóa đơn thì dữ liệu tự động nhập xuống dòng từ strees 1 sang bảng data, khi bấm nút In . Xin cám ơn mọi người

Code cho bạn đây:

Sub truongtn1987()
    Application.ScreenUpdating = 0
    Dim rNextCl As Range
    Dim NextRw As Long
    If MsgBox("Ban muon cap nhat du lieu bay gio khong?", vbYesNo + vbQuestion) = vbYes Then

        With Sheet2
            NextRw = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
            .Cells(NextRw, 1).Value = Sheets("Sheet1").Range("A5")
            .Cells(NextRw, 1).NumberFormat = "dd/mm/yyyy"
            .Cells(NextRw, 2).Value = Sheets("Sheet1").Range("B5")
            .Cells(NextRw, 3).Value = Sheets("Sheet1").Range("C5")
            .Cells(NextRw, 4).Value = Sheets("Sheet1").Range("D5")
            .Cells(NextRw, 5).Value = Sheets("Sheet1").Range("E5")
        End With
        Application.ScreenUpdating = 1
        MsgBox "Du lieu se duoc cap nhat ngay." & vbLf & "Cam on!", vbInformation, "CAP NHAT"
    End If
    With Sheets("Sheet1")
        Range("a5:d5").ClearContents
    End With
End Sub

 

[leonguyenz]

Dùng Copy cũng được:

Sub Rec()
Dim Rng As Range
With Sheet1
    If .[A5] > "" Then
        Set Rng = .Range("A5", .[A65535].End(3)).Resize(, 5)
        Rng.Copy Sheet2.[A65535].End(3).Offset(1)
        Rng.Resize(, 4).ClearContents
    End If
End With
End Sub