Tự ẩn những dòng bị N/A

[komono]

em có đoạn macro này nhưng chạy chưa đúng ý định
em muốn nó chỉ ẩn dòng bị N/A thôi (hoặc dòng có chữ "không")
có cách nào sửa lại chọn hiện tất cả chỉ ẩn dòng có N/A thôi
em xin cảm ơn
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Range("A310").Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$D$11").AutoFilter Field:=3, Criteria1:=Array("cát" _
, "g?ch", "son", "="), Operator:=xlFilterValues
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Selection.AutoFilter
End Sub

 

[Hoàng Trọng Nghĩa]

em có đoạn macro này nhưng chạy chưa đúng ý định
em muốn nó chỉ ẩn dòng bị N/A thôi (hoặc dòng có chữ "không")
có cách nào sửa lại chọn hiện tất cả chỉ ẩn dòng có N/A thôi
em xin cảm ơn
Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Range("A310").Select
Selection.AutoFilter
ActiveSheet.Range("$A$3:$D$11").AutoFilter Field:=3, Criteria1:=Array("cát" _
, "g?ch", "son", "="), Operator:=xlFilterValues
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Selection.AutoFilter
End Sub

Sao bạn không dùng công thức như thế này tại sheet Hoa Don?

=IFERROR(VLOOKUP(B3,nhập!$J$5:$K$9,2,0),"")

Sau đó, để không hiển thị số 0 bạn vào Excel Options > Advanced { mục Display options for this worksheet > bỏ check mục Show a zero in cells ...

 

[hoamattroicoi]

Bạn có thể sửa câu lệnh thành thế này nếu bạn thích :

ActiveSheet.Range("$A$3:$D$11").AutoFilter Field:=3, Criteria1:="<>#N/A", Operator:=xlFilterValues

 

[komono]

Sao bạn không dùng công thức như thế này tại sheet Hoa Don?

=IFERROR(VLOOKUP(B3,nhập!$J$5:$K$9,2,0),"")

Sau đó, để không hiển thị số 0 bạn vào Excel Options > Advanced { mục Display options for this worksheet > bỏ check mục Show a zero in cells ...

cám ơn bạn!
do nhu cầu của mình là nó tự ẩn những dòng có chữ N/A (1 mặt hàng thì 1 dòng, 10 mặt hàng thì 10 dòng)
cách của bạn thì những dòng người đó ko mua vẫn hiện ra

 

[komono]

cám ơn anh rất rất nhiều

Bạn có thể sửa câu lệnh thành thế này nếu bạn thích :

ActiveSheet.Range("$A$3:$D$11").AutoFilter Field:=3, Criteria1:="<>#N/A", Operator:=xlFilterValues

 

[Hoàng Trọng Nghĩa]

cám ơn anh rất rất nhiều

Ặc ... ặc ... ặc ...

 

[nghiaphuc]

Cần gì phải AutoFilter hay AdvancedFilter nhỉ?! Tôi nghĩ chỉ cần một câu lệnh thế này là đủ:

Sheet2.[C:C].SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True

 

[komono]

Cần gì phải AutoFilter hay AdvancedFilter nhỉ?! Tôi nghĩ chỉ cần một câu lệnh thế này là đủ:

Sheet2.[C:C].SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True

cám ơn anh!
nhưng in đợt 1 có 3 mặt hàng thì ok
nhưng in đợt 2 có 5 mặt hàng thì nó cũng chỉ in dc 3
thiếu 1 dòng lệnh phục hồi lại các hàng sau khi in
anh có thể bổ sung giùm em ko

 

[komono]

xong rồi xin cảm ơn các anh


Sub Macro2()
'
' Macro2 Macro
'
' Keyboard Shortcut: Ctrl+m
'
Sheet2.[C:C].SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Hidden = True
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
IgnorePrintAreas:=False
Rows("2:11").Select
Selection.EntireRow.Hidden = False
End Sub

 

[nghiaphuc]

cám ơn anh!
nhưng in đợt 1 có 3 mặt hàng thì ok
nhưng in đợt 2 có 5 mặt hàng thì nó cũng chỉ in dc 3
thiếu 1 dòng lệnh phục hồi lại các hàng sau khi in
anh có thể bổ sung giùm em ko

Vậy thì thêm câu lệnh này vào trước câu lệnh kia là được: Sheet2.Cells.EntireRow.Hidden = False