Xin Giúp em hoàn thành PM In HD VAT (1 người xem)

[H_loc]

Em đang làm 1 file để in HD VAT , Sưu tập trong diễn đàn được 1 code Gạch chéo trong hoá đơn nhưng lại không sửa lại theo ý được .xin nhờ các anh chị hương dẫn dùm phần còn lại . xin cám ơn rất nhiều .

 

[dhn46]

Bạn muốn sửa cái gì thì phải nói rõ, (về vấn đề CODE bạn liên hệ tác giả)
Trong file bạn có thắc mắc về mấy cái số 0. Để mất số 0 thì sửa lại hàm 1 chút ví dụ
Ô B25:

=IF(NHAP!B25<>"",NHAP!B25,"")

 

[dongducnhiem]

Em đang làm 1 file để in HD VAT , Sưu tập trong diễn đàn được 1 code Gạch chéo trong hoá đơn nhưng lại không sửa lại theo ý được .xin nhờ các anh chị hương dẫn dùm phần còn lại . xin cám ơn rất nhiều .

Thử tham khảo thêm bài Giúp code: Tự động gạch chéo các dòng trống sau khi chọn Target!

 

[H_loc]

Thử tham khảo thêm bài Giúp code: Tự động gạch chéo các dòng trống sau khi chọn Target!

Thật bất ngờ khi nhận được sự hỗ trợ nhanh chóng từ các anh chi . xin cám on rẫt nhiều . code gach chéo là em sưu tập từ chổ của đó .
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim Cll As Range 'O dau tien khong co gia tri
If Sh.Name <> "PN" And Sh.Name <> "PX" Or Target.Address <> "$E$4" Then Exit Sub
On Error Resume Next
Set Cll = Sh.[B25:B33].Find("*", Sh.[B25], xlValues, xlPart, , xlPrevious).Offset(1)
If Cll Is Nothing Then Set Cll = Sh.[B25]
With ActiveSheet.Shapes("Gach")
.Top = Cll.Top
.Left = Cll.Left
.Height = Range(Cll, Sh.[c33]).Height
.Width = Range(Cll, Sh.[c33]).Width
End With
End Sub
Em đã chạy được rồi . chỉ muốn thay $E$4 thanh nút bấm mà thôi .

 

[H_loc]

Có anh chị nào giúp em với

 

[H_loc]

mong các bạn chỉ giúp các bước còn lại của PM này . Cám on các bạn

 

[H_loc]

Nhờ Các Bạn Hướng Dẫn Các Bước Còn Lại . Xin Cám ơn Rất Nhiều