Results 1 to 4 of 4
  1. #1
    Gold Lounger
    Join Date
    Jan 2004
    Location
    Italy
    Posts
    3,245
    Thanks
    0
    Thanked 0 Times in 0 Posts

    controll days i userform (2000 sr 1)

    i have insert in this code the controll on work days (it esclude saturday and Sunday) is possible to insert a other days from exlusion in the range sheet CODICI K2:K13 from exclusion...
    01/01/2005
    06/01/2005
    27/03/2005
    28/03/2005
    25/04/2005
    01/05/2005
    02/06/2005
    15/08/2005
    01/11/2005
    08/12/2005
    25/12/2005
    26/12/2005

  2. #2
    WS Lounge VIP sdckapr's Avatar
    Join Date
    Jul 2002
    Location
    Pittsburgh, Pennsylvania, USA
    Posts
    11,225
    Thanks
    14
    Thanked 342 Times in 335 Posts

    Re: controll days i userform (2000 sr 1)

    Hans,
    <img src=/S/whisper.gif border=0 alt=whisper width=29 height=17> I think you meant:
    <pre>If Not Worksheets("CODICI").Range("K2:K<font color=red>1</font color=red>3").Find(What:=DATA, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then</pre>


    Steve

  3. #3
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: controll days i userform (2000 sr 1)

    Yes, of course. Thanks! <img src=/S/thumbup.gif border=0 alt=thumbup width=15 height=15>

  4. #4
    Plutonium Lounger
    Join Date
    Mar 2002
    Posts
    84,353
    Thanks
    0
    Thanked 29 Times in 29 Posts

    Re: controll days i userform (2000 sr 1)

    Edited by HansV to correct typo. Thanks to Steve (sdckapr) for pointing it out.

    Try this:

    If Not Worksheets("CODICI").Range("K2:K13").Find(What:=DA TA, LookIn:=xlValues, LookAt:=xlWhole) Is Nothing Then
    MsgBox "It's a holiday!"
    Me.Textbox2 = ""
    Me.Textbox2.SetFocus
    Exit Sub
    End If

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •