Gán giá trị cho textbox hoặc combox của form từ giá trị trên sheet

[tuanh1979]

Mình muốn textbox hoặc combox của form PN nhận giá trị từ sheet nhưng lại trên một code của form chitiet. Mình làm thế này
PN.PNS.value=sheet4.range("k2").value
PN.PNN.value=sheet4.range("h2").value
nhưng không được. Mình có làm sai không, mọi người chỉ giúp

 

[anhphuong]

Sub GanGiaTri()
Sheets("Sheet4").Select
Me.PNS.Value = Sheet4.Range("K2").Value
Me.PNN.Value = Sheet4.Range("H2").Value
End Sub

P/S NS,PNN là tên của Text hoặc combo. Chạy thử xem thế nào

 

[tuanh1979]

Mình chạy được nhưng phải mở phiếu lần thứ hai mới nhận giá tri đúng, còn làn đầu mở form thị nhận giá trị cũ. VD
lần một mình kích đúp vào bản ghi co số phiếu là 001, ngày 11/1/2007.....
thì mở được form nhưng giá trị của lần mở trước đó. đóng form lại mở lần thứ hai thì nhận được giá trị đúng. Làm thế nào hả bạn

 

[XuanThanh]

Đưa files lên mới có hướng trả lời chứ bạn hỏi chung chung như vậy làm sao ai trả lời bạn được

 

[tuanh1979]

Bạn vào button tong hop, sau đó kích đúp vào bản ghi để xem nội dung. Có chỗ nào không hợp lý hoặc có cách làm hay hơn thì bảo mình nhé. Đặc biệt là phần lọc ý

 

[XuanThanh]

Một bài bạn post hai nơi. Bạn chú ý nhé. Đã trả lời cho bạn rồi

 

[ThuNghi]

Sao dồn lại một chỗ, có phải bạn muốn như sau, làm tạm thôi, để SoiBien hệ thống lại cho. ie Nhấp đúp số PN trong thống kê thì PN hay PX hiện lên.

 

[tuanh1979]

Mình post bài o muc khác là để hỏi về vấn đề khác mà. Như thế là không được à, sorry nhé
To Bac Thu Nghi
Đúng ý của Bác nói đấy, và nó hiện ra nội dung tương ứng của tứng phiếu một. Khi kích vào dòng trống thi nó không hiện ra phiếu gi cả.
Bác Thu Nghi và Soi Biên giúp mình nhé

 

[SoiBien]

... nó hiện ra nội dung tương ứng của tứng phiếu một. Khi kích vào dòng trống thi nó không hiện ra phiếu gi cả.

Bạn xem nhé.

 

[tuanh1979]

Cảm ơn Bác SoiBien đã góp ý cho bải làm của mình, mình đã sửa lại nhưng mỗi lần kích đúp phải kích đến lần thứ hai mới nhận đc giá trị của phiếu đó, bạn xem lại cho mình với. Trong bài làm của bạn, trong form tổng hợp mình không biết phần checkbox họn xuất hay nhập bạn làm thế nào mà khi chon xuất thì thôi nhập hoặc ngược lại.. trong form nhập hay xuất mình có gán công thức vlookup cho cột tên hàng nhưng khi nhập vào sheet thì không có dữ liệu, bạn xem và chỉ cho mình với. Cảm ơn bạn rất nhiều

 

[SoiBien]

@tuanh1979: cho mình hỏi thêm, ý bạn là form của mình là chưa làm đúng với ý của bạn hay là bạn chưa hiểu cách làm của mình?

 

[tuanh1979]

Ý mình là kích vào pn thì mở phiếu nhập, vào phiếu xuất thì mở phiếu xuất. Còn của bạn là mở form chitiet. Mình cũng làm theo hướng dẫn của bạn nhưng mở đến lần thứ hai thì phiếu mới nhận giá trị đúng,còn lần thứ nhất nó nhận giá trị của lần mở trước đó.

 

[tuanh1979]

Mình làm được rồi bác SoiBien a. Mình đã sửa lại từ
Sub xem()
Range("A1:l1000").AdvancedFilter Action:=xlFilterCopy, CriteriaRange:=Range( _
"t1:t2"), CopyToRange:=Range("t6:ae6"), Unique:=False
End Sub
thành
Sub xem()
With Sheets("tong hop")
......
End With
End Sub
và gọi nó trong code như bác đã làm với phần TKCN
Bac cho mình hởi thêm về phần lọc nhé.
Mình muốn lọc dữ liệu từ sheet tong hop, nhưng chỉ lọc 1 số cột và sắp sếp theo ý của mình thì có cách nào tối ưu hơn advanced không. Phần tên hàng trong form nhập mình đã gán công thức Vlookup nhưng không lấy được giá trị. Bác giúp mình với

 

[SoiBien]

Bac cho mình hởi thêm về phần lọc nhé.
Mình muốn lọc dữ liệu từ sheet tong hop, nhưng chỉ lọc 1 số cột và sắp sếp theo ý của mình thì có cách nào tối ưu hơn advanced không.

Bạn cứ sử dụng advance cho tiện, đang quen sao cứ làm vậy đi đã.

Phần tên hàng trong form nhập mình đã gán công thức Vlookup nhưng không lấy được giá trị. Bác giúp mình với

bạn post file cuối đã sửa theo ý bạn lên, rồi mình chỉnh tiếp cho.

Thân

 

[tuanh1979]

Mình có rất nhiều vấn đề để hỏi, bạn chịu khó xem giúp mình nhé.
- Phần tên hàng mình đã gán công thức nhưng chưa được
- trong phần phiếu nhập mình muốn khi kích đúp vào dòng nao của listbox thì ô stt, ma hang, ten hang, soluong... ở phía trên đó sẽ nhận giá trị của dòng đó để tiến hành sửa hoặc xoá( mình đang làm) nhưng không đươc
- .....
Mình gửi file bạn xem giúp mình nhé

 

[tuanh1979]

the extract range has a missing or illegal field name

Khi mình kích vào button tổng hợp và công nợ thì máy báo lỗi :"the extract range has a missing or illegal field name" . Mình đã kiểm tra và không tìm thấy vùng extract nào bị sai cả. các bác tìm giúp mình với
Dữ liệu trong file của mình nhiều quá (800 dòng) nên khi cập nhật phiếu xuất hoặc phiếu nhập máy xử lý rất lâu. có cách nào không các bác nhỉ.
bài của mình có chỗ nào cần chỉnh sửa thi các bác chỉ cho mình nhé. Thank

 

[tuanh1979]

sorry, pass 123. Thank