Giúp tạo nút lệnh có thể trích xuất dữ liệu từ dãy dữ liệu có sắn (1 người xem)

[chanmenhanmay]

các bạn có thể giúp mình tạo một nút lệnh để trích xuất dl từ một sheet (5000 dl) có sẵn sang một sheet khác để tiện cho việc coppy dữ liệu . Việc trích xuất dl theo thứ tự từ trên xuống khi gặp dl cuối cùng thì chuyển lại lên dl đầu tiên và hiện thông báo . có thêm nút lệnh quay về dl đầu tiên

thanks (các bạn thông cảm mình rất gà vba nên các bạn giúp dùm)

 

[dhn46]

Tôi làm như thế này có được không? (VBA rất coi trọng việc chính xác về dữ liệu cũng như chính xác về vị trí dữ liệu bạn nên đưa dữ liệu thật sẽ có kết quả tốt hơn, nếu bạn đã dùng đến VBA thì cần các thao tác Copy thủ công làm gì?

 

[chanmenhanmay]

Tôi làm như thế này có được không? (VBA rất coi trọng việc chính xác về dữ liệu cũng như chính xác về vị trí dữ liệu bạn nên đưa dữ liệu thật sẽ có kết quả tốt hơn, nếu bạn đã dùng đến VBA thì cần các thao tác Copy thủ công làm gì?

Đây là dl thật đó anh, do dl nhiều nên em cần trích xuất ra 1 phần rồi coppy vào một phần mềm để tiện cho công việc thôi
A cho e hỏi em đã thử tạo nút lệnh chạy macro trên nhưng báo lỗi , anh có thể xem giúp lại em không
thanks anh

 

[dhn46]

Bạn xem File nhé....

 

[chanmenhanmay]

Bạn xem File nhé....

dữ liệu chạy vẫn báo lỗi anh ah, anh xem lại giúp em . lần này báo lỗi ở chữ k trong k = k + 1

thanks

 

[dhn46]

Bạn có thể up lại File bạn vừa tải về tôi xem được không?

 

[Quang_Hải]

Bạn có thể up lại File bạn vừa tải về tôi xem được không?

Code có lỗi thật. Thiếu khai báo biến k, và mảng Sarr khai báo thiếu chiều ngang
Lẽ ra thế này mới đủ, thiếu phần màu đỏ

ReDim sArr(1 To UBound(Arr, 1), 1 To 2)

 

[Ba Tê]

Code có lỗi thật. Thiếu khai báo biến k, và mảng Sarr khai báo thiếu chiều ngang
Lẽ ra thế này mới đủ, thiếu phần màu đỏ

ReDim sArr(1 To UBound(Arr, 1), 1 To 2)

Hình như tôi đã đọc một bài như vầy mà concogia đã làm rồi. Chẳng hiểu sao tác giả lại không tiếp tục ở topic đó mà lại mở thêm topic này.
http://www.giaiphapexcel.com/forum/...iệu-từ-dãy-dữ-liệu-có-sắn&p=450581#post450581