macro không chạy

[nguyenh00hi]

Nhờ các bạn kiểm tra và xử lý giúp mình file excel sau với.
Lỗi macro không chạy
Mình cài MS2010

Mình có một file tính tiền nước, vẫn chạy bình thường
Nhưng riêng file tính tiền điện này thì không chạy.

Mong các bạn biết giúp dùm mình với.

Cảm ơn các bạn nhiều!

 

[nttcntn]

ý của bạn là nó phải chạy thế nào

 

[nttcntn]

[GPECODE=vb]Public Sub in_bg()
Dim tu, den As Integer
'Xac dinh so in
tu = Sheet1.Cells(2, 17)
den = Sheet1.Cells(3, 17)
'Xoa trang in
Sheet5.Range("A:AQ").Clear


Application.ScreenUpdating = False
'Tao trang in
k = 1
For i = tu To den
Sheet1.Cells(1, 19) = i
Sheet4.Rows("1:18").Copy
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteValues
Sheet5.Cells(k, 1).PasteSpecial Paste:=xlPasteFormats
k = k + 19
Next
Application.ScreenUpdating = True
Sheet5.Activate
Application.CutCopyMode = False
'Tuyf banj chon cachs xem
'Sheet5.PrintPreview
Sheet5.Range("I1").Select
End Sub
[/GPECODE]
Thử thay code này vào xem đúng ý không nhé

 

[nguyenh00hi]

Cảm ơn bạn rất nhiều!

Nó chạy rùi bạn ạ

Chúc bạn một ngày vui vẻ!