Hej,
Jag arbetar med Excel 2013,
Jag behöver autofiltret "#N/A" i kolumnen "F", om filtrering av "#N/A" ingen data med rubriken, "Goto 0:"-koden gör...
men min kod fungerar inte, gå till 0:
Sub testsss()
'Filter Infoga och #N/A Kopiera och klistra in
'VBA – Stäng av autofilter från kod
Om ActiveSheet.AutoFilterMode Då
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1"). AutoFilter ---> Slå på autofilter
End If
"Autofiltrera 2:a kolumnens tomma cellers filter
Dimma Last Row As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Vid Error Resume Next 'Om filtret går ingen data vidare
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Inte tillämpliga Celler filter och välj sedan synliga celler
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Välj
"Sluta kopiera klistra in om det filtrerade intervallet saknar data
If Range("A1:F" & Last Row).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Välj
Selection.Copy
'Do Something Code.........
Application.CutCopyMode = False
annars
ActiveSheet.AutoFilterMode = False
Gå till 0:
End If
'Do Something Code.........
0:
End Sub
Snälla hjälp mig, tack för förskottet
Sluta kopiera klistra in om det filtrerade intervallet inte har data.zip
Sluta kopiera klistra in om det filtrerade intervallet inte har data.zip
Jag arbetar med Excel 2013,
Jag behöver autofiltret "#N/A" i kolumnen "F", om filtrering av "#N/A" ingen data med rubriken, "Goto 0:"-koden gör...
men min kod fungerar inte, gå till 0:
Sub testsss()
'Filter Infoga och #N/A Kopiera och klistra in
'VBA – Stäng av autofilter från kod
Om ActiveSheet.AutoFilterMode Då
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1"). AutoFilter ---> Slå på autofilter
End If
"Autofiltrera 2:a kolumnens tomma cellers filter
Dimma Last Row As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row
Vid Error Resume Next 'Om filtret går ingen data vidare
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Inte tillämpliga Celler filter och välj sedan synliga celler
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Välj
"Sluta kopiera klistra in om det filtrerade intervallet saknar data
If Range("A1:F" & Last Row).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Välj
Selection.Copy
'Do Something Code.........
Application.CutCopyMode = False
annars
ActiveSheet.AutoFilterMode = False
Gå till 0:
End If
'Do Something Code.........
0:
End Sub
Snälla hjälp mig, tack för förskottet
Sluta kopiera klistra in om det filtrerade intervallet inte har data.zip
Sluta kopiera klistra in om det filtrerade intervallet inte har data.zip