Giúp code lấy nội dung dòng hiện hành

[iloveit]

Mình muốn giúp viết code khi con trỏ đặt ở dòng nào ta click vào nút IN PHIẾU thì nó sẽ lấy dữ liệu dòng đó qua bên sheet BIENNHAN
Mình có gửi file và nêu chi tiết trong file mong mọi người giúp đỡ.

Chân thành cảm ơn!

 

[leonguyenz]

Mình muốn giúp viết code khi con trỏ đặt ở dòng nào ta click vào nút IN PHIẾU thì nó sẽ lấy dữ liệu dòng đó qua bên sheet BIENNHAN
Mình có gửi file và nêu chi tiết trong file mong mọi người giúp đỡ.

Chân thành cảm ơn!

Tham khảo code sau:

Sub InPhieu()
Dim dG As Long, tS As Worksheet
With ThisWorkbook
    Set tS = Sheets("SUA"): dG = Selection.Row
    With Sheets("BIENNHAN")
        .Range("C12") = tS.Cells(dG, 3)
        .Range("C13") = tS.Cells(dG, 2)
        .Range("C14") = tS.Cells(dG, 4)
        .Range("C15") = tS.Cells(dG, 7)
        .Range("B24") = tS.Cells(dG, 6)
        .Activate
    End With
End With
End Sub

 

[iloveit]

Tham khảo code sau:

Sub InPhieu()
Dim dG As Long, tS As Worksheet
With ThisWorkbook
    Set tS = Sheets("SUA"): dG = Selection.Row
    With Sheets("BIENNHAN")
        .Range("C12") = tS.Cells(dG, 3)
        .Range("C13") = tS.Cells(dG, 2)
        .Range("C14") = tS.Cells(dG, 4)
        .Range("C15") = tS.Cells(dG, 7)
        .Range("B24") = tS.Cells(dG, 6)
        .Activate
    End With
End With
End Sub

code chạy chuẩn quá anh. Cám ơn anh nhiều

 

[be_09]

Mình muốn giúp viết code khi con trỏ đặt ở dòng nào ta click vào nút IN PHIẾU thì nó sẽ lấy dữ liệu dòng đó qua bên sheet BIENNHAN
Mình có gửi file và nêu chi tiết trong file mong mọi người giúp đỡ.

Chân thành cảm ơn!

Có ý tưởng nhưng cách làm của bạn là làm ngược:
1/ Người ta dùng sheet BIENNHAN để làm phiếu, in xong thì lưu vào sheet theo dõi khi cần in lại thì gọi dữ liệu từ sheet theo dõi vào phiếu để in.
2/ Trong phiếu cần có số Biên nhận, Model máy......

 

[iloveit]

Có ý tưởng nhưng cách làm của bạn là làm ngược:
1/ Người ta dùng sheet BIENNHAN để làm phiếu, in xong thì lưu vào sheet theo dõi khi cần in lại thì gọi dữ liệu từ sheet theo dõi vào phiếu để in.
2/ Trong phiếu cần có số Biên nhận, Model máy......

Dạ, con cũng muốn tìm hiểu xem code như thế nào. Vì thấy có người làm mà mò không ra.