qua sheet2 gõ vào A1=1Gửi bởi vitl0veme0
đổi lại đường dẫn cho phù hợpMã:Sub Macro1() Application.ScreenUpdating = False Sheets("Sheet1").Copy ActiveWorkbook.SaveAs Filename:="E:\New folder han" & Sheet2.[a600000].End(3) & ".xlsx" ActiveWindow.Close Sheet2.[a60000].End(3).Offset(1) = Sheet2.[a60000].End(3) + 1 Application.ScreenUpdating = True End SubView more random threads:
- các cô chú anh chị giúp em với!
- Job Description - Bảng miêu tả công việc
- Lọc nghỉ nữa ngày hoặc 1 ngày vào 1 cột. Nghỉ dưới 4h vào 1 cột
- Tính tổng mã hàng trùng nhau,khác đơn giá
- Hỏi về cách in liên tục
- Chèn Ảnh tự động vào file excel
- cách dùng hàm vlookup có nhiều điểu kiện
- nhờ cả nhà giúp đỡ nhé....
- Hỏi về giúp tự động chạy code và lỗi vòng lặp.
- nhờ anh chị giúp em với: Ví dụ:em có ô A1 có chữ A, khi em nhấn vào thì chữ A đổi màu
Trả lời kèm Trích dẫn