Cześć,
Pracuję na Excelu 2013,
Potrzebuję autofiltru „#N/D” w kolumnie „F”, jeśli filtruje „#N/D” brak danych z nagłówkiem, kod „Goto 0:” nie...
ale mój kod nie działa, goto 0:
Testy podrzędness()
„Wstaw filtr i #N/D Kopiuj i wklej
„VBA – Wyłącz autofiltr z kodu
Jeśli ActiveSheet.AutoFilterMode To
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Włącz autofiltr
End If
„Automatyczny filtr drugiej kolumny Filtr pustych komórek
Dim LastRow tak długo
LastRow = Range("B" & Rows.Count).End(xlUp).Row
On Error Resume Next 'jeśli filtr to żadne dane nie przejdą dalej
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Not Applicable Cells filtruj, a następnie wybierz widoczne komórki
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Wybierz
„Zatrzymaj kopiowanie i wklejanie, jeśli filtrowany zakres nie zawiera danych
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
„Zrób coś z kodem .........
Application.CutCopyMode = False
Więcej
ActiveSheet.AutoFilterMode = Fałsz
Przejdź do 0:
End If
„Zrób coś z kodem .........
0:
End Sub
Bardzo proszę o pomoc, dzięki za z góry
Zatrzymaj kopiowanie i wklejanie, jeśli filtrowany zakres nie zawiera pliku data.zip
Zatrzymaj kopiowanie i wklejanie, jeśli filtrowany zakres nie zawiera pliku data.zip