I need some Help with my userform i can Read in my textbox and see it in the Cell But my Label's Aint Update until i Restart userform again
on the userform there is Textbox 1 - 16 and Labels from 1- 28 and Command button 1-28
the Commandbutton's Works ( each Command Button Get Labels Flashing when Button is activated) Command button 1 Flash Label 1 and so on to Label 28
on the userform there is Textbox 1 - 16 and Labels from 1- 28 and Command button 1-28
the Commandbutton's Works ( each Command Button Get Labels Flashing when Button is activated) Command button 1 Flash Label 1 and so on to Label 28
Code:
Private Sub CommandButton1_Click()
Sheets("Cup 128").Range("L5").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label1 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton2_Click()
Sheets("Cup 128").Range("L5").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label2 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton3_Click()
Sheets("Cup 128").Range("L9").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label3 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton4_Click()
Sheets("Cup 128").Range("L9").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label4 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton5_Click()
Sheets("Cup 128").Range("L13").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label5 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton6_Click()
Sheets("Cup 128").Range("L13").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label6 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton7_Click()
Sheets("Cup 128").Range("L17").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label7 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton8_Click()
Sheets("Cup 128").Range("L17").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label8 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton9_Click()
Sheets("Cup 128").Range("L21").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label9 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton10_Click()
Sheets("Cup 128").Range("L21").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label10 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton11_Click()
Sheets("Cup 128").Range("L25").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label11 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton12_Click()
Sheets("Cup 128").Range("L25").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label12 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton13_Click()
Sheets("Cup 128").Range("L29").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label13 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton14_Click()
Sheets("Cup 128").Range("L29").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label14 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton15_Click()
Sheets("Cup 128").Range("L33").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label15 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton16_Click()
Sheets("Cup 128").Range("L33").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label16 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton17_Click()
Sheets("Cup 128").Range("V7").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label17 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton18_Click()
Sheets("Cup 128").Range("V7").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label18 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton19_Click()
Sheets("Cup 128").Range("V15").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label19 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton20_Click()
Sheets("Cup 128").Range("V15").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label20 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton21_Click()
Sheets("Cup 128").Range("V23").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label21 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton22_Click()
Sheets("Cup 128").Range("V23").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label22 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton23_Click()
Sheets("Cup 128").Range("V31").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label23 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton24_Click()
Sheets("Cup 128").Range("V31").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label24 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton25_Click()
Sheets("Cup 128").Range("AF11").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label25 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton26_Click()
Sheets("Cup 128").Range("AF11").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label26 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton27_Click()
Sheets("Cup 128").Range("AF27").Value = "1"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label1.BackColor
Set CellToFlash = Me.Label27 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub CommandButton28_Click()
Sheets("Cup 128").Range("AF27").Value = "2"
'Unload Me
Dim X As Integer
Dim OrigColor As Long
Dim NewColor As Long
Dim CellToFlash As MSForms.Label
OrigC = ActiveCell.Interior.ColorIndex
NewColor = RGB(255, 0, 100) ' 1st cell color
OrigColor = Me.Label2.BackColor
Set CellToFlash = Me.Label28 ' Cell range to flash
Do Until X = 5 ' Flash 20 times
DoEvents
Start = Timer ' Set timer for 1st flash rate
Delay = Start + 0.1 ' Set delay for 1st cell color
Do Until Timer > Delay ' Dountil delay is exceeded = start+1
DoEvents
CellToFlash.BackColor = NewColor ' Changes cell color to
Loop
Start = Timer ' Set timer for 2nd flash rate
Delay = Start + 0.1 ' Set delay for 2nd cell color
Do Until Timer > Delay
DoEvents
CellToFlash.BackColor = OrigColor ' Changes cell color to
Loop
X = X + 1 ' Loop increment
Loop
End Sub
Private Sub TextBox1_Change()
Range("E5").Value = TextBox1.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox2_Change()
Range("E6").Value = TextBox2.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox3_Change()
Range("E9").Value = TextBox3.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox4_Change()
Range("E10").Value = TextBox4.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox5_Change()
Range("E13").Value = TextBox5.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox6_Change()
Range("E14").Value = TextBox6.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox7_Change()
Range("E17").Value = TextBox7.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox8_Change()
Range("E18").Value = TextBox8.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox9_Change()
Range("E21").Value = TextBox9.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox10_Change()
Range("E22").Value = TextBox10.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox11_Change()
Range("E25").Value = TextBox11.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox12_Change()
Range("E26").Value = TextBox12.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox13_Change()
Range("E29").Value = TextBox13.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox14_Change()
Range("E30").Value = TextBox14.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox15_Change()
Range("E33").Value = TextBox15.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub TextBox16_Change()
Range("E34").Value = TextBox16.Value ' specify the destination sheet and cell here
Me.Repaint
End Sub
Private Sub UserForm_Initialize()
Label1.Caption = Sheets("Cup 128").Range("E5").Value
If Label1 = "False" Then
Label1 = ""
Else
End If
Label2.Caption = Sheets("Cup 128").Range("E6").Value
If Label2 = "False" Then
Label2 = ""
Else
End If
Label3.Caption = Sheets("Cup 128").Range("E9").Value
If Label3 = "False" Then
Label3 = ""
Else
End If
Label4.Caption = Sheets("Cup 128").Range("E10").Value
If Label4 = "False" Then
Label4 = ""
Else
End If
Label5.Caption = Sheets("Cup 128").Range("E13").Value
If Label5 = "False" Then
Label5 = ""
Else
End If
Label6.Caption = Sheets("Cup 128").Range("E14").Value
If Label6 = "False" Then
Label6 = ""
Else
End If
Label7.Caption = Sheets("Cup 128").Range("E17").Value
If Label7 = "False" Then
Label7 = ""
Else
End If
Label8.Caption = Sheets("Cup 128").Range("E18").Value
If Label8 = "False" Then
Label8 = ""
Else
End If
Label9.Caption = Sheets("Cup 128").Range("E21").Value
If Label9 = "False" Then
Label9 = ""
Else
End If
Label10.Caption = Sheets("Cup 128").Range("E22").Value
If Label10 = "False" Then
Label10 = ""
Else
End If
Label11.Caption = Sheets("Cup 128").Range("E25").Value
If Label11 = "False" Then
Label11 = ""
Else
End If
Label12.Caption = Sheets("Cup 128").Range("E26").Value
If Label12 = "False" Then
Label12 = ""
Else
End If
Label13.Caption = Sheets("Cup 128").Range("E29").Value
If Label13 = "False" Then
Label13 = ""
Else
End If
Label14.Caption = Sheets("Cup 128").Range("E30").Value
If Label14 = "False" Then
Label14 = ""
Else
End If
Label15.Caption = Sheets("Cup 128").Range("E33").Value
If Label15 = "False" Then
Label15 = ""
Else
End If
Label16.Caption = Sheets("Cup 128").Range("E34").Value
If Label16 = "False" Then
Label16 = ""
Else
End If
Label17.Caption = Sheets("Cup 128").Range("P7").Value
If Label17 = "False" Then
Label17 = ""
Else
End If
Label18.Caption = Sheets("Cup 128").Range("P8").Value
If Label18 = "False" Then
Label18 = ""
Else
End If
Label19.Caption = Sheets("Cup 128").Range("P15").Value
If Label19 = "False" Then
Label19 = ""
Else
End If
Label20.Caption = Sheets("Cup 128").Range("P16").Value
If Label20 = "False" Then
Label20 = ""
Else
End If
Label21.Caption = Sheets("Cup 128").Range("P23").Value
If Label21 = "False" Then
Label21 = ""
Else
End If
Label22.Caption = Sheets("Cup 128").Range("P24").Value
If Label22 = "False" Then
Label22 = ""
Else
End If
Label23.Caption = Sheets("Cup 128").Range("P31").Value
If Label23 = "False" Then
Label23 = ""
Else
End If
Label24.Caption = Sheets("Cup 128").Range("P32").Value
If Label24 = "False" Then
Label24 = ""
Else
End If
Label25.Caption = Sheets("Cup 128").Range("Y11").Value
If Label25 = "False" Then
Label21 = ""
Else
End If
Label26.Caption = Sheets("Cup 128").Range("Y12").Value
If Label26 = "False" Then
Label22 = ""
Else
End If
Label27.Caption = Sheets("Cup 128").Range("Y27").Value
If Label27 = "False" Then
Label27 = ""
Else
End If
Label28.Caption = Sheets("Cup 128").Range("Y28").Value
If Label28 = "False" Then
Label28 = ""
Else
End If
End Sub