Snasui Excel Forum

Code: Select all

Private Sub CommandButton1_Click()

    If Me.TextBox13.Value = "" Or Me.TextBox14.Value = "" Then
            MsgBox "ท่านกรอกข้อมูลไม่ครบ", vbOKOnly + vbInformation, "ไม่สามารถส่งต่อข้อมูลได้"
        Exit Sub
    End If

    'ถ้าข้อความใน txtIDStart11 ตรงกับข้อความใน คอลัม A ให้ทำก่อน Else ถ้าไม่เหมือนกันให้ทำหลัง Else
    If Application.CountIf(Sheets("calibrateREQSIT").Range("A:A"), Me.txtIDStart11) > 0 Then
        LastRow = Sheets("calibrateREQSIT").Range("A" & Rows.Count).End(xlUp).Row
            For i = 6 To LastRow
                If Sheets("calibrateREQSIT").Cells(i, "A").Value = (Me.txtIDStart11.Text) Then
'                    Sheets("calibrateREQSIT").Cells(i, 8).value = Me.TextBox13.value
                    Sheets("calibrateREQSIT").Cells(i, 8).Value = Format(Me.TextBox13.Value, "DD/MM/YYYY")
'                    Sheets("calibrateREQSIT").Cells(i, 8).value = Me.TextBox13.DateValue(Me.TextBox13.Text)
'                    Sheets("calibrateREQSIT").Cells(i, 8).value = DateValue(Me.TextBox13.Text)
                    Sheets("calibrateREQSIT").Cells(i, 9).Value = Me.TextBox14.Value
                    Exit For
                End If
            Next
                    Else
                        Dim irow As Long
                        Dim ws As Worksheet
                        Set ws = Worksheets("calibrateREQSIT")
                        'find first empty row in database
                        irow = ws.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0).Row
                        'copy the data to the database
                        ws.Cells(irow, 1).Value = Me.TextBox11.Value
                        'ws.Cells(irow, 2).value = Me.TextBox12.value
                        ws.Cells(irow, 8).Value = Me.TextBox13.Value
                        ws.Cells(irow, 9).Value = Me.TextBox14.Value
                        'ws.Cells(irow, 5).value = Me.TextBox15.value

    End If


   Unload Me
'    Call ProtectAllsheets
'    Range("A1").Select
    
Sheets("calibrateREQSIT").Select
End Sub

Code: Select all

Sheets("calibrateREQSIT").Cells(i, 8).Value = Format(Me.TextBox13.Value, "mm/dd/yyyy")