Hej,
Jeg arbejder med Excel 2013,
Jeg har brug for autofilteret "#N/A" i "F"-kolonnen, hvis filteret "#N/A" ingen data med overskriften, "Goto 0:"-koden gør...
men min kode virker ikke, gå til 0:
Undertestss()
'Filter Indsæt og #N/A Kopier og Indsæt
'VBA – Sluk autofilter fra kode
Hvis ActiveSheet.AutoFilterMode Så
ActiveSheet.AutoFilterMode = Falsk 'ActiveSheet.Range("A1"). AutoFilter ---> Slå Autofilter til
End If
'Automatisk filter 2. kolonne tomme celler filter
Dim Last Row As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Ved fejl Genoptag næste 'hvis filter, så går ingen data videre
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Ikke relevant Celler-filter og vælg derefter synlige celler
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Vælg
'Stop med at kopiere indsæt, hvis det filtrerede område ikke har nogen data
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Vælg
Selection.Copy
'Gør noget kode.........
Application.CutCopyMode = False
Else
ActiveSheet.AutoFilterMode = Falsk
Gå til 0:
End If
'Gør noget kode.........
0:
End Sub
Hjælp mig venligst, tak for forhånd
Stop copy paste, hvis det filtrerede område ikke har data.zip
Stop copy paste, hvis det filtrerede område ikke har data.zip