giúp đỡ về " Nhập và Lưu dữ liệu trên Form" (1 người xem)

[lexuantruong]

e đang yếu về VBA nên nhờ anh chị giúp đỡ 1 số vấn đề:
1. sau khi bấm " Nhập dữ liệu" thì dữ liệu sẽ được nhập vào Sheet " Nhập DL" ngay tại vị trí Comment.
2. sau khi bấm " Lưu dữ liệu" thì dữ liệu được nhập vào Sheet " Lưu DL"
mong được sự giúp đỡ của anh chi

 

[be_09]

e đang yếu về VBA nên nhờ anh chị giúp đỡ 1 số vấn đề:
1. sau khi bấm " Nhập dữ liệu" thì dữ liệu sẽ được nhập vào Sheet " Nhập DL" ngay tại vị trí Comment.
2. sau khi bấm " Lưu dữ liệu" thì dữ liệu được nhập vào Sheet " Lưu DL"
mong được sự giúp đỡ của anh chi

Nhập liệu có 4 cột thì gõ nhập tay cho rồi, sử dụng UserForm làm chi cho nó phức tạp ra.

Mục đích nhập liệu vào Sheet1 để làm gì? Thật ra muốn dùng nó để in như 1 phiếu thì gõ nhập dữ liệu vào nó rồi gán Macro cho 1 nút để khi in xong thì nhấn nút để nhập liệu vào Sheet2.

 

[lexuantruong]

Nhập liệu có 4 cột thì gõ nhập tay cho rồi, sử dụng UserForm làm chi cho nó phức tạp ra.

Mục đích nhập liệu vào Sheet1 để làm gì? Thật ra muốn dùng nó để in như 1 phiếu thì gõ nhập dữ liệu vào nó rồi gán Macro cho 1 nút để khi in xong thì nhấn nút để nhập liệu vào Sheet2.

e xóa bớt dữ liệu để file nhẹ đi, chứ dữ liệu nhiều nhập lâu nên mới đưa file mẫu lên nhờ anh chị giúp thôi, dữ liệu không chỉ có 4 cột đâu.
Mục đích nhập liệu vào Sheet1 là để xem lại và để in, vì trong bản in còn có bản vẽ nữa.
Anh chị có thể giúp em được k ạ

 

[doveandrose]

e xóa bớt dữ liệu để file nhẹ đi, chứ dữ liệu nhiều nhập lâu nên mới đưa file mẫu lên nhờ anh chị giúp thôi, dữ liệu không chỉ có 4 cột đâu.
Mục đích nhập liệu vào Sheet1 là để xem lại và để in, vì trong bản in còn có bản vẽ nữa.
Anh chị có thể giúp em được k ạ

sau #1 thì các thành viên còn do dự có nên giúp hay không .
nhưng sau câu này thì các thành viên có thể yên tâm chào bạn ra đi không hẹn ngày trở lại
vì họ rất sợ cái tiết mục viết code cho bạn xong thì được nghe bài ca : "thật ra file thật của mình thế này .... cần sửa lại chỗ này ...."

 

[giaiphap]

e đang yếu về VBA nên nhờ anh chị giúp đỡ 1 số vấn đề:
1. sau khi bấm " Nhập dữ liệu" thì dữ liệu sẽ được nhập vào Sheet " Nhập DL" ngay tại vị trí Comment.
2. sau khi bấm " Lưu dữ liệu" thì dữ liệu được nhập vào Sheet " Lưu DL"
mong được sự giúp đỡ của anh chi

Giữa lời nói và file thực tế khác nhau hoàn toàn?

 

[Kiều Mạnh]

Ơ hay ... Sao các Huynh đệ đang nghị sự Bàn Tròn mà chạy sớm vậy ....

 

[lexuantruong]

sau #1 thì các thành viên còn do dự có nên giúp hay không .
nhưng sau câu này thì các thành viên có thể yên tâm chào bạn ra đi không hẹn ngày trở lại
vì họ rất sợ cái tiết mục viết code cho bạn xong thì được nghe bài ca : "thật ra file thật của mình thế này .... cần sửa lại chỗ này ...."

Haiiizzzz các anh chi đừng hiểu lầm em, file gốc nặng gần tới 5mb thì làm sao mà em up lên được, em chỉ đưa file mẫu lên nhờ anh chị giúp, sau đó em về chỉnh sửa lại thôi mà

 

[lexuantruong]

Giữa lời nói và file thực tế khác nhau hoàn toàn?

sorry em chưa đổi tên Sheet

 

[ec ec]

sorry em chưa đổi tên Sheet

Private Sub CommandButton1_Click()
On Error Resume Next
For Each c In Controls
    If c.Name Like "Label*" Then
        Sheets("Nhap DL").Cells.Find(c.Caption, , , xlPart).Offset(, 1) = Controls(Replace(c.Name, "Label", "TextBox"))
    End If
Next
End Sub


Private Sub CommandButton2_Click()
On Error Resume Next
Set s = Sheets("Luu DL").[B2:E2]
Do While Not s.Offset(i).Find("*") Is Nothing
    i = i + 1
Loop
For Each c In Controls
    If c.Name Like "Label*" Then
        s.Offset(i)(1 + s.Find(c.Caption, , , xlPart).Column - s.Column) = Controls(Replace(c.Name, "Label", "TextBox"))
    End If
Next
End Sub