Nhờ các bác xem hộ đoạn code

[bjboyn00b]

Xin chào mọi người.
Mình có đoạn code dùng trên userform, mình xem mãi chả thấy sai gì mà không thấy báo lỗi gì nhưng không có dữ liệu, mọi người xem giúp mình với nhé, đoạn code này theo mình dễ hiểu mà không thấy báo sai ở đâu để sửa

Private Sub themnhap_Click()
Dim dongtra As String
dongtra = Sheet3.Range("C10").End(xlDown).Row + 1
If tbTim = "" Then
MsgBox ("Chua dien mã Z")
Else
Sheet3.Range("C" & dongtra) = tbTim
Sheet3.Range("E" & dongtra) = SLnhapxuat
End If
End Sub

Đại khái là mình có 1 userform, 1 textbox là tbTim và 1 textbox là SLnhapxuat
Mình muốn copy giá trị vào sheet 3 .
Mọi người xem giúp với nhé.
Xin cảm ơn

 

[snow25]

Xin chào mọi người.
Mình có đoạn code dùng trên userform, mình xem mãi chả thấy sai gì mà không thấy báo lỗi gì nhưng không có dữ liệu, mọi người xem giúp mình với nhé, đoạn code này theo mình dễ hiểu mà không thấy báo sai ở đâu để sửa

Private Sub themnhap_Click()
Dim dongtra As String
dongtra = Sheet3.Range("C10").End(xlDown).Row + 1
If tbTim = "" Then
MsgBox ("Chua dien mã Z")
Else
Sheet3.Range("C" & dongtra) = tbTim
Sheet3.Range("E" & dongtra) = SLnhapxuat
End If
End Sub

Đại khái là mình có 1 userform, 1 textbox là tbTim và 1 textbox là SLnhapxuat
Mình muốn copy giá trị vào sheet 3 .
Mọi người xem giúp với nhé.
Xin cảm ơn

Xem rồi bạn à.Nhờ xem hộ xem xong rồi.

 

[huhumalu]

Xin chào mọi người.
Mình có đoạn code dùng trên userform, mình xem mãi chả thấy sai gì mà không thấy báo lỗi gì nhưng không có dữ liệu, mọi người xem giúp mình với nhé, đoạn code này theo mình dễ hiểu mà không thấy báo sai ở đâu để sửa

Private Sub themnhap_Click()
Dim dongtra As String
dongtra = Sheet3.Range("C10").End(xlDown).Row + 1
If tbTim = "" Then
MsgBox ("Chua dien mã Z")
Else
Sheet3.Range("C" & dongtra) = tbTim
Sheet3.Range("E" & dongtra) = SLnhapxuat
End If
End Sub

Đại khái là mình có 1 userform, 1 textbox là tbTim và 1 textbox là SLnhapxuat
Mình muốn copy giá trị vào sheet 3 .
Mọi người xem giúp với nhé.
Xin cảm ơn

Đã xem code của bạn.

Bài đã được tự động gộp: 14/11/22

Private Sub themnhap_Click()
Dim dongtra As String '--> dòng thì phải Interger chứ sao lại String ?
dongtra = Sheet3.Range("C10").End(xlDown).Row + 1
'--> trả kết quả là Interger mà ? Bạn nên kiểm tra kết quả dòng này, bạn dùng vầy có khi nó nhảy xuống dòng cuối cùng của Sheet nếu C10 là dòng cuối cùng có dữ liệu.
    If tbTim = "" Then '--> sao không dùng tbTim.Value
       MsgBox ("Chua dien mã Z")
    Else
       Sheet3.Range("C" & dongtra) = tbTim '--> sao không dùng tbTim.Value
       Sheet3.Range("E" & dongtra) = SLnhapxuat '--> sao không dùng SLnhapxuat.Value
    End If
End Sub

Dĩ nhiên là code trên không trả ra cái gì hết.
Bạn gửi 1 phần như vầy thì ngồi đoán lâu lắm, mình mà đoán được thì mình đi làm cái khác kiếm nhiều tiền rồi.

 

[befaint]

không có dữ liệu

Nhanh trí xem ở cột C, E tụt quần (Nhấn ctrl + End)

 

[VetMini]

Nhanh trí xem ở cột C, E tụt quần (Nhấn ctrl + End)

Hổng chắc vậy đâu. Nó ở đây nè:

...
Đại khái là mình có 1 userform, 1 textbox là tbTim và 1 textbox là SLnhapxuat
...

Có 1 userform và hai cái textbox như trên. Vậy thì hiệu ứng themnhap_Click là do cái gì click?

 

[SA_DQ]

Xin chào mọi người.
Mình có đoạn code dùng trên userform, mình xem mãi chả thấy sai gì mà không thấy báo lỗi gì nhưng không có dữ liệu,

Private Sub themnhap_Click()
1      Dim dongtra As String
    dongtra = Sheet3.Range("C10").End(xlDown).Row + 1
 3   If tbTim = "" Then
          MsgBox ("Chua dien mã Z")
 5  Else
        Sheet3.Range("C" & dongtra) = tbTim
7        Sheet3.Range("E" & dongtra) = SLnhapxuat
   End If
End Sub

(1) Dòng lệnh mang số 1 là bạn khai báo 1 tham biến sẽ chứa kiểu dữ liệu chuỗi
Nhưng lại gán chỉ số dòng, không thuộc chuỗi & như vậy bạn ép người quá đáng!\

(2) Bạn đã định nhập gì vô tbTim & thêm nữa, nhập số liệu hay dữ liệu vô SLnhapxuat

(3) 1 vài chú ý nhỏ nhỏ tạo thói quen không tồi như
Dim DongTra As . . . .
Sheet3.Range("C" & DongTra) = tbTim.Text
Sheet3.Range("E" & DongTra) = SLNhapXuat.Value

Giờ thì xin mời bạn xem lại những thiển ý của mình, chí ít 1 lần!

 

[bjboyn00b]

Hổng chắc vậy đâu. Nó ở đây nè:


Có 1 userform và hai cái textbox như trên. Vậy thì hiệu ứng themnhap_Click là do cái gì click?

À, mình thêm 1 button, khi click thì sẽ gán giá trị ở tbTim và SLnhapxuat vào 2 ô chỉ định bạn.

(1) Dòng lệnh mang số 1 là bạn khai báo 1 tham biến sẽ chứa kiểu dữ liệu chuỗi
Nhưng lại gán chỉ số dòng, không thuộc chuỗi & như vậy bạn ép người quá đáng!\

(2) Bạn đã định nhập gì vô tbTim & thêm nữa, nhập số liệu hay dữ liệu vô SLnhapxuat

(3) 1 vài chú ý nhỏ nhỏ tạo thói quen không tồi như
Dim DongTra As . . . .
Sheet3.Range("C" & DongTra) = tbTim.Text
Sheet3.Range("E" & DongTra) = SLNhapXuat.Value

Giờ thì xin mời bạn xem lại những thiển ý của mình, chí ít 1 lần!

Cảm ơn bạn, mình trả lời như sau
1. Mình đã sửa lại, tự dưng quên mất, mình mới đang tự tìm tòi nên hay nhầm lẫn
2. tbTim: mình nhập dữ liệu, SLnhapxuat: là số, themnhap là button để dán dán giá trị tbTim và SLnhapxuat vào Sheet3
Mình đã sửa rồi rồi, dongtra mình đặt sai, vì 2 ô merge nên phải +2, mình đặt +1 nên không trả được kết quả.
Cảm ơn mọi người nhiều nhé