Re: Textbox focus lost

From: Tom Ogilvy (twogilvy_at_msn.com)
Date: 06/03/04

  • Next message: bwreath: "Initiate perl script in linux from a Windows VBA program" 
    Date: Thu, 3 Jun 2004 16:47:00 -0400

    There was a missing End if

    this compiles OK

    Private Sub CommandButton1_Click()
      If Me.TextBox1.Text = "" Then
      MsgBox "Vul getal in"
      Else
      X = Me.ComboBox1.ListIndex
      Me.ComboBox1.ListIndex = IIf(X = 160, 0, X + 1)

      If Weekscherm.ComboBox1.Value = "Week 1" Then
      Set ListRange = _
      Active***.Range("C9:C106,C113:C162,C169:C183")
      kk = 0
      For Each Cell In ListRange.Cells
      If Cell.Interior.ColorIndex <> 3 Then
        kk = kk + 1
        If kk = ComboBox1.ListIndex + 1 Then
           idex = Cell.Row
           Exit For
        End If
      End If
      Next Cell
      Set Cel = Cells(idex, 17)
      Cel.Value = Me.TextBox1.Text
      End If
      '.....so a if for every week of the year'

      Me.TextBox1.Text = ""
      ComboBox1.AutoTab = True
      End If

    End Sub 

    -- 
Regards,
Tom Ogilvy
"Stift >" <<Stift.179w8f@excelforum-nospam.com> wrote in message
news:Stift.179w8f@excelforum-nospam.com...
> Please somebody help me !!! I really must get this working! :confused:
>
>
> ---
> Message posted from http://www.ExcelForum.com/
>
  • Next message: bwreath: "Initiate perl script in linux from a Windows VBA program"