Xin giúp đỡ mình tạo một button để copy một phần dữ liệu từ sheetA sang sheetB

[tn001]

Xin giúp đỡ mình tạo một button để copy một phần dữ liệu từ sheetA sang sheetB


file minh họa mình đã gửi kèm theo bài viết. Xin chân thành cảm ơn!

 

[concogia]

Xin giúp đỡ mình tạo một button để copy một phần dữ liệu từ sheetA sang sheetB


file minh họa mình đã gửi kèm theo bài viết. Xin chân thành cảm ơn!

Nhờ người ta tạo nút mà chẳng chừa một tí tẹo bảng tính nào để tạo, híc
Nói vui thôi nhé, đừng giận
Hihi

 

[tn001]

Nhờ người ta tạo nút mà chẳng chừa một tí tẹo bảng tính nào để tạo, híc
Nói vui thôi nhé, đừng giận
Hihi

Rất cảm ơn bạn! Giúp mình thêm chút nữa nhé,ở file taonut.xls của bạn gửi cho mình ấy, mình đã sử dụng và hoàn thành được công việc của mình rồi. Tuy nhiên mình muốn nút button nó nằm ở sheet2 hoặc sheet khác trong cùng một file excel thì tiện cho mình hơn. Giúp mình thêm nhé, Xin cảm ơn!

 

[concogia]

Rất cảm ơn bạn! Giúp mình thêm chút nữa nhé,ở file taonut.xls của bạn gửi cho mình ấy, mình đã sử dụng và hoàn thành được công việc của mình rồi. Tuy nhiên mình muốn nút button nó nằm ở sheet2 hoặc sheet khác trong cùng một file excel thì tiện cho mình hơn. Giúp mình thêm nhé, Xin cảm ơn!

Tạo nút ở sheet2 và gán code này vào

Private Sub CommandButton1_Click()
 Dim Ws As Worksheet
 Set Ws = Sheets("sheet1")
   With Ws
    .Range("B:D,G:P,Q:AA,AC:AC,AE:AL").EntireColumn.Hidden = True
    .Range(Ws.[a2], Ws.[ad1000].End(xlUp)).SpecialCells(xlCellTypeVisible).Copy [a9]
   End With
End Sub

 

[tn001]

Thank bạn nhiều nhiều! Bạn có thể cho mình xin SĐT để mắc vấn đề gì thì mình nhờ bạn chỉ giáo được không?

 

[tn001]

Khi nào concogia đăng nhập và rảnh hoặc anh chị em nào biết thì giúp mình thêm vấn đề này nhé!

Vẫn là file taonut.xls nhưng giờ mình đổi tên worksheet và nút lệnh thì nằm ở sheet "chính" (Có thể file taonut.xls có nhiều worksheet chứ không chỉ là sheet1, sheet2, sheet3) và có thể thứ tự các cột không còn liên tục nữa a e ad f ab

Giúp mình nhé, thông cảm vì làm phiền bạn hơi nhiều nhưng mình gà về excel quá!

 

[concogia]

Khi nào concogia đăng nhập và rảnh hoặc anh chị em nào biết thì giúp mình thêm vấn đề này nhé!

Vẫn là file taonut.xls nhưng giờ mình đổi tên worksheet và nút lệnh thì nằm ở sheet "chính" (Có thể file taonut.xls có nhiều worksheet chứ không chỉ là sheet1, sheet2, sheet3) và có thể thứ tự các cột không còn liên tục nữa a e ad f ab

Giúp mình nhé, thông cảm vì làm phiền bạn hơi nhiều nhưng mình gà về excel quá!

Híc, đổi tên sheet trong worksheet thì đổi....trong code theo thôi mà
Có phải "bi" giờ bạn muốn tạo cái nút ở sheet "chinh" lấy dữ liệu ở sheet "tonghop" đem qua sheet "ketqua" phải "hông" ? Nếu đúng "zị" thì sửa lại tí:

Private Sub CommandButton1_Click()
 Dim Ws As Worksheet
  Set Ws = Sheets("tonghop")
   With Ws
    .Range("B:D,G:P,Q:AA,AC:AC,AE:AL").EntireColumn.Hidden = True
    .Range(Ws.[a2], Ws.[ad1000].End(xlUp)).SpecialCells(xlCellTypeVisible).Copy Sheets("ketqua").[a9]
   End With
End Sub

Các sheet có bi nhiêu cũng được, chẳng cần thứ tự gì cả, cái nút bạn muốn để ở sheet "quái" nào cũng được, bạn thử gán code rồi sửa theo ý bạn (nếu mới nghĩ ra được cái gì là lạ nữa) xem

 

[tn001]

cảm ơn nhiều, cảm ơn nhiều!