I have a range that is being filtered. Once filtered, if there is data, that data needs to be copied and then pasted into another sheet. If the data is filtered and the rows are blank, then do not copy and move on to the next command. How can I do this, below if my coding.
sheet10.Activate
With Range("Q1")
If .Value = "" Then
Range("D3:D202").AutoFilter 4, "", xlAnd, "<>"
Else
Range("D3:D202").AutoFilter 4, "*" & .Value & "*"
End If
End With
With sheet10
If Columns(2).SpecialCells(xlVisible).Rows.Count = 1 Then Exit Sub
AutoFilter.Range.Offset(1).Columns("C").Copy
sheet3.Range("D94").PasteSpecial xlPasteValues
.AutoFilter.Range.Offset(1).Columns("R").Copy
sheet3.Range("I94").PasteSpecial xlPasteValues
.AutoFilter.Range.Offset(1).Columns("Q").Copy
sheet3.Range("F94").PasteSpecial xlPasteValues
End With
sheet10.Activate
With Range("Q1")
If .Value = "" Then
Range("D3:D202").AutoFilter 4, "", xlAnd, "<>"
Else
Range("D3:D202").AutoFilter 4, "*" & .Value & "*"
End If
End With
With sheet10
If Columns(2).SpecialCells(xlVisible).Rows.Count = 1 Then Exit Sub
AutoFilter.Range.Offset(1).Columns("C").Copy
sheet3.Range("D94").PasteSpecial xlPasteValues
.AutoFilter.Range.Offset(1).Columns("R").Copy
sheet3.Range("I94").PasteSpecial xlPasteValues
.AutoFilter.Range.Offset(1).Columns("Q").Copy
sheet3.Range("F94").PasteSpecial xlPasteValues
End With