Note: The other languages of the website are Google-translated. Back to English
Support is Offline
Today is our off day. We are taking some rest and will come back stronger tomorrow
Official support hours
Monday To Friday
From 09:00 To 17:30
  Saturday, 04 December 2021
  1 Replies
  1.9K Visits
0
Votes
Undo
Hi,

I am working Excel 2013,

I need the Autofilter "#N/A" in the "F" column, if filter the "#N/A" no data with the heading, "Goto 0:" code does...

but, my code not working, goto 0:

Sub testsss()
'Filter Insert and #N/A Copy and Paste
'VBA – Turn Off Autofilter From Code
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False 'ActiveSheet.Range("A1").AutoFilter ---> Turn On Autofilter
End If

'Auto Filter 2nd Column Blank Cells filter
Dim LastRow As Long
LastRow = Range("B" & Rows.Count).End(xlUp).Row

On Error Resume Next 'if filter then no data go next
ActiveSheet.Range("$A$1:$F" & LastRow).AutoFilter Field:=6, Criteria1:="#N/A" 'Not Applicable Cells filter then select visible cells
Range("$A$2:$F" & LastRow).SpecialCells(xlCellTypeVisible).Select

'Stop copy paste if the filtered range has no data
If Range("A1:F" & LastRow).SpecialCells(xlCellTypeVisible).Count > 1 Then
Range("$B$2:$D" & LastRow).SpecialCells(xlCellTypeVisible).Select
Selection.Copy
'Do Something Code.........
Application.CutCopyMode = False
Else
ActiveSheet.AutoFilterMode = False
GoTo 0:
End If

'Do Something Code.........

0:
End Sub


Kindly help me, thanks for advance
  Stop copy paste if the filtered range has no data.zip   Stop copy paste if the filtered range has no data.zip
9 months ago
·
#2364
0
Votes
Undo
Hi kpmsivaprakasam2003,

Sorry I couldn't understand you. What do you mean by this: "I need the Autofilter "#N/A" in the "F" column, if filter the "#N/A" no data with the heading, "Goto 0:" code does..."?

I look forward to hearing from you soon.

Amanda
  • Page :
  • 1
There are no replies made for this post yet.