If foundrane is nothing then resume

**giantfan87** · 08-03-2009, 12:26 PM

Hey all,

I'm trying to have a macro move down one cell and resume from the start if it finds nothing, but I'm running into problems....

Cells.Find(What:=Range("A1"), after:=ActiveCell).Activate
    If FoundRange Is Nothing Then
        Sheets("Data").Select
        ActiveCell.Offset(1, 0).Select
        Run (Macro)
    
    Else
       
    End If

Thanks!

**Leith Ross** · 08-03-2009, 12:31 PM

Hello giantfan87,

What is the problem you are having?

**giantfan87** · 08-03-2009, 01:12 PM

It's giving me a runtime error and highlighting the "If foundrange is nothing then" line.

**Leith Ross** · 08-03-2009, 01:18 PM

Hello giantfan87,

Your code snippet does not show if you are assigning the variable FoundRange to the Cells.Find statement. This would cause the error. You code should like similar to this...

Dim FoundRange As Range

  Set FoundRange = Cells.Find(What:=Range("A1"), after:=ActiveCell).Activate
     If FoundRange Is Nothing Then
        Sheets("Data").Select
        ActiveCell.Offset(1, 0).Select
        Run (Macro)
     Else
       
    End If

**giantfan87** · 08-03-2009, 01:26 PM

It's still giving me an error, says I need to define an object.

**Leith Ross** · 08-03-2009, 01:51 PM

Hello giantfan87,

You should post your workbook for review.

**giantfan87** · 08-03-2009, 04:35 PM

Figured out how to label a line. Problem still persists as follows: I want it to diplay a message saying "works" if something is found. If nothing is found I want it to offset 1 row and go to line "nada". The way it is written it seems to be ignoring the activecell.offset lines.

Nada: Selection.Copy
Sheets("TYP Strips").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Dim foundrange As Range
Set foundrange = Cells.Find(What:=Range("A1"), after:=ActiveCell)
    Cells.Find(What:=Range("A1"), after:=ActiveCell).Activate
    If foundrange Is Nothing Then
    Sheets("Data").Select
    ActiveCell.Offset(1, 0).Select
    GoTo Nada
    
    Else
       MsgBox ("works")
    End If

**Leith Ross** · 08-03-2009, 05:18 PM

Hello giantfan87,

The ActiveCell should be moving to the next row. Is that not happening?

If foundrane is nothing then resume

LinkBack

Thread Tools

Rate This Thread

Display

Hybrid View

If foundrane is nothing then resume

Re: If foundrane is nothing then resume

Re: If foundrane is nothing then resume

Re: If foundrane is nothing then resume

Re: If foundrane is nothing then resume

Re: If foundrane is nothing then resume

Re: If foundrane is nothing then resume

Re: If foundrane is nothing then resume

Thread Information

Users Browsing this Thread

Tags for this Thread

Bookmarks

Bookmarks

Posting Permissions