Nhờ các bạn xem sửa dùm code nhập liệu

[thanhtam348]

Tôi có một Form nhập liệu nhỏ, không biết code sai hay thiếu chổ nào mà suốt đêm tôi không làm nó được khác hơn.
Việc thứ nhất là: Format(Now, "mm/dd/yy") thì mới cho ra ngày tháng đúng, thay vì phải "dd/mm/yy", việc thứ hai là khi update qua sheet2, có khi nó không xếp trình tự từng lớp theo hàng (Sheet2.[F65536].End(xlUp).Row + 1) mà lại bỏ trống hàng trên.
Xin nhờ các bạn xem sửa dùm. Cám ơn nhiều.

Sub nhap()
Me.ComboBox1.RowSource = "DSKH"
End Sub

Private Sub ComboBox1_Change()
  On Error Resume Next
  With ComboBox1
    TextBox1 = .Column(1): TextBox2 = .Column(2)
  End With
End Sub

Private Sub CommandButton1_Click()
  Dim a As Long
  a = Sheet2.[F65536].End(xlUp).Row + 1
  With Sheet2.Cells(a, 6)
  .Value = ComboBox1
    .Offset(, 1).Value = TextBox1
    .Offset(, 2).Value = TextBox2
    .Offset(, 3).Value = TextBox3.
    .Offset(, -1).Value = Format(Now, "mm/dd/yy")
    End With
  ComboBox1 = "": TextBox1 = "": TextBox2 = "": TextBox3 = ""
  Unload Me
End Sub

 

[NH_DK]

Tôi có một Form nhập liệu nhỏ, không biết code sai hay thiếu chổ nào mà suốt đêm tôi không làm nó được khác hơn.
Việc thứ nhất là: Format(Now, "mm/dd/yy") thì mới cho ra ngày tháng đúng, thay vì phải "dd/mm/yy", việc thứ hai là khi update qua sheet2, có khi nó không xếp trình tự từng lớp theo hàng (Sheet2.[F65536].End(xlUp).Row + 1) mà lại bỏ trống hàng trên.
Xin nhờ các bạn xem sửa dùm. Cám ơn nhiều.

Sub nhap()
Me.ComboBox1.RowSource = "DSKH"
End Sub

Private Sub ComboBox1_Change()
On Error Resume Next
With ComboBox1
TextBox1 = .Column(1): TextBox2 = .Column(2)
End With
End Sub

Private Sub CommandButton1_Click()
Dim a As Long
a = Sheet2.[F65536].End(xlUp).Row + 1
With Sheet2.Cells(a, 6)
.Value = ComboBox1
.Offset(, 1).Value = TextBox1
.Offset(, 2).Value = TextBox2
.Offset(, 3).Value = TextBox3.
.Offset(, -1).Value = Format(Now, "mm/dd/yy")
End With
ComboBox1 = "": TextBox1 = "": TextBox2 = "": TextBox3 = ""
Unload Me
End Sub

Bạn đưa hẳn file đó lên để mọi người sửa cho dễ dàng nhé!

 

[thanhtam348]

File đó chằn chịch nhiều sheet và nặng quá bạn ơi! Nếu ngắt nó ra thì phải làm một số ví dụ liên kết hơi lâu, thông cảm xem dùm mình, cuối cùng không được thì sẽ theo ý bạn. Cám ơn.