[ hỏi ] Nhờ anh chị xem giúp đoạn code này. (1 người xem)

[nhoklipice]

Mình có đoạn code như sau :

Private Sub CmdSave_Click()
Dim r As Long
r = ListBox1.ListCount

With Worksheets("PhieuDatHang")
.Range("A12:F26").ClearContents
.[A6] = Format(TextBox1, "mm/dd/yyyy")
.[B7] = UCase(TextBox2)
.[E7] = TextBox3
.[B8] = NumRes(TextBox4)
.[E8] = NumRes(TextBox9) - NumRes(TextBox4)
.[A12].Resize(r, 6).Value = ListBox1.List
End With

With Sheets("data").Range("F65536").End(xlUp).Offset(1)
.[A1] = Format(TextBox1, "mm/dd/yyyy")
.[B1] = UCase(TextBox2)
.[c1] = TextBox3
.[d1] = NumRes(TextBox4)
.[E1] = NumRes(TextBox9) - NumRes(TextBox4)
.[F1] = ListBox1.List
End With

Call XoaText
CmdPrint.Enabled = True
CmdSave.Enabled = False
End Sub

Mục đích 1 : lưu đơn hàng vào sheets inhoadon - in xong rồi xóa dữ liệu.
Mục đích 2 : Lưu data vào sheet data để lấy dữ liệu cuối tháng.

Nhưng đoạn code để lưu vào sheets data lại không hoạt động.
Nhờ các anh chị code giùm đoạn đó.

Rất cảm ơn mọi người.

 

[comet_1701]

Mình có đoạn code như sau :

Private Sub CmdSave_Click()
Dim r As Long
r = ListBox1.ListCount

With Worksheets("PhieuDatHang")
.Range("A12:F26").ClearContents
.[A6] = Format(TextBox1, "mm/dd/yyyy")
.[B7] = UCase(TextBox2)
.[E7] = TextBox3
.[B8] = NumRes(TextBox4)
.[E8] = NumRes(TextBox9) - NumRes(TextBox4)
.[A12].Resize(r, 6).Value = ListBox1.List
End With

With Sheets("data").Range("F65536").End(xlUp).Offset(1)
.[A1] = Format(TextBox1, "mm/dd/yyyy")
.[B1] = UCase(TextBox2)
.[c1] = TextBox3
.[d1] = NumRes(TextBox4)
.[E1] = NumRes(TextBox9) - NumRes(TextBox4)
.[F1] = ListBox1.List
End With


Call XoaText
CmdPrint.Enabled = True
CmdSave.Enabled = False
End Sub

Mục đích 1 : lưu đơn hàng vào sheets inhoadon - in xong rồi xóa dữ liệu.
Mục đích 2 : Lưu data vào sheet data để lấy dữ liệu cuối tháng.

Nhưng đoạn code để lưu vào sheets data lại không hoạt động.
Nhờ các anh chị code giùm đoạn đó.

Rất cảm ơn mọi người.

Ít nhất bạn cũng nên gửi file giả lập lên chứ. Như vậy vừa nhanh và mọi người giúp cũng dễ

 

[SA_DQ]

Mình thấy câu lệnh này hơi kì cục:

With Sheets("data").Range("a65536").End(xlUp).Offset(1)
    .[A12].Resize(r, 6).Value = ListBox1.List
End With

 

[nhoklipice]

Đúng là câu lệnh đó hơi kì cục, mục đích mình chỉ muốn lưu listbox1 vào sheets data - nhưng không biết xử lý thế nào !

 

[nhoklipice]

Đoạn code

With Sheets("data")
    .[A12].Resize(r, 6).Value = ListBox1.List
End With

thí có ghi dữ liệu vào sheet data, nhưng đơn hàng sau ghi đè lên đơn hàng trước làm mất dữ liệu.

Mình khai báo thêm

With Sheets("data").Range("a65536").End(xlUp).Offset(1)
    .[A12].Resize(r, 6).Value = ListBox1.List
End With

Thì code lại báo lỗi ngay dòng .[A12].Resize(r, 6).Value = ListBox1.List

Rất mong nhận được sự giúp đỡ.

 

[ChanhTQ@]

Thì bạn bò .[A12] hẵn đi, xem nó làm ăn ra răng?!

 

[nhoklipice]

Thì bạn bò .[A12] hẵn đi, xem nó làm ăn ra răng?!

Có thế mà mò hoài khong ra, cảm ơn bác rất nhiều - chúc bác sức khỏe

 

[nhoklipice]

Cho mình hỏi thêm 1 chút.
Khi mình code bằng VBA, lúc tính toán có tạo thêm 3 - 4 sheets tạm, sau đó tự delete các sheets tạm đó đi, mình có sử dụng
Application.ScreenUpdating=false

Nhưng không có tác dụng, các bạn giúp 1 chút nữa nha. Cảm ơn các bạn.

 

[quoc nhat]

Cho mình hỏi thêm 1 chút.
Khi mình code bằng VBA, lúc tính toán có tạo thêm 3 - 4 sheets tạm, sau đó tự delete các sheets tạm đó đi, mình có sử dụng
Application.ScreenUpdating=false

Nhưng không có tác dụng, các bạn giúp 1 chút nữa nha. Cảm ơn các bạn.[/FONT]

Câu lệnh:
Application.ScreenUpdating=false
Có liên quan gì đến việc xóa các sheet tạm đó đâu bạn
Bạn tham khảo bài sau và làm theo
http://www.giaiphapexcel.com/forum/...ác-Sheet-chỉ-để-lại-những-sheet-theo-chỉ-định

 

[nhoklipice]

Topic bạn đưa hình như là xóa sheets mà ko thông báo, vấn đề của mình là khi tạo sheets tạm, tính xong delete sheets tạm, màn hình excel nó giật giật ý, mình muốn màn hình excel nó ko giật kìa

 

[quoc nhat]

Topic bạn đưa hình như là xóa sheets mà ko thông báo, vấn đề của mình là khi tạo sheets tạm, tính xong delete sheets tạm, màn hình excel nó giật giật ý, mình muốn màn hình excel nó ko giật kìa

bạn cho dòng lệnh ở bài trên vào nữa là xong:
Application.ScreenUpdate=false

 

[nhoklipice]

Mình có nói là dùng code screenupdating false nhung vẫn không có tác dụng rồi mà