Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
If TextBox1.Text <> "" Then
Label1.Caption = "Hello"
Label2.Caption = "World"
Label3.Caption = "Asia"
End If
End Sub

Code: Select all

Private Sub CommandButton1_Click()
Windows("SpaceFormat.xlsm").Activate
If TextBox1.Text <> "" Then
Label1.Caption = "Hello"
ActiveSheet.Shapes.Range(Array("Label2")).Select
ActiveSheet.Shapes("Label2").IncrementTop 8
Label2.Caption = "World"
ActiveSheet.Shapes.Range(Array("Label3")).Select
ActiveSheet.Shapes("Label3").IncrementTop 16
Label3.Caption = "Asia"
End If
End Sub

Code: Select all

Private Sub CommandButton1_Click()
Windows("SpaceFormat.xlsm").Activate
If TextBox1.Text <> "" Then
Label1.Caption = "Hello"
ActiveSheet.Shapes.Range(Array("Label2")).Select
ActiveSheet.Shapes("Label2").IncrementTop 8
Label2.Caption = "World"
ActiveSheet.Shapes.Range(Array("Label3")).Select
ActiveSheet.Shapes("Label3").IncrementTop 16
Label3.Caption = "Asia"
End If
End Sub
[\code]

Code: Select all

If TextBox1.Text <> "" Then
    Label1.Caption = "Hello"
    'ActiveSheet.Shapes.Range(Array("Label2")).Select
    'ActiveSheet.Shapes("Label2").IncrementTop 8
    Label2.Caption = "World"
    'ActiveSheet.Shapes.Range(Array("Label3")).Select
    'ActiveSheet.Shapes("Label3").IncrementTop 16
    Label3.Caption = "Asia"
End If