Cần giúp Form add dữ liệu vào các sheet khi thỏa mãn điều kiện trong 1 ô (1 người xem)

[nguyet1982db]

Các bác giúp code add dữ liệu vào các sheet khi thỏa mãn điều kiện trong 1 ô
VD: tại sheet1 ô A1 có dữ liệu TOI hoặc TIM
Form1 gồm các texbox nhập liệu
Tại A1 là TOI thì Form1 sẽ nhập liệu vào các ô tương ứng tại sheet(TOI)
Tại A1 là TIM thì Form1 sẽ nhập liệu vào các ô tương ứng tại sheet(TIM)
V.v.
File em đính kèm, nhờ các bác viết dùm

 

[nguyet1982db]

Các bác giúp code add dữ liệu vào các sheet khi thỏa mãn điều kiện trong 1 ô
VD: tại sheet1 ô A1 có dữ liệu TOI hoặc TIM
Form1 gồm các texbox nhập liệu
Tại A1 là TOI thì Form1 sẽ nhập liệu vào các ô tương ứng tại sheet(TOI)
Tại A1 là TIM thì Form1 sẽ nhập liệu vào các ô tương ứng tại sheet(TIM)
V.v.
File em đính kèm, nhờ các bác viết dùm

Các bác ơi liệu trong VB có sử lý được vấn đề này không ạ? có gì các bác trả lời em một câu.

 

[nguyet1982db]

Không có Bác nào giúp em à

 

[be_09]

Không có Bác nào giúp em à

Các sheet cần nhập vào bạn cần có tiêu đề đầy đủ với điều kiện:

Sheet A nhập liệu vào từ cột nào đến cột nào.

Sheet B nhập liệu vào từ cột nào đến cột nào.

Do bạn nêu nhập liệu vào các sheet nhưng trong File chỉ có sheet TOI (vậy thì nhập sheet còn lại ở đâu), vấn đề còn lại là phải có tiêu đề cột đầy đủ, bạn nêu vấn đề mà bạn còn chưa hiểu thì ai có thể hiểu để giúp cho bạn.

 

[nguyet1982db]

Các sheet cần nhập vào bạn cần có tiêu đề đầy đủ với điều kiện:

Sheet A nhập liệu vào từ cột nào đến cột nào.

Sheet B nhập liệu vào từ cột nào đến cột nào.

Do bạn nêu nhập liệu vào các sheet nhưng trong File chỉ có sheet TOI (vậy thì nhập sheet còn lại ở đâu), vấn đề còn lại là phải có tiêu đề cột đầy đủ, bạn nêu vấn đề mà bạn còn chưa hiểu thì ai có thể hiểu để giúp cho bạn.

Báo cáo bác là sheet(TIM) đang ở chế độ Hidden, bác đã bấm vào buttom mở sheet chưa ạ, tại cột A1 bác chọn là TIM rồi bấm vào mở sheet là nó hiện ra sheet(TIM) và ngược lại là TOI thì sheet(TOI) bấm vào mở sheet nó cũng hiện ra luôn đó bác (Em để ẩn để cho gọn ý mà) . Trong file em đã ghi cụ thể rồi ạ.
Nhu cầu:
tại sheet1 ô A1 có dữ liệu TOI hoặc TIM
Form1 gồm: texbox họ và tên thì nhập vào cột A, texbox ngày tháng thì nhập vào cột B
Tại A1 là TOI thì Form1 sẽ nhập liệu vào các ô tương ứng tại sheet(TOI) sheet để bị ẩn nghe các bác
Tại A1 là TIM thì Form1 sẽ nhập liệu vào các ô tương ứng tại sheet(TIM) sheet để bị ẩn nghe các bác
V.v.
Cám ơn bác đã trả lời rất mong bác tiếp tục giúp đỡ./.

 

[nguyet1982db]

Có bác giúp em vụ này với

 

[be_09]

Có bác giúp em vụ này với

Không phải là không làm được, nhưng do bạn làm biếng quá, chỉ nhấn nút cám ơn mà không biết làm, thành ra tôi cũng hết cách.

Vậy chịu khó chờ, thành viên nào có công có sức và rảnh rổi thì vào giúp cho bạn.

Báo cáo bác là sheet(TIM) đang ở chế độ Hidden, bác đã bấm vào buttom mở sheet chưa ạ,

Tại tôi dỡ quá nên không biết bấm nút.

 

[nguyet1982db]

Không phải là không làm được, nhưng do bạn làm biếng quá, chỉ nhấn nút cám ơn mà không biết làm, thành ra tôi cũng hết cách.

Vậy chịu khó chờ, thành viên nào có công có sức và rảnh rổi thì vào giúp cho bạn.



Tại tôi dỡ quá nên không biết bấm nút.

keke hóa ra em chưa bấm nút thank mà chỉ nói cám ơn nên chưa đủ, nếu có 100 lần nút thank thì em cũng bấm nữa ý chứ, bác xem giúp em với nhé, em nhấn rồi đó.

 

[nguyet1982db]

Bác be09 ơi không giúp em à, em đang cần để phục vụ cho công việc quá, có gì không phải bác bỏ quá cho.

 

[Quang_Hải]

Các bác ơi liệu trong VB có sử lý được vấn đề này không ạ? có gì các bác trả lời em một câu.

Trong userform bạn vẽ thêm 1 command và cho code này vào để ghi dữ liệu ra sheet

Private Sub CommandButton1_Click()
With Sheets(Sheet1.[A1].Value)
   .[A65536].End(3)(2) = Me.TextBox1.Value
   .[B65536].End(3)(2) = Me.TextBox2.Value
End With
End Sub

............
Sao anh Be09 nỡ lòng nào ép Like vậy? Người ta không bấm Like thì kệ đi mà