Excel Forum

Code: Select all

Dim intRows As Integer
Dim dDate As Date



Private Sub Cblist_Change()

End Sub



Private Sub Cmb2_Click()
                    
                    CbList.Text = ""
                        TbDate.Text = ""
                        TbRc.Text = ""
                        TbStk.Text = ""
                        TbSO.Text = ""
                       TbSh.Text = ""
                       
End Sub
Private Sub Cmb3_Click()
                    Windows(1).Activate
                    ActiveWorkbook.SaveAs Filename:= _
                    "D:\BackpackGiant\BPGA_JOB1cp.xlsm", FileFormat:=xlOpenXMLWorkbookMacroEnabled
                    ActiveWorkbook.Close

End Sub

Private Sub Cmb1_Click()

                         'Check Blank TextBox.
                          If CbList.Value = blank Then MsgBox "Fill in missing data.?"
                         If TbDate.Text = blank Then MsgBox "Fill in missing data.?"
                         'If TbRc.Text = blank Then MsgBox "Fill in missing data.?"
                          'If TbStk.Text = blank Then MsgBox "Fill in missing data.?"
                          'If TbSO.Text = blank Then MsgBox "Fill in missing data.?"
                           'If TbSh.Text = blank Then MsgBox "Fill in missing data.?"
                intRows = LastRow + 1
               
                
                        Cells(intRows, 1).Value = TbDate.Text
                        Cells(intRows, 2).Value = CbList.Value
                        Cells(intRows, 3).Value = TbRc.Text
                        Cells(intRows, 4).Value = TbSO.Text
                        Cells(intRows, 5).Value = TbStk.Text
                       Cells(intRows, 6).Value = TbSh.Text
                        
                       
                         
                         
    
                        intRows = intRows + 1
                       TbDate.Text = ""
                        CbList.Value = ""
                        TbRc.Text = ""
                        TbSO.Text = ""
                        TbStk.Text = ""
                       TbSh.Text = ""
                        
                      
                        
End Sub





Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
     
            'Dim dDate As Date
            today = Date
            'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
            TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
            dDate = TbDate.Value
            TbDate.Value = Date
End Sub

Code: Select all

Private Sub UserForm_Initialize()
    Me.TbDate.Value = Application.Text(Date, "mm/dd/yyyy")
End Sub

Code: Select all

Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Dim dDate As Date
    today = Date
    'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
    dDate = TbDate.Value
    TbDate.Value = Date
End Sub

Code: Select all

Private Sub TbDate_BeforeUpdate(ByVal Cancel As MSForms.ReturnBoolean)
    'Dim dDate As Date
    today = Date
    'dDate = DateSerial(Year(Date), Month(Date), Day(Date))
    TbDate.Value = Format(TbDate.Value, "dd/mm/yyyy")
    dDate = TbDate.Value
    TbDate.Value = Date
End Sub