No Visible Cells

[Carly]

I have got a macro which filters a spreadsheet and then copies the visible cells in one column into another spreadsheet.

If there is no data in the filter it errors. If there any way I can say:

If no data selected then Do Nothing otherwise Do My Code

 

[VoG]

Perhaps like this

On Error Resume Next
'
'code to copy and paste
'
On Error GoTo 0

 

[Carly]

I had put this in, but wouldn't this go to next whatever the error? I only want it to happen on this specific error.

 

[Sektor]

Or use logic like this:

[COLOR="Blue"]Sub[/COLOR] Visi()
    
    [COLOR="Blue"]Dim[/COLOR] rng [COLOR="Blue"]As[/COLOR] Range, lastRow [COLOR="Blue"]As[/COLOR] [COLOR="Blue"]Long[/COLOR]
    
    [COLOR="Blue"]With[/COLOR] Sheets("Sheet1")
                
[COLOR="SeaGreen"]        ' Define last row in data. I have chosen column A.[/COLOR]
        lastRow = .Range("A6").End(xlDown).Row
        
[COLOR="seagreen"]        ' Turn off autofilter, if any.[/COLOR]
        [COLOR="Blue"]If[/COLOR] .AutoFilterMode [COLOR="Blue"]Then[/COLOR] .AutoFilter.Range.AutoFilter
         
[COLOR="seagreen"]        ' Filter data by room.[/COLOR]
        .Range("A6:M6").AutoFilter Field:=2, Criteria1:=12
        
[COLOR="seagreen"]        ' Copy cell we're interested in.[/COLOR]
        [COLOR="Blue"]Set[/COLOR] rng = .Range("C7:C" & lastRow).SpecialCells(xlCellTypeVisible)
    
        [COLOR="Blue"]If[/COLOR] [COLOR="Blue"]Not[/COLOR] rng [COLOR="Blue"]Is Nothing Then[/COLOR] 
            rng.Copy
        [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]If[/COLOR]
        
[COLOR="seagreen"]        ' Turn off autofilter, if any.[/COLOR]
        [COLOR="Blue"]If[/COLOR] .AutoFilterMode [COLOR="Blue"]Then[/COLOR] .AutoFilter.Range.AutoFilter
        
    [COLOR="Blue"]End[/COLOR] [COLOR="Blue"]With[/COLOR]
    
[COLOR="Blue"]End[/COLOR] [COLOR="Blue"]Sub[/COLOR]

 

[Richard Schollar]

Yes, but if you only have the copy & paste line between the On Error Resume Next and On Error Goto 0 there probably isn't much else that is going to go wrong.

 

[Carly]

And any other errors that happen elsewhere in my code will just be handled as normal?

 

[VoG]

Yes.

 

[Carly]

Thank you very much...I will use this!

Very much appreciated, never managed to get my head around Error Handling