Hi, below is some
VB which I copied and pasted. I have the feeling it can be
done shorter and faster, since I have to do this for another 15 times. Anyone
who has suggestions?
regards
Gerard
Label78.Caption = Sheets("Input - components").Range("D5").Value
Label79.Caption = Sheets("Input - simple").Range("H8").Value
Label80.Caption = Sheets("Input - simple").Range("K8").Value
Label81.Caption = Sheets("Input - simple").Range("N8").Value
Label82.Caption = Sheets("Input - simple").Range("Q8").Value
Label83.Caption = Sheets("Input - simple").Range("T8").Value
Label84.Caption = Sheets("Input - components").Range("D5").Value
Label85.Caption = Sheets("Input - simple").Range("W8").Value
Label86.Caption = Sheets("Input - simple").Range("Z8").Value
Label87.Caption = Sheets("Input - simple").Range("AC8").Value
Label88.Caption = Sheets("Input - simple").Range("AF8").Value
Label89.Caption = Sheets("Input - simple").Range("AI8").Value
If Sheets("Input - simple").Range("h8").Value = "" Then
TextBox12.Visible = False
Else
TextBox12.Visible = True
End If
If Sheets("Input - simple").Range("k8").Value = "" Then
TextBox13.Visible = False
Else
TextBox13.Visible = True
End If
If Sheets("Input - simple").Range("n8").Value = "" Then
TextBox14.Visible = False
Else
TextBox14.Visible = True
End If
If Sheets("Input - simple").Range("q8").Value = "" Then
TextBox15.Visible = False
Else
TextBox15.Visible = True
End If
If Sheets("Input - simple").Range("t8").Value = "" Then
TextBox16.Visible = False
Else
TextBox16.Visible = True
End If
If Sheets("Input - simple").Range("w8").Value = "" Then
TextBox17.Visible = False
Else
TextBox17.Visible = True
End If
If Sheets("Input - simple").Range("z8").Value = "" Then
TextBox18.Visible = False
Else
TextBox18.Visible = True
End If
If Sheets("Input - simple").Range("ac8").Value = "" Then
TextBox19.Visible = False
Else
TextBox19.Visible = True
End If
If Sheets("Input - simple").Range("af8").Value = "" Then
TextBox20.Visible = False
Else
TextBox20.Visible = True
End If
If Sheets("Input - simple").Range("ai8").Value = "" Then
TextBox21.Visible = False
Else
TextBox21.Visible = True
End If