A/C và các bạn hoàn thiện giúp Em code tìm kiếm (1 người xem)

[ndhmoney686]

A/C và các bạn hoàn thiện giúp Em đoạn code tìm kiếm. Để khi bấm vào cái Button "Find" thì code sẽ lấy giá trị ô G1 để tìm trong cột D -> Để lấy ra số lớn nhất. Hiện tại số lớn nhất là 13. Nhưng code Em chạy macro lúc trước là 12, khi tăng nên 13 là chịu. Mong AC giúp Em. Cám ơn AC nhiều!

 

[giaiphap]

Bạn phải nói rõ hơn nửa đi, có phải lúc nào trong cột D cũng có duy nhất 1 giá trị bằng với G1 hay không? Còn số 13 là lấy từ cột C hay lấy từ ô G1 (Tách số cuối ra là 13).

 

[SA_DQ]

Sub gpeFIND()
 Dim Rng As Range, sRng As Range
 
 Set Rng = Columns("D:D")
 Set sRng = Rng.Find([g1].Value, , xlValues, xlWhole)
 If Not sRng Is Nothing Then
    MsgBox sRng.Address, , sRng.Value
 End If
End Sub

 

[ndhmoney686]

Sub gpeFIND()
 Dim Rng As Range, sRng As Range
 
 Set Rng = Columns("D:D")
 Set sRng = Rng.Find([g1].Value, , xlValues, xlWhole)
 If Not sRng Is Nothing Then
    MsgBox sRng.Address, , sRng.Value
 End If
End Sub

Cám ơn Chị HYen17 và bạn Giaiphap! Code này Em muốn tìm giá trị ở cột D giống với ô G1. Để đưa con trỏ chuốt tới dòng có kết quả giống ô G1. A/C sửa code giúp Em để cuối cùng là con chỏ chuột nằm ở ô mình cần tìm.

 

[ChanhTQ@]

Thì bạn sửa câu lệnh

[FONT=Courier New][COLOR=#0000bb]MsgBox sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Address[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000bb]sRng[/COLOR][COLOR=#007700].[/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]Value

thành

sRng.Select

[/FONT]
[/COLOR]

 

[ndhmoney686]

Thì bạn sửa câu lệnh

[FONT=Courier New][COLOR=#0000bb]MsgBox sRng[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000bb]Address[/COLOR][COLOR=#007700], , [/COLOR][COLOR=#0000bb]sRng[/COLOR][COLOR=#007700].[/COLOR][/FONT][COLOR=#0000bb][FONT=Courier New]Value [/FONT][/COLOR]

thành

sRng.Select

Cám ơn bạn ChanhTQ@! Mình thay vào một phát Ok luôn .