Xin được giúp paste dữ liệu, bỏ qua các dòng bị ẩn khi coppy và dữ liệu được paste tự đổng chuyển sang sheet mới (1 người xem)

[Bùi Thúy Thúy]

Nhờ giúp đỡ em đoạn code: với nội dung sau
Coppy dữ liệu trong bảng và paste giá trị của bảng cần copy
Giá trị paste được bỏ qua những dòng ẩn khi copy (chỉ paste những giá trị hiện trong bảng)Các giá trị sau khi được paste (thực hiện chạy code) được tự động chuyển sang một sheet mới

 

[phulien1902]

Nhờ giúp đỡ em đoạn code: với nội dung sau
Coppy dữ liệu trong bảng và paste giá trị của bảng cần copy
View attachment 202242Giá trị paste được bỏ qua những dòng ẩn khi copy (chỉ paste những giá trị hiện trong bảng)Các giá trị sau khi được paste (thực hiện chạy code) được tự động chuyển sang một sheet mới

Thử nhé:

ActiveSheet.Range("A2:E13").SpecialCells(xlCellTypeVisible).Copy Sheets("abc").Range("A1")

 

[dohuucam500]

Em cung xin gop 1 bai:

Sub thuxem()

    Dim rng As Range
    
    Set rng = Sheet2.Range("A2:E13")
    rng.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add
    Range("A2").Select
    ActiveSheet.Paste
      
    
End Sub

 

[♫ђöล♥ßล†♥†µ♫]

Em điểm danh tí

 Sub Copydulieu()
    Dim Ws As Worksheet, Rng As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Ws = Sheets("Trang_tính1")
With Ws
    Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Resize(, 5)
End With
With Sheets.Add(after:=Worksheets(Worksheets.Count))
    Rng.SpecialCells(12).Copy
    .Range("A1").PasteSpecial xlPasteColumnWidths
    .Range("A1").PasteSpecial xlPasteValues
    .Range("A1").PasteSpecial xlPasteFormats
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

 

[ndu96081631]

Người ta yêu cầu:

Giá trị được paste được bỏ qua những dòng ẩn khi copy (chỉ paste những giá trị hiện trong bảng)

Nên không có code nào trong topic này thỏa yêu cầu cả
Ít nhất phải có 1 vòng lập
-----------------
Mà thấy cũng lạ! Tôi nhìn file bài 1, không biết copy cái gì và paste vào đâu cả. Không lý nào copy "chính mình" rồi paste vào "chính mình"

 

[huuthang_bd]

Người ta yêu cầu:

Nên không có code nào trong topic này thỏa yêu cầu cả
Ít nhất phải có 1 vòng lập
-----------------
Mà thấy cũng lạ! Tôi nhìn file bài 1, không biết copy cái gì và paste vào đâu cả. Không lý nào copy "chính mình" rồi paste vào "chính mình"

Hình như .SpecialCells(12).Copy là đúng yêu cầu rồi mà anh.

Mấy cái này record maro là có ngay. Đây là code gốc từ record macro, không sửa gì cũng dùng được đúng yêu cầu.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Trang_tính1").Select
End Sub

 

[ndu96081631]

Hình như .SpecialCells(12).Copy là đúng yêu cầu rồi mà anh.

Mấy cái này record maro là có ngay. Đây là code gốc từ record macro, không sửa gì cũng dùng được đúng yêu cầu.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Trang_tính1").Select
End Sub

Tôi không nghĩ người ta muốn copy bỏ qua cells ẩn, bởi nó quá dễ, làm bằng tay còn được. Tôi cho rằng người ta muốn Paste bỏ qua dòng ẩn đấy

 

[Hau151978]

Người ta yêu cầu:

Nên không có code nào trong topic này thỏa yêu cầu cả
Ít nhất phải có 1 vòng lập
-----------------
Mà thấy cũng lạ! Tôi nhìn file bài 1, không biết copy cái gì và paste vào đâu cả. Không lý nào copy "chính mình" rồi paste vào "chính mình"

Em nghĩ các code trên đúng rồi. Tác giả ghi chỉ paste những giá trị hiện trong bảng vì nghĩ khi copy bằng tay thì phần ẩn cũng được copy nên tưởng là kết quả paste có cả dòng ẩn.

 

[ndu96081631]

Em nghĩ các code trên đúng rồi. Tác giả ghi chỉ paste những giá trị hiện trong bảng vì nghĩ khi copy bằng tay thì phần ẩn cũng được copy nên tưởng là kết quả paste có cả dòng ẩn.

Hổng tin...
Chờ tác xác nhận mới tin
Ẹc... Ẹc...

 

[Bùi Thúy Thúy]

Tôi không nghĩ người ta muốn copy bỏ qua cells ẩn, bởi nó quá dễ, làm bằng tay còn được. Tôi cho rằng người ta muốn Paste bỏ qua dòng ẩn đấy

Vâng đúng Thầy ạ! em muốn khi paste bỏ qua những dòng bị ẩn, chỉ lấy giá trị của những dòng không bị ẩn, và những giá trị đó (khi chạy code được viết) được paste sang 1 sheet mới, Em mong Thầy và các anh, chị giúp em ạ!

Bài đã được tự động gộp: 22/8/18

Hình như .SpecialCells(12).Copy là đúng yêu cầu rồi mà anh.

Mấy cái này record maro là có ngay. Đây là code gốc từ record macro, không sửa gì cũng dùng được đúng yêu cầu.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Trang_tính1").Select
End Sub

Ý em là muốn khi coppy chỉ cop

Em điểm danh tí

 Sub Copydulieu()
    Dim Ws As Worksheet, Rng As Range
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set Ws = Sheets("Trang_tính1")
With Ws
    Set Rng = .Range("A1", .Range("A" & Rows.Count).End(xlUp)).Resize(, 5)
End With
With Sheets.Add(after:=Worksheets(Worksheets.Count))
    Rng.SpecialCells(12).Copy
    .Range("A1").PasteSpecial xlPasteColumnWidths
    .Range("A1").PasteSpecial xlPasteValues
    .Range("A1").PasteSpecial xlPasteFormats
End With
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

Hi, em cám ơn ạ! đúng ý em hi

Bài đã được tự động gộp: 22/8/18

Hình như .SpecialCells(12).Copy là đúng yêu cầu rồi mà anh.

Mấy cái này record maro là có ngay. Đây là code gốc từ record macro, không sửa gì cũng dùng được đúng yêu cầu.

Sub Macro1()
'
' Macro1 Macro
'

'
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Trang_tính1").Select
End Sub

E cám ơn ạ! đúng ý em ạ!

 

[ndu96081631]

E cám ơn ạ! đúng ý em ạ!

Ngộ quá hen
Tưởng hỏi khó, ai dè... Ẹc... Ẹc...
Copy với paste bình thường, làm bằng tay còn được thì tại sao lại hỏi ta?

 

[huuthang_bd]

Ngộ quá hen
Tưởng hỏi khó, ai dè... Ẹc... Ẹc...
Copy với paste bình thường, làm bằng tay còn được thì tại sao lại hỏi ta?

Nhiều bạn có những việc chỉ thao tác 30s là xong nhưng vẫn muốn dùng VBA cho nó "chuyên nghiệp"