Hvordan undgår jeg dobbelt registrering af sygefravær. (VBA XL)

Kan du bruge dette til at komme videre:

Sub NySygeDag()
Dim nyPers, sDag As String

nyPers = "p2"          ' fås fra dine indtastninger
sDag = "20-06-2005"    ' fås fra dine indtastninger

a = Sheets("Ark2").Range("A65000").End(xlUp).Row

For i = 1 To a
    If Sheets("Ark2").Cells(i, 2).Text = nyPers Then
        If Sheets("Ark2").Cells(i, 4).Text = sDag Then
            MsgBox "Er allerede syg"
            Exit Sub
        End If
    End If
Next i

End Sub

Indsæt denne funktion i din kode og kald den f.eks. således:
''denne if sætning skal f.eks. være i koden for din OK-knap
If RegistredBefore(Textbox1.Text, Textbox2.Text) Then
    'Gem ikke
    MsgBox "Det indtasted er registret tidligere!", _
        vbExclamation + vbOKOnly, "Systeminformation"
    Exit Sub
Else
    'Gem indholdet af dine felter
End If


Function RegistredBefore(ByVal sPerson As String, ByVal sDate As String) As Boolean
    ' Funktionen returnerer TRUE, hvis en dobbelt registrering er igang.
    Dim bRetVal As Boolean
    Dim vntArea As Variant 'R,C
    Dim lRow As Long
   
    bRetVal = False
    vntArea = Worksheets("Sheet1").UsedRange
   
    For lRow = 1 To UBound(vntArea, 1)
        If vntArea(lRow, 2) = sPerson Then
            If vntArea(lRow, 4) = sDate Then
                bRetVal = True
                Exit For
            End If
        End If
    Next lRow
   
    DblReg = bRetVal
End Function

Flemmingdahl >

er det ikke
RegistredBefore = bRetVal

i stedet for

  DblReg = bRetVal

jo - godt set kabbak - ikke sådan når man ændre navnet til sidst *s*

Okay - I er pænt hakket til det her.
Ja det tog et stykke tid at afkryptisere jeres svar....og jeg mangler lidt endnu til helt at forstå flemming Dahl's....ja I må bære over med mig.

Det er et "userform" jeg har lavet og med lidt små tilpasninger har jeg fået brynils svar til at fungere ganske som jeg havde håbet på. Det ser således ud for min cmdGem_Click():

Dim nyPers As String
Dim sDag As Date

nyPers = lstPerson          ' fås fra dine indtastninger
sDag = cboDato    ' fås fra dine indtastninger

a = Sheets("Data").Range("A65000").End(xlUp).Row

For i = 1 To a
    If Sheets("Data").Cells(i, 2).Text = nyPers Then
            If Sheets("Data").Cells(i, 4).Value = sDag Then
                    MsgBox "Er allerede syg"
                    Exit Sub
            End If
        End If
Next i

Så point går til brynil hvis han vil anderkende sit svar.

Jeg beklager Flemming Dahl, jeg mangler lidt endnu til at blive en ægte VBA-Jedi, jeg kan godt forstå (bobbob) koden, men blev i tvivl om, hvordan den skulle placeres.

Takker for indsatsen.
KH
Michael

smiler - selve funktionen placeres i et eller andet sted sammen med din userform kode. Funktionen returnerer TRUE eller FALSE, hvilket fortæller dig om oplysningerne er gemt før.

Din cmdGem_Click() skal så se således ud

Private Sub cmdGem_Click()
    If RegistredBefore(Textbox1.Text, Textbox2.Text) Then
        'Gem ikke fordi den allerede findes
        MsgBox "Det indtasted er registret tidligere!", _
            vbExclamation + vbOKOnly, "Systeminformation"
        Exit Sub
    Else
        'kode der gemmer indholdet af dine felter
    End If
End Sub

Jeg har lige lavet et lille eksempel, som kan downloades her
http://www.smartoffice.dk/Tips/Eksperten/Index.asp

Meget gerne! I det hér selskab er det sjældent pointene går denne vej ;))
Tak for point!

brynil - en løsning der virker og kan forstås er altid point værd :-)

Kig engang på eksemplet - metoden er væsentlig hurtigere (ved større datamængder) idet jeg looper i en variabel istedet for i arket.