Arama yapmak

[ozgretmen]

Merhaba arkadaşlar...Sorum ekte...Yardımlarınızı bekliyorum...

 

[Orion1]

Merhaba arkadaşlar...Sorum ekte...Yardımlarınızı bekliyorum...

Aşağıdaki kod işinizi görür.

Dim k As Range
Set k = Range("A2:A20").Find(Range("B1").Value, , xlValues, xlWhole, , xlPrevious)
If Not k Is Nothing Then k.Select

 

[ozgretmen]

Elinize sağlık sayın Evren Gizlen.İyi çalışmalar...

 

[Orion1]

Elinize sağlık sayın Evren Gizlen.İyi çalışmalar...

Rica ederim.
İyi çalışmalar.