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