Private Sub Command1_Click()
Dim xl As Object
Dim wb As Object
Dim X As Integer
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open("C:\Users\Пользователь\Desktop\Журнал\baza.xlsx")
    X = 2
    With wb.Sheets(1)
        While .Cells(X, 1) <> ""
            X = X + 1
        Wend
        .Cells(X, 1) = Text1.Text
        .Cells(X, 2) = Text2.Text
        .Cells(X, 3) = Text3.Text
        .Cells(X, 4) = Text4.Text
        .Cells(X, 5) = Text5.Text
        .Cells(X, 6) = Text6.Text
        .Cells(X, 7) = Check1.Caption - [color=green]как сделать что бы в .Cells(X, 7) отображалось или Check1 или Check2 в зависимости где стоит галочка. ( имя Check1 - М , имя Check2 - Ж )[/color]
        [color=red].Cells(X, 7) = Check2.Caption[/color]
        .Cells(X, 8) = Combo1
        .Cells(X, 9) = Text7.Text
        .Cells(X, 10) = Text8.Text
        .Cells(X, 11) = Text9.Text
        .Cells(X, 12) = Check3.Caption [color=green]как сделать что бы в .Cells(X, 7) отображалось или Check1 или Check2 в зависимости где стоит галочка. ( имя Check3 - М , имя Check4 - Ж )[/color]
        [color=red].Cells(X, 12) = Check4.Caption[/color]
        .Cells(X, 13) = Combo2
        .Cells(X, 14) = Text10.Text
        .Cells(X, 15) = Text11.Text
        .Cells(X, 16) = Text12.Text
        .Cells(X, 17) = Text13.Text
        .Cells(X, 18) = Text14.Text
        
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Text9.Text = ""
        Text10.Text = ""
        Text11.Text = ""
        Text12.Text = ""
        Text13.Text = ""
        Text14.Text = ""
        Combo1.Text = ""
        Combo2.Text = ""
[color=green]как сделать что бы Check1 , Check2 , Check3 , Check4 - очищались автоматически[/color]
        Check1.Caption = ""
        Check2.Caption = ""
        Check3.Caption = ""
        Check4.Caption = ""
        
             
    End With
    wb.Save
    MsgBox "Данные внесены в строку № " & X - [color=green]сейчас показывает куда данные записались например: строчка 5, а нужно что бы например записалась в строчку 5 а показала 4[/color]
    xl.Quit
End Sub

Dim wb As Object
Dim X As Integer
    Set xl = CreateObject("Excel.Application")
    Set wb = xl.Workbooks.Open("C:\Users\Ïîëüçîâàòåëü\Desktop\Æóðíàë\baza.xlsx")
    X = 2
    With wb.Sheets(1)
        While .Cells(X, 1) <> ""
            X = X + 1
        Wend
        .Cells(X, 1) = Text1.Text
        .Cells(X, 2) = Text2.Text
        .Cells(X, 3) = Text3.Text
        .Cells(X, 4) = Text4.Text
        .Cells(X, 5) = Text5.Text
        .Cells(X, 6) = Text6.Text
        .Cells(X, 7) = IIf(CheckBox1.Value, "1", "2")
        .Cells(X, 8) = Combo1
        .Cells(X, 9) = Text7.Text
        .Cells(X, 10) = Text8.Text
        .Cells(X, 11) = Text9.Text
        .Cells(X, 12) = IIf(CheckBox2.Value, "1", "2")
        .Cells(X, 13) = Combo2
        .Cells(X, 14) = Text10.Text
        .Cells(X, 15) = Text11.Text
        .Cells(X, 16) = Text12.Text
        .Cells(X, 17) = Text13.Text
        .Cells(X, 18) = Text14.Text
        
        Text1.Text = ""
        Text2.Text = ""
        Text3.Text = ""
        Text4.Text = ""
        Text5.Text = ""
        Text6.Text = ""
        Text7.Text = ""
        Text8.Text = ""
        Text9.Text = ""
        Text10.Text = ""
        Text11.Text = ""
        Text12.Text = ""
        Text13.Text = ""
        Text14.Text = ""
        Combo1.Text = ""
        Combo2.Text = ""
        Check1.Caption = ""
        Check2.Caption = ""
        Check3.Caption = ""
        Check4.Caption = ""
        
             
    End With
    wb.Save
    MsgBox "&#196;&#224;&#237;&#237;&#251;&#229; &#226;&#237;&#229;&#241;&#229;&#237;&#251; &#226; &#241;&#242;&#240;&#238;&#234;&#243; &#185; " & X - 1
    xl.Quit
End Sub