Muốn tạo một workbook mới

[cbtm]

Mình muốn tạo một workbook mới sau khi workbook chạy được 34 range thì tự động nó save lại. VÀ TỰ NÓ MỚI MỘT WORKBOOK MỚ

Thứ hai là mình ̣đả tạo password cho commanbutton như chưa hoàn chỉnh nhờ các bạn xem lai.

 

[XuanThanh]

Bạn đặt tên Workbook là USERFOMR thì khi mở Wb đã báo lổi ngay. Bạn đặt tên lại cho Wb nhé
P/S : Chưa xem các đoạn khác

 

[levanduyet]

To: cbtm,
Đọc code của bạn, cũng hết hơi luôn!
Bạn vui lòng diễn giải mục đích cụ thể của mình, để các thành viên khác có thể giúp bạn.
Ví dụ:
Tôi muốn quản lý số liệu thu/chi của SPA. Các công việc cụ thể như sau:

1. Nhập số liệu thu/chi hàng ngày.
2. Kiểm tra số liệu thu/chi đã nhập.
3. Lưu số liệu này vào workbook mới (hay worksheet trên cùng một workbook).
4. ...vv...

Đề nghị các bạn khác cũng chú ý khi gởi yêu cầu nhờ trợ giúp lên diễn đàn.

Lê Văn Duyệt

 

[cbtm]

ĐÚNG NHƯ ANH DUYỆT ĐẢ VIẾT 1,2,3

1. Lưu số liệu này vào workbook mới
2. Kiểm tra số liệu thu/chi đã nhập. VỚI PASSWORD

PHẦN ̣ĐẦU CỦA CODE LÀ

MÌNH BỎ CODE TRONG WORKBOOK. PHẦN ĐÓ MÌNH MUỐN WORKBOOK LÀM TỪ NGÀY ĐẦU CHO ĐẾN 31 NGÀY SAU THI WORKBOOK TỰ SAVE LẠI MỘT CHỔ MÌNH MUỐN, SAU ĐÓ TỰ ĐỘNG MỞ MỘT WORKBOOK MỚI.

PHẦN THỨ HAI CỦA CODE LÀ

MÌNH BỎ CODE TRONG FORM / USERFORM1
PHẦN NÀY KHI MÌNH CLICK VÀO ENTER TÌM GÍA TRI TỪ NGÀY NÀY ĐẾN NGÀY KIA THÌ PASSWORD SẺ HIỆN LÊN.

CODE ĐÓ LÀ

 Dim mypassword As String
tryagain:
    mypassword = InputBox("PLEASE ENTER PASSWORD", "YOUR PASSWORD")
    If mypassword = "maitram" Then ' your code here
    MsgBox ("Correct"), vbYes
    Else
     If MsgBox("PASSWORD INCORRECT, TRY AGAIN?", vbYesNo, Title:="WRONG PASSWORD") = vbYesNo Then GoTo tryagain
End If