Snasui Excel Forum

Code: Select all

If ActiveSheet.Shapes("Check Box 4").OLEFormat.Object.Value = 1 Then
    '...Your code
End If

Code: Select all

Dim x As String
Dim y As String

Sub CommandButton3_Click()
    If Me.TextBox1.Value <> "" Then
        Dim irow As Long
        Dim ws As Worksheet
        Set ws = Worksheets("Database")
        Me.TextBox1.Text = Application.Trim(Me.TextBox1.Text)
        'Find first empty row in database
        irow = ws.Cells(Rows.Count, 2) _
            .End(xlUp).Offset(1, 0).Row
       
        'Copy The Data To The Database
        ws.Cells(irow, 1).Value = Me.TextBox1.Value
        ws.Cells(irow, 2).Value = Me.TextBox2.Value
        ws.Cells(irow, 3).Value = Me.TextBox3.Value
        ws.Cells(irow, 4).Value = Me.TextBox4.Value
        ws.Cells(irow, 7).Value = Me.TextBox5.Value
        ws.Cells(irow, 5).Value = x
        ws.Cells(irow, 6).Value = y
        Me.TextBox1 = ""
        Me.TextBox2 = ""
        Me.TextBox3 = ""
        Me.TextBox4 = ""
        Me.TextBox5 = ""
        Me.OptionButton1 = ""
        Me.OptionButton2 = ""

    Else
        MsgBox "ÂѧäÁèä´éãÊè¢éÍÁÙÅ", vbCritical
    End If
    End Sub
    Private Sub CommandButton2_Click()
Unload UserForm1
End Sub

Private Sub OptionButton1_Click()
    x = OptionButton1.Caption
End Sub
Private Sub OptionButton2_Click()
     x = OptionButton2.Caption
End Sub
Private Sub OptionButton3_Click()
     x = OptionButton3.Caption
End Sub

Private Sub OptionButton4_Click()
    y = OptionButton4.Caption
End Sub

Private Sub OptionButton5_Click()
    y = OptionButton5.Caption
End Sub

Private Sub OptionButton6_Click()
    y = OptionButton6.Caption
End Sub

Private Sub OptionButton7_Click()
    y = OptionButton7.Caption
End Sub

Code: Select all

ws.Cells(irow, 1).Value = Format(Me.TextBox1.Value, "DD/MM/YYYY")

Code: Select all

ws.Cells(irow, 1).Value = Application.Text(Me.TextBox1.Value, "DD/MM/YYYY")