Code tạo file excell mới. (1 người xem)

[matran25251325]

Giúp em viết code khi nhấp vào form "Tao du toan moi" sẽ hiện bảng thông báo " kích Yes để tạo dự toán mới, kích No để hủy".Nhâps No thì trở về sheet Trang chủ, nhấp Yes thì sẽ hiện bảng save as để lưu và đặt tên file mới để tính toán; sau khi tạo file mới và lưu thì sẽ bắt đầu từ sheet Tluong DT.

 

[dhn46]

Giúp em viết code khi nhấp vào form "Tao du toan moi" sẽ hiện bảng thông báo " kích Yes để tạo dự toán mới, kích No để hủy".Nhâps No thì trở về sheet Trang chủ, nhấp Yes thì sẽ hiện bảng save as để lưu và đặt tên file mới để tính toán; sau khi tạo file mới và lưu thì sẽ bắt đầu từ sheet Tluong DT.

Bạn có 2 yêu cầu:
1 - Tạo 1 thông báo có chữ Yes, No để lựa chọn
2 - Yes: thì hiện bảng Save (lưu tự bạn làm), sau đó trở về sheet Tluong DT
- No: sheet Trang chủ => nhưng nút lệnh của bạn đang đặt tại sheet Trang chủ nên cái này có nghĩa là Bấm No sẽ không làm gì cả.
Vậy bạn thử đoạn Code này xem sao.

Sub Gpe()
    Dim Ask
    Ask = MsgBox("Click Yes de tao du toan moi" & ChrW(13) & "Click No de huy", vbYesNo)
    If Ask = vbYes Then
        Application.FileDialog(msoFileDialogSaveAs).Show
        Sheets("TLuong DT").Select
    End If
End Sub

Code đầu xuân hy vọng đúng yêu cầu

 

[matran25251325]

Đầu năm mới em chúc Bác luôn mạnh khỏe và thành công trong công việc, chúc gia đình GPE sẽ hoạt động dài lâu và có những cái mới để giúp mọi người cùng học hỏi.
Em cảm ơn bác dhn46 đã xem và giúp em, bác giúp thì giúp cho trót để lấy lọc đầu năm, Bước 1 và bước 2 em đều chưa biết làm, bác giúp em làm trên file Mẫu ở trên giùm nha. Em cảm ơn nhiều.

 

[dhn46]

File của bạn đây. Chúc bạn thành công!

 

[matran25251325]

Dạ chưa đúng lắm anh. Vì khi em đổi tên và lưu file vào ổ đĩa nào đó, và làm việc trên file vừa đổi tên; sau khi tính toán xong em lưu lại lần nữa thì công việc vừa làm nó lưu vào file Mẫu, còn file vừa đổi tên thì không thấy ở trong ổ đĩa lưu.

 

[dhn46]

Dạ chưa đúng lắm anh. Vì khi em đổi tên và lưu file vào ổ đĩa nào đó, và làm việc trên file vừa đổi tên; sau khi tính toán xong em lưu lại lần nữa thì công việc vừa làm nó lưu vào file Mẫu, còn file vừa đổi tên thì không thấy ở trong ổ đĩa lưu.

Như thế này có đúng không bạn?

 

[matran25251325]

Dạ đúng rồi anh, nhưng còn 1 lỗi nhỏ này anh khắc phục giùm em với. Lúc em ẩn sheet TLuong DT thì khi tạo và lưu file mới code bị báo lỗi " Run-time erro 1004: select method of worksheet class failed. Có cách nào ẩn sheet mà tạo file code ko báo lỗi đó ko. code báo lỗi khúc này: Sheets("TLuong DT").Select

 

[dhn46]

Dạ đúng rồi anh, nhưng còn 1 lỗi nhỏ này anh khắc phục giùm em với. Lúc em ẩn sheet TLuong DT thì khi tạo và lưu file mới code bị báo lỗi " Run-time erro 1004: select method of worksheet class failed. Có cách nào ẩn sheet mà tạo file code ko báo lỗi đó ko. code báo lỗi khúc này: Sheets("TLuong DT").Select

Mình thấy File của bạn có rất nhiều Code => nghĩ là bạn biết nên gợi ý cách làm ngay từ bài #2, nhưng hình như bạn cần "luyện công VBA".
Bạn xem File này xem như thế nào nhé.

 

[matran25251325]

Dạ em chỉ mới bập bẹ thôi, code thì đa số đi nhặt lung tung và cũng có làm 1 tí, vì tính chất công việc nên em đành vừa tìm hiểu và vừa hoàn thiện công việc. Code có vẻ ổn rồi anh. Có lỗi gì thì em ola sau. TK anh nhiều.