Giúp đỡ: Lỗi về code Copy dữ liệu trong Excel (1 người xem)

[KVP]

Sub nhapphieu()
Dim dlieu As Range, s_dv As Range
On Error Resume Next
Set dlieu = Sheets("P_inthe").Range("b11:c19")
dlieu.Select
Selection.Copy
Set s_dv = Sheets("slct").Range("B" & [b65000].End(xlUp).Row + 1)
s_dv.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
End Sub

 

[MaiTTThao]

Sub nhapphieu()
Dim dlieu As Range, s_dv As Range
On Error Resume Next
Set dlieu = Sheets("P_inthe").Range("b11:c19")
dlieu.Select
Selection.Copy
Set s_dv = Sheets("slct").Range("B" & [b65000].End(xlUp).Row + 1)
s_dv.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End Sub

Bạn viết như vậy thử xem có được không!

Sub nhapphieu()
Sheets("slct").Range("B" & Sheets("slct").[B65000].End(xlUp).Row + 1 & ":C" & Sheets("slct").[B65000].End(xlUp).Row + 1).Value = Sheets("P_inthe").Range("b11:c19").Value
End Sub

THAO.

 

[ChanhTQ@]

Mình thử thu dùm bạn cái này & chạy tốt đây

Option Explicit
Sub NhapPhieu()
 Dim Rng As Range
 Sheets("P_InThe").Select
 Set Rng = Range("B11:C19")
 Rng.Copy
    Sheets("SlCt").Select
    Range("B65500").End(xlUp).Offset(1).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub

(Tất nhiên có chỉnh lý!)

 

[nvson]

Bạn thay 2 dòng lệnh

dlieu.Select
Selection.Copy

bằng 1 dòng lệnh

dlieu.Copy

là được thôi.

 

[KVP]

Cho mình hỏi tại sao thủ tục trên chạy lần thứ 2 thì không đúng y mình nữa. đặt chuột đâu là nó copy vào đó liền. Mình cố gắng upload File lên nhưng không được

 

[nvson]

Mình thấy thủ tục chạy được đấy chứ.

Sub nhapphieu()
Dim dlieu As Range, s_dv As Range
On Error Resume Next
Set dlieu = Sheets("P_inthe").Range("b11:c19")
dlieu.Copy
Set s_dv = Sheets("slct").Range("B" & [b65000].End(xlUp).Row + 1)
s_dv.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Application.CutCopyMode = False
End Sub

 

[KVP]

Nvson xem giúp mình file dính kèm xem sao. Mình thử lại vẫn thấy vậy. Chạy lần thứ 2 là không đúng nữa

 

[ptm0412]

Up file dùm bạn kieuvietphuong

Đáng lẽ chỉ up dùm file, nhưng ngứa tay lại sửa luôn rồi.
Lỗi do Selection.Paste mà trước đó chưa select sheet "SLCT"
Thêm câu lệnh select vào là OK

 

[KVP]

CHo mình hỏi. File upload của mình (worksheets("inthe")) có công thức, hoặc không đủ dữ liệu cho vùng chọn thì thủ tục không chạy theo ý mình. Nó bỏ dòng trống theo vùng chọn. Có cách nào giải quyết vấn đề này không hay phải chọn vùng hợp lý.

 

[ptm0412]

Em hỏi thế thì không trả lời được:
- không đủ dữ liệu cho vùng chọn: vùng chọn nào? vùng copy hay vùng paste? thiếu dữ liệu ở trên, hay ở dưới, hay ở giữa?
- thủ tục không theo ý mình: là nó bị như thế nào? copy hết vùng, paste không hết? hay sao?
- Nó bỏ trống theo vùng chọn: lại vùng chọn! vùng nào? vùng copy hay vùng paste?

Hay em nêu lên như thế này:
1. dữ liệu sheet inthe chỉ có từ dòng số ... đến dòng số... và có hoặc không có cách quãng, có cách quãng dòng số ...
2. khi nhấn nút nó paste qua sheet SLCT vào dòng số..., lẽ ra nó phải là dòng số ... hoặc lẽ ra nó phải vào dòng cuối mà lại cách quãng ra bằng này dòng ....
....
Có vậy mới giải quyết được. Thực tế anh thử nhiều cách khác nhau nhưng vẫn thấy đúng. Nếu cách quãng là do em nhập liệu sheet inthe cách quãng.

 

[KVP]

Anh nói chẳnge sai chỗ nào. Các anh hiểu rât rõ những người mới học VBA. Em sẽ rút kinh nghiệm. Anh ạ, vùng dữ liệu copy (Sheet inthe) của em khi dữ liệu không đủ ở các dòng thì paste sang sheet SLCT lần thư 2 trở đi thì có dòng trống ở giữa. Như vậy, thì vùng dữ liệu chọn phải là vùng động hay là có cách copy nào bỏ dòng trống không anh

 

[ptm0412]

Em sửa code như sau:

Sub nhapphieu()
Dim dlieu As Range, s_dv As Range
On Error Resume Next
Set dlieu = Sheets("P_inthe").Range("a11:b19")
 1   Range("A11:H19").Select
 2   Selection.AutoFilter Field:=1, Criteria1:="<>"
    dlieu.Copy
    Sheets("slct").Select
Set s_dv = Sheets("slct").Range("B" & [b65000].End(xlUp).Row + 1)
    s_dv.Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
Application.CutCopyMode = False
Sheets("P_inthe").Select
  3  Selection.AutoFilter
End Sub

Thêm 3 dòng có đánh số.

 

[loser1991]

xin code copy

Bạn viết như vậy thử xem có được không!

Sub nhapphieu()
Sheets("slct").Range("B" & Sheets("slct").[B65000].End(xlUp).Row + 1 & ":C" & Sheets("slct").[B65000].End(xlUp).Row + 1).Value = Sheets("P_inthe").Range("b11:c19").Value
End Sub

THAO.

Em copy code như vậy mà làm không được, anh/ chị có đoạn code nào mới không cho em xin với ạ?