XIN các bạn giúp đỡ form nhập sau

[hoangdatst]

Mình vừa làm form sau theo yêu cầu của công ty mình, mà mình không biết gan gtrị ntn để khi mình nhập vào form kick nut thêm thì nó nhập vào sheet nhập mới theo nội dung nũa. các bạn có thể giúp mình được không.

View more random threads:

• VBA Copy file và đổi tên file từ thư mục này qua thư mục khác
• cong thuc nhap du lieu tu sheet nay sang sheet khac
• Chương trình theo dõi Văn bản, giấy mời, hồ sơ thẩm định Bồi thường.
• Pha Password excell file
• (Đưa bài dùm 1 bạn): Làm sao khi mở file (hay trang tính nào đó của file) là hàm dưới đây chạy ngay
• Xin giúp code nhập, chỉnh sửa, liên kết dữ liệu từ excel với form
• Các bác hướng dẫn cho e làm sao làm được file như thế này ak.
• Lớp học VBA căn bản tại Hà Nội
• tác giả phần mềm kế toán
• Tạo Form Nhập Liệu Trong Excel

[camtuseotop1]

Ðề: XIN các bạn giúp đỡ form nhập sau

Bạn sửa nội dung macro lại như vầy:

[COLOR=#000000]
[/COLOR][COLOR=#007700]Private [/COLOR][COLOR=#0000BB]Sub CMDTHEM_Click[/COLOR][COLOR=#007700]()[/COLOR][COLOR=#0000BB]Dim IRow [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Long[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]wS [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]ObjectSet wS [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Worksheets[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"NHAPMOI"[/COLOR][COLOR=#007700])[/COLOR][COLOR=#0000BB]IRow [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]wS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]Rows[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Count[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]2[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]End[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]xlUp[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Offset[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]1[/COLOR][COLOR=#007700], [/COLOR][COLOR=#0000BB]0[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]RowwS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]8[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"j"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]CBBNGAY[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value  [/COLOR][COLOR=#DD0000]'<=|'[/COLOR][COLOR=#0000BB]wS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Cells[/COLOR][COLOR=#007700]([/COLOR][COLOR=#0000BB]9[/COLOR][COLOR=#007700], [/COLOR][COLOR=#DD0000]"j"[/COLOR][COLOR=#007700]).[/COLOR][COLOR=#0000BB]Value [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]Me[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]TXTSO[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Value  [/COLOR][COLOR=#DD0000]'<=|'[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

:lienhoantat:

[tungka4]

Ðề: XIN các bạn giúp đỡ form nhập sau

THANKS BẠN nhiều nhé, đây đúng là câu lệnh mình đang tìm.

[thanh]

Ðề: XIN các bạn giúp đỡ form nhập sau

bạn ui! có thể giải nghĩa đoạn code trên cho mình dc ko?
IRow = wS.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
wS.Cells(8, "j").Value = Me.CBBNGAY.Value '<=|'
wS.Cells(9, "j").Value = Me.TXTSO.Value '<=|'

đoạn này nghĩa là sao vậy hả bạn?

---------- Post added at 12:43 ---------- Previous post was at 12:24 ----------

bạn ui! có thể giải nghĩa đoạn code trên cho mình dc ko?
IRow = wS.Cells(Rows.Count, 2).End(xlUp).Offset(1, 0).Row
wS.Cells(8, "j").Value = Me.CBBNGAY.Value '<=|'
wS.Cells(9, "j").Value = Me.TXTSO.Value '<=|'

đoạn này nghĩa là sao vậy hả bạn?

[haicauhoan]

Ðề: XIN các bạn giúp đỡ form nhập sau

mọi người ơi! hix. giúp em với !!1

[vandung91]

Ðề: XIN các bạn giúp đỡ form nhập sau

mọi người ơi! hix. giúp em với !!1

Đọc tin nhắn đi nhimxu_9x

[mobistar206]

Ðề: XIN các bạn giúp đỡ form nhập sau

hix. e có thấy cái tin nhắn nào đâu chứ? hix.

---------- Post added at 12:38 ---------- Previous post was at 12:03 ----------

mong mọi người giải đáp câu hỏi của em với a!
thank !!!

---------- Post added at 12:39 ---------- Previous post was at 12:38 ----------

mong mọi người giải đáp câu hỏi của em với a!
thank !!!

[duongland88]

Ðề: XIN các bạn giúp đỡ form nhập sau

hix. e có thấy cái tin nhắn nào đâu chứ? hix.

---------- Post added at 12:38 ---------- Previous post was at 12:03 ----------

mong mọi người giải đáp câu hỏi của em với a!
thank !!!

---------- Post added at 12:39 ---------- Previous post was at 12:38 ----------

mong mọi người giải đáp câu hỏi của em với a!
thank !!!

Xem lại hộp tin nhắn đi, em vào đâu gửi thì vào đó tìm.
Để đọc tin nhắn bằng cách click vào nhimxu_9x (màu cam) góc trái trên cùng bài viết của em và click vào Send Private Message thì thấy được tin nhắn.
Đọc nội dung trong sheet1.