Viết code cho form nhập liệu (1 người xem)

[DMQ]

Em có tạo một Form nhập liệu, mong các AC giúp viết code để nhập liệu cho 02 sheet"Muahanghoa" và "Banhanghoa" khi nhấn nút "GHI" của 2 page. Cũng mong các anh chị tạo code cho form hiên toàn màn hình 17" . Cám Ơn các AC!!!!

 

[DMQ]

Mong các AC giúp em với!!!!

Em đã có code cho Form nhập Liệu rồi, Nhưng đoạn code dưới đây là nhập từ Cell"A4" trở xuống:

Private Sub CommandButton1_Click()
Dim iRow As Long
Dim ws As Worksheet
Set ws = Worksheets("Muahanghoa")


iRow = ws.Cells(Rows.Count, 1) _
  .End(xlUp).Offset(1, 0).Row
If Trim(Me.TxtHH.Value) = "" Then
  Me.TxtHH.SetFocus
  MsgBox "Chua co ten hang hoa", vbInformation
  Exit Sub
End If
ws.Cells(iRow, 1).Value = Me.TxtHH.Value
ws.Cells(iRow, 2).Value = Me.TxtDVT.Value
ws.Cells(iRow, 3).Value = Me.TxtSL.Value
ws.Cells(iRow, 4).Value = Me.TxtNB.Value


Me.TxtHH.Value = ""
Me.TxtDVT.Value = ""
Me.TxtSL.Value = ""
Me.TxtNB.Value = ""
Me.TxtHH.SetFocus
End Sub

Mong các AC chỉ ra chổ để chỉnh cho code nhập từ Cell"D4" trở xuống dùm em. Em cám Ơn!!!!

Mong các AC chi dùm chỉnh code (bài #3) chỉ để nhập dữ liệu từ cột "D4" trở xuống dùm ah!!! Em đã thay nhiều số chổ này:

[COLOR=#000000]iRow = ws.Cells(Rows.Count, 1) _
[/COLOR][COLOR=#000000]  .End(xlUp).Offset(1, 0).Row[/COLOR]

mà không được, mong các AC giúp đỡ.

Em đưa file lên mong các AC giúp em như trong file đính kèm, em có chỉnh code thành :

[COLOR=#000000]iRow = ws.Cells(Rows.Count, 1) _
[/COLOR][COLOR=#000000]  .End(xlUp).[/COLOR][B][COLOR=#ff0000]Offset(4, 3)[/COLOR][/B][COLOR=#000000].Row [/COLOR][B][COLOR=#0000ff]<- em chỉnh chổ này[/COLOR][/B]

nhưng sao code lại ghi từ cột A
mong các AC giúp em.

 

[dtn0hut]

Bạn sửa đoạn này:
ws.Cells(iRow, 4).Value = Me.TxtHH.Value

 

[Quang_Hải]

Em đưa file lên mong các AC giúp em như trong file đính kèm, em có chỉnh code thành :

[COLOR=#000000]iRow = ws.Cells(Rows.Count, 1) _
[/COLOR][COLOR=#000000]  .End(xlUp).[/COLOR][B][COLOR=#ff0000]Offset(4, 3)[/COLOR][/B][COLOR=#000000].Row [/COLOR][B][COLOR=#0000ff]<- em chỉnh chổ này[/COLOR][/B]

nhưng sao code lại ghi từ cột A
mong các AC giúp em.

1. Sửa lại tên các textbox là TB1, TB2... TB8
2. Thử code này cho CommandButton1
3. Với CommandButton2 thì tự nghĩ ra các thông số cho hợp lý là chạy được

Private Sub CommandButton1_Click()
Dim Kq(1 To 4), i&
With Me
   If .TB1.Value = "" Then
      MsgBox "chua co ten hang hoa", vbInformation
      .TB1.SetFocus
      Exit Sub
   End If
   For i = 1 To 4
      Kq(i) = .Controls("TB" & i).Value
      .Controls("TB" & i).Value = ""
   Next
   Sheet1.[D65536].End(3).Offset(1).Resize(, 4) = Kq
   .TB1.SetFocus
End With
End Sub