lưu dữ liệu của một vài cột từ sheet này sang sheet khác theo mẫu (1 người xem)

[thang314]

tôi muốn lưu dữ liệu của một vài cột của sheet1 lưu sang sheet 2 làm thế nào? nhờ ACE giúp đỡ như file đính kèm. thanks

 

[vu_tuan_manh_linh]

Sao phải rắc rối nút lệnh làm gì thế bạn, tạo đường link bình thường, kéo cái roẹt là xong thôi.

 

[thang314]

cái chính là sheet1 lưu xong là lại xoá đi mới chết chứ...

 

[hado83]

Nếu sheet 1 xoa đi thì sau khi bạn đặt công thức như bạn Linh nói thì bạn làm thêm một thao tác là bôi đen toàn bộ bảng, sau đó copy, rồi bấm chuột phải vào paste special chon Values and number format để đóng băng công thức lại. thế là bạn có thể bỏ toàn bộ sheet 1 mà không ảnh hưởng gì tới sheet 2

 

[thang314]

nhưng khi có dữ liệu tiếp theo tại sheet1 thì sao.? ý mình muốn là sheet1 là form nhập liệu rồi lưu sang sheet2. tại mình diễn đạt ý tưởng hơi kém mong thông cảm.

 

[sealand]

Vậy thì dùng luôn cái mẫu của bạn
Bạn test thử xem

 

[thang314]

gửi sealand:
bạn chưa hiểu ý tôi rồi. bên sheet1 lưu sang sheet2 chứ không phải lấy dữ liệu sheet2 sang sheet1.

 

[Ba Tê]

gửi sealand:
bạn chưa hiểu ý tôi rồi. bên sheet1 lưu sang sheet2 chứ không phải lấy dữ liệu sheet2 sang sheet1.

Xem thử file này đi, Code "củ chuối"!

 

[thang314]

hỏi thêm chút nữa về việc nhập với số dòng nhiều hơn 1 thì sao???

 

[sealand]

Bạn lưu ý tên sheet của bạn ngược lại với Codename, nếu không bạn sửa code sau của bạn

Sub CopyToSheet1()
Dim iR As Integer
iR = ActiveCell.Row
Sheet1.[A2:I2].ClearContents
Sheet1.Cells(2, 2) = Sheet2.Cells(iR, 1)
Sheet1.Cells(2, 3) = Sheet2.Cells(iR, 3)
Sheet1.Cells(2, 4) = Sheet2.Cells(iR, 4)
Sheet1.Cells(2, 5) = Sheet2.Cells(iR, 5)
Sheet1.Cells(2, 6) = Sheet2.Cells(iR, 6)
Sheet1.Cells(2, 7) = Sheet2.Cells(iR, 7)
Sheet1.Cells(2, 8) = Sheet2.Cells(iR, 8)
Sheet1.Cells(2, 9) = Sheet2.Cells(iR, 11)
End Sub

Rồi bạn gắn lệnh vào nút trên sheet

 

[thang314]

vẫn chỉ lưu được 1 dòng thôi bạn sealand à. có cách lưu nhiều hơn 1 dòng không. có thể lần 1 là 1 dòng, lần 2 10 dòng nhung lần 3 còn 5 dòng thôi chẳng hạn. .. lưu sang sheet 2 có dòng làn lượt nối tiếp nhau theo thứ tự.

 

[sealand]

Bạn cho ví dụ 100 dòng đi khi cần chép sang thì chọn như thế nào> Quét chọn các dònh liên tục hay đánh dấu "x" vào 1 ô nào đó. Hay là cứ có bao nhiêu dòng chuyển hết xong rồi xoá hết sheet2.
Việc đưa sang bao nhiêu là do mình chỉ cần có ký hiệu báo cho code biết là chuyển những dòng nào?

 

[thang314]

sheet đó giống như là một form nhập liệu tuy nhiên có thể nhập nhiều dòng một lúc vậy đó bạn.

 

[sealand]

Bạn xem có phải thế này không.

Sub Button_Click()
Dim cl As Range, cl1 As Range, i
Set cl = Sheet1.[a65536].End(3).Offset(1)
For Each cl1 In Sheet2.Range("A2", Sheet2.[a65536].End(3))
cl.Value = cl.Row - 1
For i = 1 To 8
cl.Offset(, i) = cl1.Offset(, IIf(i > 7, i + 2, IIf(i > 1, i, i - 1)))
Next
Set cl = cl.Offset(1)
Next
Huy
End Sub
'====================================================
Sub Huy()
If Sheet2.[a65536].End(3).Row > 1 Then
Sheet2.Range("A2", Sheet2.[a65536].End(3)).Resize(, 15).ClearContents
Sheet2.[A2].Select
End If
End Sub

 

[thang314]

chuẩn không phải chỉnh rồi bác à. thanks.

 

[thang314]

nhầm mất rồi. cột O copy sang cột I bác à.

 

[sealand]

Bạn chép thay dòng code sau vào nha:

cl.Offset(, i) = cl1.Offset(, IIf(i > 7, i + 6, IIf(i > 1, i, i - 1)))

 

[thang314]

bac dung la chuyen gia. thanks

 

[tlccuong]

Nhờ các anh chị giúp đỡ!
Em có 1 File gôm các sheet: "Xuat_KD", "Nhap_KD", "Nhap_KD 1", "Nop_phat" ..(hoặc nhiều hơn dùng để nhập dữ liệu), sheet "TONGHOP" dùng để lưu các dữ liệu nhập từ các sheet trên. Mỗi ngày em có khoảng 100 giao dịch các loại ở các sheet này. Em muốn mỗi khi có khách đến giao dịch thì số liệu tự động lưu sang sheet "TONGHOP" lần lượt và tự động tổng cộng số tiền ở cuối. Trên các sheet dùng để nhập dữ liệu có nút "Đồng ý" và "Xóa không lưu" giống như File MO THE của bác Sealand nhưng vì ở đây em còn phải in chứng từ nên em muốn sau khi ấn nút "Đồng ý" thì dữ liệu sẽ cập nhật sang sheet "TONGHOP" và không bị xóa các dữ liệu ở các File nhập dữ liệu (em xóa thủ công cũng được). Em không biết lập trình VBA nên mong được giúp đỡ. File đính kèm