Mong các huynh đệ ra tay tương trợ em fix lỗi file này ( vê chia nhỏ file ạ ) (1 người xem)

[onlyunme]

Thứ nhất em xin gửi lời chào mọi người ạ.

Vì công việc em phải chia nhở file và gửi mail (qua outlook) rất nhiều.
em cũng tìm kiếm trên diễn đàn thôi thấy có file này khá sát với nhu cầu nhưng khi dùng lại bị lỗi.
Các file bị cắt ra lại không hiện gì.

Kính mong các huynh giúp đỡ em vụ này với ạ

(nếu có thể thì cho em thành 2 nút: chia file và gửi luôn. chỉ chia file chứ không gửi ạ.

 

[onlyunme]

em thấy hình như file này nó khong phải là cắt data và chia thành các file.
mà chỉ đơn thuần là filter cho dễ nhìn thì phải.
các huynh cho nó thành cắt file luôn được không ạ

 

[dovanhoc84]

em thấy hình như file này nó khong phải là cắt data và chia thành các file.
mà chỉ đơn thuần là filter cho dễ nhìn thì phải.
các huynh cho nó thành cắt file luôn được không ạ

Nói thực là bạn cũng được voi đòi 2 bà Trưng đấy.
họ làm cho đến tận đây rồi mà k tự cố lấy dc đoạn cuối.
Chuyện muốn nó k còn là filter nữa thì chỉ thêm vào sub Run nội dung thế này: 1.thêm 1 sheet mới vào file mới copy ra, copy toàn bộ sheet raw rồi paste dạng value sang sheet mới. xóa sheet cũ đi. vậy là file chỉ còn lại đúng nội dung chứ k phải là fileter nữa.

Sheets("Raw").Copy
' Them tu day
Sheets.Add.Name = "Raw1"
Sheets("raw").Cells.Copy
Sheets("Raw1").Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues
Columns.AutoFit
Sheets("raw").Delete
Application.CutCopyMode = False
' den day laf xong
ActiveWorkbook.SaveAs Filename:=fFile, FileFormat:= _
xlOpenXMLWorkbook, CreateBackup:=False

Windows(fName).Close

Windows("Auto_Filter_Send_Email.xlsm").Activate
Rows(row & ":" & row).Select
ActiveSheet.ShowAllData

Call Send_Mail

Next i
MsgBox ("Send mail completed!")

End Sub

 

[nhgiang1625]

Có anh chị nào chỉnh sửa công cụ này thành công được chưa ạ, Cho e xin với.
E k biết nhưng phải dùng nhiều việc liên quan đến.
Cũng mày mò nhưng thấy báo lỗi suốt "Runtime error 1004" "Method 'saveas' of object '_Workbook' failed.

Trường hợp file cần tách và gửi đi có nhiều sheet thì xử lý như nào ạ.
Mong được học hỏi từ các anh/chị.
Cám ơn anh chị!