nhờ anh chị giúp đỡ về code sửa dữ liệu trên Form (1 người xem)

[lexuantruong]

- nhờ anh chị có thể viết giùm code cho nút " Sửa dữ liệu" trên Form được k ạ.e k biết gì về VBA nên chỉ "lượm lặt" được từ những thành viên khác trong diễn đàn 1 ít vào dữ liệu này thôi.
- hiện tại em không hiểu tại sao listbox của em không tự cập nhập lên nữa, anh chị sửa lại giúp em với
- còn 1 vấn đề này nữa, sau khi bấm nút " Nhập dữ liệu" tại listbox nó không cập nhập lên mà phải thoát form rồi mở lên lại thì mới thấy cập nhập. bây giờ em muốn sau khi bấm nút " nhập dữ liệu" xong thì listbox tự động cập nhập vào và luôn thấy ở hàng cuối cùng của listbox. không biết có được k ạ.
cám ơn anh chị nhiều...

 

[lexuantruong]

 k có ai giúp em hết vậy

 

[chucuoi92]

 k có ai giúp em hết vậy

Bỏ sô 2 màu đỏ đi và thêm dòng màu xanh vào:
-------------------------------------------
Private Sub UserForm2_Initialize()
Application.WindowState = xlMaximized
Me.Top = 0: Me.Left = 0
Me.Width = Application.Width
Me.Height = Application.Height
MyControls = Array(TextBox1, Val(TextBox11), TextBox2, ComboBox4, TextBox4, Val(TextBox12), TextBox5, Val(TextBox6), Val(ComboBox5), Val(TextBox13), ComboBox3, ComboBox2, TextBox7, TextBox8, TextBox9, TextBox10)
Dim iRow As Long
With Sheets("thongke")
iRow = .Range("A65536").End(xlUp).Row
.Range("A6:Q" & iRow).Name = "ListBoxNhapLieu"
ListBox1.RowSource = "ListBoxNhapLieu"
ListBox1.ListIndex = ListBox1.ListCount - 1
Me.ListBox1.TopIndex = ListBox1.ListCount - 8
End With
End Sub
-----------------------------------------------------
Private Sub CommandButton6_Click()
...
...
...
Thêm đoạn này vào cuối để cập nhật lại sô liệu:
With Sheets("thongke")
iRow = .Range("A65536").End(xlUp).Row
.Range("A6:Q" & iRow).Name = "ListBoxNhapLieu"
ListBox1.RowSource = "ListBoxNhapLieu"
ListBox1.ListIndex = ListBox1.ListCount - 1
Me.ListBox1.TopIndex = ListBox1.ListCount - 8
End With

 

[lexuantruong]

Bỏ sô 2 màu đỏ đi và thêm dòng màu xanh vào:
-------------------------------------------
Private Sub UserForm2_Initialize()
Application.WindowState = xlMaximized
Me.Top = 0: Me.Left = 0
Me.Width = Application.Width
Me.Height = Application.Height
MyControls = Array(TextBox1, Val(TextBox11), TextBox2, ComboBox4, TextBox4, Val(TextBox12), TextBox5, Val(TextBox6), Val(ComboBox5), Val(TextBox13), ComboBox3, ComboBox2, TextBox7, TextBox8, TextBox9, TextBox10)
Dim iRow As Long
With Sheets("thongke")
iRow = .Range("A65536").End(xlUp).Row
.Range("A6:Q" & iRow).Name = "ListBoxNhapLieu"
ListBox1.RowSource = "ListBoxNhapLieu"
ListBox1.ListIndex = ListBox1.ListCount - 1
Me.ListBox1.TopIndex = ListBox1.ListCount - 8
End With
End Sub
-----------------------------------------------------
Private Sub CommandButton6_Click()
...
...
...
Thêm đoạn này vào cuối để cập nhật lại sô liệu:
With Sheets("thongke")
iRow = .Range("A65536").End(xlUp).Row
.Range("A6:Q" & iRow).Name = "ListBoxNhapLieu"
ListBox1.RowSource = "ListBoxNhapLieu"
ListBox1.ListIndex = ListBox1.ListCount - 1
Me.ListBox1.TopIndex = ListBox1.ListCount - 8
End With

em cám ơn anh nhiều nhiều nha

 

[chucuoi92]

em cám ơn anh nhiều nhiều nha

À mà không cần phải thêm dòng mau xanh đâu, chỉ cần xoá số 2 màu đỏ là ok

 

[Xuân Linh]

Chào em anh lược bỏ bớt các chữ đi cho em hiểu. Em muon them gi thi vietlen dien dan dan moi nguoi giup.
em Ctrl+F3 de xem NAME ....