Excel Forum

Code: Select all

Private Sub CommandButton13_Click()


Sheets("cal").Select
Range("B3").Select
Do While True
        If ActiveCell.Value = ListBox1.Text Then
            ActiveCell.Offset(0, 2).Value = TextBox02.Text
            ActiveCell.Offset(0, 3).Value = TextBox03.Text
            ActiveCell.Offset(0, 4).Value = TextBox04.Text
            ActiveCell.Offset(0, 5).Value = TextBox05.Text
            ActiveCell.Offset(0, 6).Value = TextBox06.Text
            ActiveCell.Offset(0, 7).Value = ComboBox07.Text
            ActiveCell.Offset(0, 8).Value = TextBox08.Text
            ActiveCell.Offset(0, 9).Value = ComboBox09.Text
            ActiveCell.Offset(0, 10).Value = TextBox10.Text
            ActiveCell.Offset(0, 11).Value = TextBox21.Text
            ActiveCell.Offset(0, 12).Value = TextBox22.Text
            ActiveCell.Offset(0, 13).Value = TextBox23.Text
            ActiveCell.Offset(0, 14).Value = TextBox24.Text
            ActiveCell.Offset(0, 15).Value = TextBox25.Text
            ActiveCell.Offset(0, 16).Value = TextBox26.Text
            ActiveCell.Offset(0, 17).Value = TextBox27.Text
            ActiveCell.Offset(0, 18).Value = TextBox28.Text
            ActiveCell.Offset(0, 19).Value = TextBox31.Text
            ActiveCell.Offset(0, 20).Value = TextBox32.Text
            ActiveCell.Offset(0, 21).Value = TextBox33.Text
            ActiveCell.Offset(0, 22).Value = TextBox34.Text
            CommandButton12.Enabled = True
            
            
            Exit Sub
        End If
        ActiveCell.Offset(1, 0).Select
Loop

Call Macro_OkEdit1
Unload Me
Call Macro_OkEdit2

End Sub