Code chuyển dữ liệu từ sheet này sang sheet khác

[nguyenvietviet]

Các pác xem và sửa giúp em đoạn code này với. Thank
Sub NL()
Sheets("NCT").Select
Phieu = Range("h5").Value
dchi = Range("c9").Value
Khach = Range("d8").Value
Tu = Range("e6").Value
Lydo = Range("c10").Value
Sotien = Range("c12").Value
Ngay = Range("d3").Value
TK = Range("d5").Value
ct = Range("c15").Value
Sheets("SQ").Select
n = Range("i1").Value
Range("B1").Select
ActiveCell.Offset(n + 6, 0).Value = Ngay
ActiveCell.Offset(n + 6, 1).Value = Phieu
ActiveCell.Offset(n + 6, 7).Value = Lydo
ActiveCell.Offset(n + 6, 9).Value = Sotien
ActiveCell.Offset(n + 6, 8).Value = Khach - Lydo ----> lỗi> E muốn dữ liệu sắp xếp như này thì sửa code làm sao?
ActiveCell.Offset(n + 6, 10).Value = TK
ActiveCell.Offset(n + 6, 11).Value = Tu
ActiveCell.Offset(n + 6, 12).Value = dchi
ActiveCell.Offset(n + 6, 13).Value = Ngay
ActiveCell.Offset(n + 6, 14).Value = ct
Sheets("NCT").Select
Range("h5").Select
Range("c9").Clear
End Sub

 

[viehoai]

Các pác xem và sửa giúp em đoạn code này với. Thank
Sub NL()
Sheets("NCT").Select
Phieu = Range("h5").Value
dchi = Range("c9").Value
Khach = Range("d8").Value
Tu = Range("e6").Value
Lydo = Range("c10").Value
Sotien = Range("c12").Value
Ngay = Range("d3").Value
TK = Range("d5").Value
ct = Range("c15").Value
Sheets("SQ").Select
n = Range("i1").Value
Range("B1").Select
ActiveCell.Offset(n + 6, 0).Value = Ngay
ActiveCell.Offset(n + 6, 1).Value = Phieu
ActiveCell.Offset(n + 6, 7).Value = Lydo
ActiveCell.Offset(n + 6, 9).Value = Sotien
ActiveCell.Offset(n + 6, 8).Value = Khach - Lydo ----> lỗi> E muốn dữ liệu sắp xếp như này thì sửa code làm sao?
ActiveCell.Offset(n + 6, 10).Value = TK
ActiveCell.Offset(n + 6, 11).Value = Tu
ActiveCell.Offset(n + 6, 12).Value = dchi
ActiveCell.Offset(n + 6, 13).Value = Ngay
ActiveCell.Offset(n + 6, 14).Value = ct
Sheets("NCT").Select
Range("h5").Select
Range("c9").Clear
End Sub

Bạn đưa code như thế không có nội dung yêu cầu, laị không có file mình e Siêu VBA cũng không thể hiểu nỗi để giúp bạn

 

[nguyenvietviet]

Bạn đưa code như thế không có nội dung yêu cầu, laị không có file mình e Siêu VBA cũng không thể hiểu nỗi để giúp bạn

Chào pác Viethoai nhé.
Pác dạo này tình hình sức khỏe tốt chứ.

Cái ví dụ của e như thế này ( mà hình như lần trước pác cũng hướng đãn e rùi nhưng e wuen mất.hjx). Ví dụ ở sheet 1 e có dữ liệu A1 là "Giai pháp" ở A2 là "Excel". E muốn tạo 1 nút commandbutton ở sheet 1 khi ấn thì bên A1 của sheet 2 nó sẽ hiển thị " Giai phap - Excel".
Em cảm ơn các pác nhiều

 

[viehoai]

Chào pác Viethoai nhé.
Pác dạo này tình hình sức khỏe tốt chứ.

Cái ví dụ của e như thế này ( mà hình như lần trước pác cũng hướng đãn e rùi nhưng e wuen mất.hjx). Ví dụ ở sheet 1 e có dữ liệu A1 là "Giai pháp" ở A2 là "Excel". E muốn tạo 1 nút commandbutton ở sheet 1 khi ấn thì bên A1 của sheet 2 nó sẽ hiển thị " Giai phap - Excel".
Em cảm ơn các pác nhiều

Sao bạn không đưa file lên để đỡ mất thời gian nhỉ. Nếu như thế này cần gì code chứ
(Cảm ơn bạn đã hỏi thăm)

 

[nguyenvietviet]

OK. Em chỉ cần làm ví dụ để áp dụng thui mà.hj
Ak. Em muốn cứ mỗi lần ấn là thêm dữ liệu vào nhảy xuống dưới, dòng trên còn nguyên
Pác xem hộ em cái modue này
Cám ơn pác nhé