in chứng từ ghi sổ

[quochung2005]

có file lọc copy sang 1 sheet khác thành chứng từ ghi sổ, nhưng không biết copy sao cho nó sát với nhau mà in ra một trang A4 là một chứng từ ghi sổ mình có xem file chứng từ ghi sổ của ThuNghi gửi cho minh rất hay dùng macro
Sub Macro1()
Application.ScreenUpdating = False
For i = Cells(5000, 1).End(xlUp).Row To 3 Step -1
If Cells(i, 3) = "Coâng ty ABC" Then
Cells(i, 1).Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Selection
End If
Next
Application.ScreenUpdating = True
End Sub
khi dùng macro này thì làm cho một chứng từ ghi sổ là một trang A4 mình khôn biết vận dụng cách của file mình mong các bác chỉ giúp
địa chỉ của file Chứng từ ghi sổ của anh ThuNghi trả lời cho mình
http://www.giaiphapexcel.com/forum/showthread.php?t=14746&page=2

 

[quochung2005]

mình đã tim ra cách rồi mình đặt counta bên sheet muốn tạo để đếm số cells từ đó mình đặt một biến h rồi cho h= sheet... range("...").value, rồi đặt H này : k=H+1 trong for i= từ to den thì mình sẽ làm được

 

[quochung2005]

mình gửi file đó lên lại mong người xem có được không, mình đã dùng counta để làm thật sự đơn giãn mà suy nghi hoài không được

 

[TVT]

Mình thấy bạn in chứng từ ghi sổ tót nhưng còn thiếu Cột chứng từ . số , ngày chứng từ gốc, ngày tháng, năm của chứng từ ghi sổ. Theo mình ngày tháng năm của chứng từ nghi sổ lấy theo chứng từ gốc phát sinh ngày cuối cùng của chứng từ nghi sổ rất mong bạn xem lại để được hoàn thiện hơn. Cảm ơn bạn

 

[VAM]

Các anh chị có mẫu sổ sách theo chứng từ ghi sổ cho em với, cty em la theo hình thức chứng từ ghi sổ mà làm bằng tay ko ah, e mệt quá, các anh chin giúp e nhé, xin anh chị gửi vào địa chỉ mail :anh675@yahoo.com nha, xin cảm ơn các anh chị nhiều nhiều