Dùng Macro sửa bảng chấm công của tháng

[binhkrb]

xin chỉ cách cho Macro hoạt động 1 hoặc 2 lần sau đó thì ngưng, khi Move or copy... qua sheet mới thì lặp lại như ban đầu
xin cảm ơn

 

[ForestC]

Vua Hùng mà bó ... hihi tuy nhiên các cao thủ EFC ko bó tay tẹo nào, nhưng mà khó ở cái đoạn "khi Move or copy... qua sheet mới thì lặp lại như ban đầu".

 

[Bình_OverAC]

Yêu cầu của bác binhkrb không rỏ lắm. Bác có thể nói rõ hơn không ạh!

 

[levanduyet]

Xin nói rõ hơn

xin chỉ cách cho Macro hoạt động 1 hoặc 2 lần sau đó thì ngưng, khi Move or copy... qua sheet mới thì lặp lại như ban đầu
xin cảm ơn

Chào bạn,
Bạn nên giải thích rõ hơn và gởi file cần cho các mod.
Thân,
Lê Văn Duyệt

 

[binhkrb]

Tôi có bảng chấm công VD tháng 1/2006
sang tháng 2 thay vì tạo bảng mới thí tôi dùng Move or copy Sheet 1-2006 và sửa thành 2-2006 rồi dùng macro sửa ngày và tùy ý .
Tôi muốn macro này chỉ hoạt động 1 hoặc 2 lần khi kích hoạt rồi ngưng luôn,
qua tháng 3 tôi cũng làm tương tự và ý muốn cũng tương tự.
Vì là thành viên mới nên không biết làm sao mà gởi File
Mong quí anh chị chỉ giúp tôi thành thật cảm ơn !

 

[HongViet]

Tôi có bảng chấm công VD tháng 1/2006
ỉ giúp tôi thành thật cảm ơn !

Bạn phải có sẵn 13 bảng với loạt tên như sau:Th0, Th1, Th2 . . . .,Th12
ở đây Th0 làm mẫu để chép đến các tháng # = đoạn mã như sau:

Sub ChepThang()
Dim Chu As String, Chu0 As String

1 Chu0 = "Th0"
2 Chu = "Th" & CStr(Month(Date))
3 Sheets(Chu0).Select: Cells.Select
4 Selection.Copy

5 Sheets(Chu).Select: Range("A1").Select
6 ActiveSheet.Paste : Application.CutCopyMode = False
7 Chu0 = "BẢNG CHẤM CÔNG THÁNG " & Right("0" & CStr(Month(Date)), 2)
71 CHU0 = CHU0 & "/" & CSTR(YEAR(DATE())) & "."
8 Range("B2").Select
9 ActiveCell.Value = Chu0

End Sub

Bạn làm 1 nút lệnh tại Th0 này để mỗi đầu tháng nhấn vô nó sẽ tự động chép từ Sheet mẫu đến tháng hiện hành;

 

[mysterious_girl]

Sau đây là file của bạn binhkrb: