Nhờ code dán giá trị trong clipboard vào macro (1 người xem)

[jibelonline]

Chào cả nhà.Mình tạo một macro để tìm kiếm giá trị cell đã copy trong một file, nhưng chưa biết làm sao paste giá trị đã copy vào macro (dán vào chổ " dan gia tri trong clipboard vao day" ở code bên dưới), nhờ các huynh đệ chỉ giúp, cảm ơn lắm lắm.

Sub Ktra_no()
'' Ktra_no Macro
' Macro recorded 13/01/2012 by nhthai''
Range("S1").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Cells.Find(What:="dan gia tri trong clipboard vao day", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

End Sub

 

[Hoàng Trọng Nghĩa]

Bạn nói rõ xem, tại sao bạn phải dán cái dòng đó vào trong macro? Bạn gửi File lên nhé!

 

[le tin]

Bạn cho vào đấy 1 địa chỉ ô . Ví dụ Range("A1") , rồi nhập (hoặc dán giá trị) vào ô A1

 

[jibelonline]

Bạn nói rõ xem, tại sao bạn phải dán cái dòng đó vào trong macro? Bạn gửi File lên nhé!

Là thế này, mình có 1 file danh sách khách hàng gồm mã khách hàng, tên khách hàng, tổng số nợ phải thu. Và 1 file chi tiết các khoản nợ.
- Khi báo nợ cho khách hàng thì báo số tổng.
- Nhưng cần giải thích tổng nợ đó gồm những khoản nợ gì (chi tiết) thì mình muốn tạo 1 macro, trên file tổng nợ tạo một nút để chạy macro này.
- Cách hoạt động: khi gọi điện báo nợ thì mình đang xem file tổng nợ, copy mã khách hàng và nhấn vào nút đã gán macro thì tự động mở file nợ chi tiết lên, rồi thực hiện lệnh tìm kiếm (Ctrl +F) dán mã khách hàng mình đã copy trước đó vào hộp thoại tìm kiếm và tìm đến đúng mã khách hàng bên file nợ chi tiết để giải thích cho khách hàng.

Không biết bạn hiểu ý mình không? Cảm ơn nhiều.

 

[Hoàng Trọng Nghĩa]

Là thế này, mình có 1 file danh sách khách hàng gồm mã khách hàng, tên khách hàng, tổng số nợ phải thu. Và 1 file chi tiết các khoản nợ.
- Khi báo nợ cho khách hàng thì báo số tổng.
- Nhưng cần giải thích tổng nợ đó gồm những khoản nợ gì (chi tiết) thì mình muốn tạo 1 macro, trên file tổng nợ tạo một nút để chạy macro này.
- Cách hoạt động: khi gọi điện báo nợ thì mình đang xem file tổng nợ, copy mã khách hàng và nhấn vào nút đã gán macro thì tự động mở file nợ chi tiết lên, rồi thực hiện lệnh tìm kiếm (Ctrl +F) dán mã khách hàng mình đã copy trước đó vào hộp thoại tìm kiếm và tìm đến đúng mã khách hàng bên file nợ chi tiết để giải thích cho khách hàng.

Không biết bạn hiểu ý mình không? Cảm ơn nhiều.

Tôi hiểu ý bạn nói gì rồi, bây giờ, bạn gửi 1 file có cấu trúc giống như file gốc của bạn, sau đó bạn dành 1 sheet để nói yêu cầu đó, tôi sẽ thử làm cho bạn.

 

[jibelonline]

Cảm ơn các anh em đã giúp, mình gởi file kèm mọi người giúp dùm nhé.

 

[jibelonline]

Các anh em cố giúp dùm mình đi, hình như mọi người còn ăn tết thì phải???

 

[aThuan]

Là thế này, mình có 1 file danh sách khách hàng gồm mã khách hàng, tên khách hàng, tổng số nợ phải thu. Và 1 file chi tiết các khoản nợ.
- Khi báo nợ cho khách hàng thì báo số tổng.
- Nhưng cần giải thích tổng nợ đó gồm những khoản nợ gì (chi tiết) thì mình muốn tạo 1 macro, trên file tổng nợ tạo một nút để chạy macro này.
- Cách hoạt động: khi gọi điện báo nợ thì mình đang xem file tổng nợ, copy mã khách hàng và nhấn vào nút đã gán macro thì tự động mở file nợ chi tiết lên, rồi thực hiện lệnh tìm kiếm (Ctrl +F) dán mã khách hàng mình đã copy trước đó vào hộp thoại tìm kiếm và tìm đến đúng mã khách hàng bên file nợ chi tiết để giải thích cho khách hàng.

Không biết bạn hiểu ý mình không? Cảm ơn nhiều.

Việc gì phải tư duy phức tạp thế.
- Đưa còn trỏ đến ô mã cần chọn (không cần copy)
- Lick nút chạy:

Sub Ktra_no()
​

thuan=ActiveCell.value 'trỏ đang ở ô mã cần tìm

- kiểm tra file "Chi tiết" đã mở??? chưa=> mở.
- active file "chi tiết"


Cells.Find(What:=thuan, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
​

End Sub​

Chúc bạn thành cống