Dữ liệu nhập từ Form không ghi vào dong cuối của Table (1 người xem)

[SoGoKu7]

Chào Anh/Chị
Nhờ Anh/Chị hướng dẫn cách khắc phục [Dữ liệu nhập từ Form không ghi vào dòng cuối của Table] theo hình minh họa phía dưới

Xin lỗi Anh/Chị là vì lý do cá nhân nên không thể gửi File lên diễn đàn được. Xin gửi đoạn Code Input dữ liệu từ Form vào Table như sau:
Private Sub CommandButton1_Click()
Dim Lr As Long
Lr = Sheet2.Range("b" & Rows.Count).End(xlUp).Row
Sheet2.Range("b" & Lr + 1).Value = TextBox1.Text
Sheet2.Range("c" & Lr + 1).Value = ComboBox1.Text
Sheet2.Range("e" & Lr + 1).Value = TextBox2.Text
Sheet2.Range("f" & Lr + 1).Value = TextBox3.Text
Sheet2.Range("g" & Lr + 1).Value = TextBox4.Text
Sheet2.Range("h" & Lr + 1).Value = ComboBox2.Text
Sheet2.Range("i" & Lr + 1).Value = ComboBox3.Text
TextBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox1.Text = ""
End Sub
-----------------------------
Cảm ơn Anh/Chị đã ghé qua và mong nhận được sự giúp đỡ từ phia Anh/Chị
Trân trọng!

 

[Hoàng Tuấn 868]

vì lý do cá nhân nên không thể gửi File lên diễn đàn được

Đưa nội dung giả lập vào cũng được, hoặc không dữ liệu cũng được mà, miễn là có file xem cụ thể thế nào.

 

[Phuocam]

Xin lỗi Anh/Chị là vì lý do cá nhân nên không thể gửi File lên diễn đàn được.

Không có file nên không test được.

Private Sub CommandButton1_Click()
Dim Lr As Long
With Sheet2
    Lr = .Range("b" & Rows.Count).End(xlUp).Row
    If .Range("B" & Lr).Value <> "" Then Lr = Lr + 1
    .Range("b" & Lr).Value = TextBox1.Text
    .Range("c" & Lr).Value = ComboBox1.Text
    .Range("e" & Lr).Value = TextBox2.Text
    .Range("f" & Lr).Value = TextBox3.Text
    .Range("g" & Lr).Value = TextBox4.Text
    .Range("h" & Lr).Value = ComboBox2.Text
    .Range("i" & Lr).Value = ComboBox3.Text
End With
TextBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox1.Text = ""
End Sub

 

[SoGoKu7]

Không có file nên không test được.

Private Sub CommandButton1_Click()
Dim Lr As Long
With Sheet2
    Lr = .Range("b" & Rows.Count).End(xlUp).Row
    If .Range("B" & Lr).Value <> "" Then Lr = Lr + 1
    .Range("b" & Lr).Value = TextBox1.Text
    .Range("c" & Lr).Value = ComboBox1.Text
    .Range("e" & Lr).Value = TextBox2.Text
    .Range("f" & Lr).Value = TextBox3.Text
    .Range("g" & Lr).Value = TextBox4.Text
    .Range("h" & Lr).Value = ComboBox2.Text
    .Range("i" & Lr).Value = ComboBox3.Text
End With
TextBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox1.Text = ""
End Sub

Em cảm ơn Bác, kết quả như mong muốn rồi ạ!
Trân trọng!

 

[quanluu]

Nếu bạn dùng code xác định dòng cuối trên thì với table nó luôn xác định dòng cuối là dòng cuối của table mà mục đích của bạn là điền dữ liệu vào dòng cuối không có dữ liệu nên bạn phải thêm 1 bước nữa là kiểm tra dòng cuối đó có dữ liệu hay không? nếu có thì điền vào dữ liệu sau nó, không thì thêm 1 vòng lặp đi từ dòng đó lên trên, tìm dòng nào có dữ liệu rồi thì điền dữ liệu từ form vào dòng sau nó.

 

[qtm1987]

Chào Anh/Chị
Nhờ Anh/Chị hướng dẫn cách khắc phục [Dữ liệu nhập từ Form không ghi vào dòng cuối của Table] theo hình minh họa phía dưới
View attachment 270965
Xin lỗi Anh/Chị là vì lý do cá nhân nên không thể gửi File lên diễn đàn được. Xin gửi đoạn Code Input dữ liệu từ Form vào Table như sau:
Private Sub CommandButton1_Click()
Dim Lr As Long
Lr = Sheet2.Range("b" & Rows.Count).End(xlUp).Row
Sheet2.Range("b" & Lr + 1).Value = TextBox1.Text
Sheet2.Range("c" & Lr + 1).Value = ComboBox1.Text
Sheet2.Range("e" & Lr + 1).Value = TextBox2.Text
Sheet2.Range("f" & Lr + 1).Value = TextBox3.Text
Sheet2.Range("g" & Lr + 1).Value = TextBox4.Text
Sheet2.Range("h" & Lr + 1).Value = ComboBox2.Text
Sheet2.Range("i" & Lr + 1).Value = ComboBox3.Text
TextBox1.Text = ""
ComboBox2.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
ComboBox2.Text = ""
ComboBox3.Text = ""
ComboBox1.Text = ""
End Sub
-----------------------------
Cảm ơn Anh/Chị đã ghé qua và mong nhận được sự giúp đỡ từ phia Anh/Chị
Trân trọng!

sheet có Table thì xác định dòng cuối bạn thử sửa lại thành End(xlDown) tính từ trên xuống dưới.

 

[BuiQuangThuan]

sheet có Table thì xác định dòng cuối bạn thử sửa lại thành End(xlDown) tính từ trên xuống dưới.

Cái này cũng hơi nguy hiểm. do lỡ có hàng trống thì dở đấy. Nếu chắc chắn bảng bao giờ cũng nhiều hơn dữ liêu thì làm xlup 2 lần nhỉ?

 

[befaint]

Quả tam ngữ này hay đới.

 

[SoGoKu7]

Quả tam ngữ này hay đới.

View attachment 270971

Vâng Bác, biết là mọi người sẽ khó chịu khi nhìn nhưng trong công ty em Nhật-Anh-Việt làm ráo hết mục đích là ai nhìn vào cũng biết Bác à!

 

[Hoàng Tuấn 868]

Cái này cũng hơi nguy hiểm. do lỡ có hàng trống thì dở đấy. Nếu chắc chắn bảng bao giờ cũng nhiều hơn dữ liêu thì làm xlup 2 lần nhỉ?

Vậy lấy từ dưới lên trên sẽ ổn.