Hoi,
Ik werk Excel 2013,
Ik heb de Autofilter "#N/A" in de kolom "F" nodig, als filter de "#N/A" geen gegevens met de kop, "Goto 0:" code doet...
maar mijn code werkt niet, ga naar 0:
Subtestss()
'Filter invoegen en #N/A kopiëren en plakken
'VBA - Schakel Autofilter uit code uit
Als ActiveSheet.AutoFilterMode Dan
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Autofilter inschakelen
End If
'Auto Filter 2e Kolom Lege Cellen filter
Dim LaatsteRij Zo Lang
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Bij fout Volgende hervatten 'als er gefilterd wordt, gaan er geen gegevens verder
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Niet van toepassing Cellenfilter en selecteer vervolgens zichtbare cellen
Bereik("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Selecteer
'Stop kopiëren en plakken als het gefilterde bereik geen gegevens bevat
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Bereik("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Selecteer
Selection.Copy
'Doe iets coderen .........
Application.CutCopyMode = False
Anders
ActiveSheet.AutoFilterMode = Onwaar
Ga naar 0:
End If
'Doe iets coderen .........
0:
End Sub
Help me alstublieft, bedankt voor het voorschot
Stop met kopiëren en plakken als het gefilterde bereik geen data.zip heeft
Stop met kopiëren en plakken als het gefilterde bereik geen data.zip heeft