| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
there must be a more simple way of doing this?
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 |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| IF formula-simple question; simple operator | Excel Discussion (Misc queries) | |||
| Simple problem, simple formula, no FUNCTION ! | Excel Worksheet Functions | |||
| Simple Simple Excel usage question | Excel Discussion (Misc queries) | |||
| Make it more simple or intuitive to do simple things | Charts and Charting in Excel | |||
| simple question, hopefully a simple answer! | Excel Programming | |||
Threaded Mode
