Sub www()
ActiveSheet.AutoFilterMode = 0
Range("d4", [d106].End(xlUp)).AutoFilter 1, "<>0", xlAnd, "<>", 0
End Sub
как диапазон "d4", [d106] привязать к странице Бланк заказа ?
ActiveSheet.AutoFilterMode = 0
Range("d4", [d106].End(xlUp)).AutoFilter 1, "<>0", xlAnd, "<>", 0
End Sub
как диапазон "d4", [d106] привязать к странице Бланк заказа ?