Xin code để copy vùng bỏ đi dòng trống theo điều kiện của một cột (2 người xem)

[Tran Mui]

Xin GPE code để làm sao nhấn nút copy sẽ được kết quả trong sheet2 như file đính kèm
xin cám ơn

 

[ndu96081631]

Xin GPE code để làm sao nhấn nút copy sẽ được kết quả trong sheet2 như file đính kèm
xin cám ơn

Dùng Advanced Filter là được mà!
Record macro ta được code. Xong, chỉnh lại chút rồi gán vào CommandButton1

Private Sub CommandButton1_Click()
  Sheet2.Range("A5:C10000").Clear
  With Me.Range("A4:C10000")
    .Parent.Range("IV1").Value = "KQ"
    .Parent.Range("IV2").Value = "<>"
    .AdvancedFilter 2, .Parent.Range("IV1:IV2"), Sheet2.Range("A5")
    .Parent.Range("IV1:IV2").ClearContents
  End With
End Sub

 

[Quang_Hải]

Xin GPE code để làm sao nhấn nút copy sẽ được kết quả trong sheet2 như file đính kèm
xin cám ơn

Rảnh quá nên thêm 1 code cho bạn chọn lựa

Private Sub CommandButton1_Click()
Set dulieu = Range([a4], [a65536].End(3)).Resize(, 3)
  With dulieu
    .AutoFilter 3, "<>"
    .SpecialCells(12).Copy Sheet2.[a5]
    .AutoFilter
  End With
End Sub

 

[Quang_Hải]

Dùng Advanced Filter là được mà!
Record macro ta được code. Xong, chỉnh lại chút rồi gán vào CommandButton1

Private Sub CommandButton1_Click()
  Sheet2.Range("A5:C10000").Clear
  With Me.Range("A4:C10000")
    .Parent.Range("IV1").Value = "KQ"
    .Parent.Range("IV2").Value = "<>"
    .AdvancedFilter 2, .Parent.Range("IV1:IV2"), Sheet2.Range("A5")
    .Parent.Range("IV1:IV2").ClearContents
  End With
End Sub

Cách sử dụng Parent và Me coi như em mù tịt, không biết là phải nghiên cứu ở đâu để hiểu cái này hả anh NDU?

 

[ndu96081631]

Cách sử dụng Parent và Me coi như em mù tịt, không biết là phải nghiên cứu ở đâu để hiểu cái này hả anh NDU?

Me là tui ---> Đang ở sheet1 thì tui là sheet1 (cũng giống như đang ở UserForm1 thì Me là UserForm1 đấy thôi)
Parent là tía ---> Ở trên là With Me.Range(....) ---> Vậy tía của thằng Range này chính là Me, tức cũng là.. Sheet1 thôi
Ẹc... Ẹc...
Tại sao phải viết vậy mà không viết rõ ra luôn? Vì mai này nếu sửa code để đổi sang hoạt động ở sheet khác, tôi chỉ đổi có mỗi thằng Me là xong hết (ở dưới chúng nó tự "theo")