Hiện UserForm khi chuyển từ Sheet này sang Sheet kia

[lq177]

Em muốn khi từ Sheet1 Chuyển sang Sheet2 thi UserForm xẽ hiện lên(Sheet2 có UserForm)
Xin GPE giúp em.
Em muốn hỏi thêm, Em muốn ghi dữ liệu trên Form vào 2 cell trên Sheet (textbox1=A1, Textbox2 = A2)

 

[khoavu87]

Em muốn khi từ Sheet1 Chuyển sang Sheet2 thi UserForm xẽ hiện lên(Sheet2 có UserForm)
Xin GPE giúp em.
Em muốn hỏi thêm, Em muốn ghi dữ liệu trên Form vào 2 cell trên Sheet (textbox1=A1, Textbox2 = A2)

thử file đính kèm xem đúng chưa nhé.

 

[ptm0412]

thử file đính kèm xem đúng chưa nhé.

Thế còn chuyện "khi từ Sheet1 Chuyển sang Sheet2 thi UserForm sẽ hiện lên" sao Khoa không làm nốt?
Với lại, sao biết tác giả muốn lấy giá trị số mà dùng hàm Val?

 

[Hai Lúa Miền Tây]

Em muốn khi từ Sheet1 Chuyển sang Sheet2 thi UserForm xẽ hiện lên(Sheet2 có UserForm)

Bỏ đoạn sau vào cửa sổ code của sheet2, khi click chọn Sheet2 thì form sẽ mở

Private Sub Worksheet_Activate()
UserForm1.Show
End Sub

 

[lq177]

Cám ơn anh khoavu87 nhé.
Anh có thể giúp em cái này. Ở Sheet1 em có 1 cột mã hàng. và ở bên Sheet2 cần phải gõ thủ công sao cho đúng với các mã hàng ở bên sheet1. giờ em muốn ở bên Sheet2 e gõ gần đúng mã đó là nó sẽ tự động tìm kiếm cho em nhưng loại mã hàng có liên quan và em chỉ việc chọn mã hàng mà em cần
Cám ơn nhé!

Anh Khoavu87 này, Form của anh làm chỉ nhận giá trị kiểu số, còn kiểu chữ thì nó không nhận

 

[lq177]

Cám ơn anh khoavu87 nhé.
Anh có thể giúp em cái này. Ở Sheet1 em có 1 cột mã hàng. và ở bên Sheet2 cần phải gõ thủ công sao cho đúng với các mã hàng ở bên sheet1. giờ em muốn ở bên Sheet2 e gõ gần đúng mã đó là nó sẽ tự động tìm kiếm cho em nhưng loại mã hàng có liên quan và em chỉ việc chọn mã hàng mà em cần
Cám ơn nhé!

Anh Khoavu87 này, Form của anh làm chỉ nhận giá trị kiểu số, còn kiểu chữ thì nó không nhận

Mọi người trong GPE giúp em với nhé

 

[khoavu87]

Mọi người trong GPE giúp em với nhé

bạn thử xem cái này xem đúng mục đích của bạn ko/ cái code này dài do mới học cách vận dụng,hihi. gửi lên để được các cao thủ rút gọn tiếp.

Sub TrichLoc1()
Sheet1.Select
'On Error Resume Next
Dim Rng As Range, LastCell As Range, FirstAddress As String
Set LastCell = Range("a1", [a65536].End(xlUp)).Cells(Range("a1", [a65536].End(xlUp)).Cells.Count)
Set Rng = Range("a1", [a65536].End(xlUp)).Find(Sheet2.Range("a1") & "*", After:=LastCell, LookIn:=xlValues, LookAt:=xlWhole)
FirstAddress = Rng.Address
If Not Rng Is Nothing Then
i = 1
Do
Cells(i, 3) = Rng
i = i + 1
Set Rng = Range("a1", [a65536].End(xlUp)).FindNext(Rng)
Loop While FirstAddress <> Rng.Address
End If
Range("c:c").Copy Sheet2.Range("b1")
Range("c:c").ClearContents
End Sub

mình đang nghĩ có nhất thiết phải dùng form ko nữa, có thể tạo combox, hoặc datavaliton
http://www.giaiphapexcel.com/forum/showthread.php?15116-T%E1%BB%95ng-h%E1%BB%A3p-v%E1%BB%81-ph%C6%B0%C6%A1ng-th%E1%BB%A9c-t%C3%ACm-ki%E1%BA%BFm-FIND-%28-Find-Method%29