Help with an error 91 issue - assistance greatly appreciated.

**Bighitch** · 12-02-2012, 12:58 PM

I'm new to excel programming and have written a quite complicated sheet....... any way i'm stuck on this and was wondering if anyone could help. It's been driving me mad because on my main pc this code works fine with no issues........ but as soon as I put onto a different machine I keep getting the 91 error and I don't know how to solve it can you help me?

Heres the code
-----------------------------------------------------------------------------------------------
Sub Delnowin()

Dim uRange As Range
Dim FindTitle As Range
Dim tRow As Integer
Dim tCol As Integer
Set uRange = ActiveSheet.UsedRange
Set FindTitle = uRange.Find("NO WINNER")

tRow = FindTitle.Row <----- this is the line that the debugger says is the issues!!!

Rows(tRow & ":" & tRow).Select
Selection.ClearContents

------------------------------------------------------------------------------------------------
I can supply more of the code I have written but this is the only bit that is letting the whole thing down.

I'm sure there is a simple fix but as I can't see it!

Any help would be appreciated!

Many thanks in anticipation.

Bighitch

**Ron Coderre** · 12-02-2012, 01:27 PM

You need to trap the error that is throw when there are no matches for the FIND funcion.
Try something like this:
-----------------------------------------------------------------------------------------------

Sub Delnowin()

Dim uRange As Range
Dim FindTitle As Range
Dim tRow As Integer
Dim tCol As Integer
Set uRange = ActiveSheet.UsedRange
If WorksheetFunction.CountIf(uRange, "NO WINNER") > 0 Then
    Set FindTitle = uRange.Find("NO WINNER")
    tRow = FindTitle.Row    MsgBox tRow
    Rows(tRow & ":" & tRow).Select
    Selection.ClearContents
Else
    MsgBox "Do something here...No match"
End If

Does that help?

**Bighitch** · 12-02-2012, 02:08 PM

I dunno if this helps but this is the rest of the code I use in this

Sub Findnowinner()
'
' Findnowinner Macro
' Looks to see if A3 is now winner if NO then Find no winner and remove ....put this before print ticket for audit
'
Dim Name As String
    
    Name = Sheets("Payout Calc and Print").Range("A3").Value
    
    If Name = "NO WINNER" Then Exit Sub
    If Name <> "NO WINNER" Then Call Delnowin


Lastline:
    

End Sub


Sub Delnowin()

Dim uRange As Range
Dim FindTitle As Range
Dim tRow As Integer
Dim tCol As Integer
Set uRange = ActiveSheet.UsedRange
Set FindTitle = uRange.Find("NO WINNER")

    tRow = FindTitle.Row
    
    Rows(tRow & ":" & tRow).Select
    Selection.ClearContents
    
   
    
End Sub

I thought this was soooooo simple!

**Bighitch** · 12-02-2012, 01:57 PM

Unfortunately it does not I am now getting a compile error in hidden module!

I was wondering if I needed to be setting something.

I jump to this macro after I have looked in a list of data to see if I have some data. If I have data then I need to find which row has the 'no winner'

Every time this macro is run there should be 'no winner' in one of the rows and that is the line I want to remove with this macro.

Any other ideas? I appreciate the help Ron

I'm also intrigued as to why it works fine on my main machine but not on the other one's I'm trying to use it on!