Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()
    If Me.TextBox1.Value <> "" Then
        Dim ws As Worksheet
        Set ws = Worksheets("From")
        
        Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
        Me.TextBox2.Text = Application.Trim(Me.TextBox2.Text)
        
        Range("Stlo").Value = Me.TextBox1.Value
        Range("Enlo").Value = Me.TextBox2.Value
        Else
        
    End If

        
End Sub

Code: Select all

Me.TextBox1.Text = Application.Trim(Ucase(Me.TextBox1.Text))
Me.TextBox2.Text = Application.Trim(Ucase(Me.TextBox2.Text))