#ref!

[jarhead58]

After deleting a record, my coditional formating goes from this "=MATCH(M12,($B$2:$F$2),0) to this "=MATCH(M12,(#REF!),0)" even though the records have shifted up into the pertinent cells!

 

[jarhead58]

That was it!!! Thanks alot, really appreciate all of the help!!

 

[RoryA]

Glad to help.

 

[jarhead58]

Well, thought I was good to go!! I apologize for being a bother, I'm such a newbie at this lol! How can I delete the record that appears in my form when I use the Find Next button? Right now it's deleting A2:I2 which is fine for mistakes. I know I need to remove the A2:I2 reference in the sub! Working on this, I have duplicated records and I just wanted to go backwards and delete the repeats! TIA

 

[RoryA]

I haven't looked at your file as downloading workbooks is frowned upon at work, so I have no idea what your code looks like I'm afraid. I'll look at it tomorrow if nobody else has jumped in in the meantime.

 

[jarhead58]

Here is the code for the delete.

[COLOR=#ff0000]Private Sub Delete_Click()[/COLOR]    
    Dim ws As Worksheet
    Dim rng As Range
    
    Set ws = ActiveSheet
    Set rng = ws.Range("a2:I2")
    rng.Delete Shift:=xlUp
    ans = MsgBox("Do you want to continue?", vbYesNo)
If ans = vbYes Then
    Call Update
Else
    Unload EntryForm
End If

[COLOR=#ff0000]Private Sub Find_Next_Click()[/COLOR]
    Call Update
End Sub


[COLOR=#ff0000]Private Sub Previous_Click()[/COLOR]
 lngR = lngR - 2
    Call Update
End Sub


[COLOR=#ff0000]Sub Update()[/COLOR]


If lngR = 0 Then


        lngR = 2


    Else


        lngR = lngR + 1


End If


 DateBox.Value = Sheet1.Range("A" & lngR).Text
    Ball1.Value = Sheet1.Range("B" & lngR).Text
    Ball2.Value = Sheet1.Range("C" & lngR).Text
    Ball3.Value = Sheet1.Range("D" & lngR).Text
    Ball4.Value = Sheet1.Range("E" & lngR).Text
    Ball5.Value = Sheet1.Range("F" & lngR).Text
    Power.Value = Sheet1.Range("G" & lngR).Text
    PowerPlay.Value = Sheet1.Range("H" & lngR).Text
    Winnings.Value = Sheet1.Range("I" & lngR).Text
    
        
End Sub
End Sub