Nhờ viếtmarco Copy dữ liệu. (1 người xem)

[minhquand]

Nhờ các bác viết giùm mình marco Copy dữ liệu như file đính kèm.Chân thành cảm ơn.

 

[Ba Tê]

Nhờ các bác viết giùm mình marco Copy dữ liệu như file đính kèm.Chân thành cảm ơn.

KHI NHẤN COPY TẤT CẢ DỮ LIỆU TRONG A65536:S65536 SẼ ĐƯỢC COPY SANG SHEET2 VÀ TỰ ĐỘNG CHUỘT HiỂN THỊ BÊN SHEET2...

Với yêu cầu này thì chỉ Copy dòng 65536 thôi sao? Dòng này có miếng dữ liệu nào đâu?
Nếu copy hết vùng có dữ liệu sang sheet2 rồi xoá dữ liệu ở sheet1 thì thử Code này cho cái nút Copy.

Private Sub CommandButton1_Click()
Dim Rng As Range
    If Sheet2.[A65000].End(xlUp).Row < 16 Then
        Set Rng = Sheet2.[A16]
    Else
        Set Rng = Sheet2.[A65000].End(xlUp).Offset(1)
    End If
Sheet1.[A65000].End(xlUp).CurrentRegion.Copy Rng
    Sheet1.[A65000].End(xlUp).CurrentRegion.ClearContents
        Sheet2.Activate
            Sheet2.[A65000].End(xlUp).Offset(1).Select
Set Rng = Nothing
End Sub

 

[minhquand]

Nếu copy hết vùng có dữ liệu sang sheet2 rồi xoá dữ liệu ở sheet1 thì thử Code này cho cái nút Copy.

Code này copy tất cả dữ liệu,yêu cầu cháu ghi sai,cái cháu cần copy dữ liệu trong vùng A16:S65536 Bác ạ và Sao cháu copy code của Bác vào sheet1(VBAProject) rồi save lại,tắt đi mở lại không thấy code đâu cả.Bác sửa lại giùm cháu với.Cảm ơn Bác nhiều.

 

[Ba Tê]

Code này copy tất cả dữ liệu,yêu cầu cháu ghi sai,cái cháu cần copy dữ liệu trong vùng A16:S65536 Bác ạ và Sao cháu copy code của Bác vào sheet1(VBAProject) rồi save lại,tắt đi mở lại không thấy code đâu cả.Bác sửa lại giùm cháu với.Cảm ơn Bác nhiều.

Gởi luôn file cho chắc ăn, tôi xài Excel 2003, bạn lưu lại theo phiên bản của mình.

 

[minhquand]

Gởi luôn file cho chắc ăn, tôi xài Excel 2003, bạn lưu lại theo phiên bản của mình.

Bác sửa lại giùm cháu tí nha.Copy qua nhưng không xoá cái cũ vì trong các ô đó có công thức và copy qua sheet2 là giá trị thôi Bác ạ.Cảm ơn Bác nhiều.

 

[tiendo1988]

Để không bị xóa dữ liệu ở Sheet1 bạn chỉ cần bỏ đoạn code:
"Sheet1.Range([A16], [A16].End(xlDown)).Resize(, 19).ClearContents"
trong VBA là xong.
Chúc vui!

 

[minhquand]

Để không bị xóa dữ liệu ở Sheet1 bạn chỉ cần bỏ đoạn code:
"Sheet1.Range([A16], [A16].End(xlDown)).Resize(, 19).ClearContents"
trong VBA là xong.
Chúc vui!

Vậy chỉ copy giá trị không copy công thức qua sheet2 thì sửa sao vậy bạn?

 

[Ba Tê]

Vậy chỉ copy giá trị không copy công thức qua sheet2 thì sửa sao vậy bạn?

Chép đè cái này lên cái cũ thử coi.

Private Sub CommandButton1_Click()
Dim Rng As Range
    If Sheet2.[A65000].End(xlUp).Row < 16 Then
        Set Rng = Sheet2.[A16]
    Else
        Set Rng = Sheet2.[A65000].End(xlUp).Offset(1)
    End If
Sheet1.Range([A16], [A16].End(xlDown)).Resize(, 19).Copy
    Sheet2.Activate
        Rng.PasteSpecial Paste:=xlPasteValues
            Rng.CurrentRegion.Borders.LineStyle = xlContinuous
                Sheet2.[A65000].End(xlUp).Offset(1).Select
Set Rng = Nothing
End Sub