Min max değer arama ve offset kullanımı

[Carpintero]

Merhaba arkadaşlar resimdeki renkli hücrelerdeki verileri elde etmek istiyorum.
Aslında
Cells(3, "B").Value = WorksheetFunction.Large(Range("F1:F100"), 2)
Cells(7, "B").Value = WorksheetFunction.Small(Range("F1:F100"), 2)
satırları ile en büyük 2. ve en küçük 2. değeri buluyorum. Lakin ilgili değerlerin
yanındaki adreslerden veri alamıyorum. Bu vba satırlarına Offset eklemeye çalıştım ama başarılı olamadım.
Acaba sizler yardımcı olabilir misiniz lütfen.

 

[tamer42]

Merhaba arkadaşlar resimdeki renkli hücrelerdeki verileri elde etmek istiyorum.
Aslında
Cells(3, "B").Value = WorksheetFunction.Large(Range("F1:F100"), 2)
Cells(7, "B").Value = WorksheetFunction.Small(Range("F1:F100"), 2)
satırları ile en büyük 2. ve en küçük 2. değeri buluyorum. Lakin ilgili değerlerin
yanındaki adreslerden veri alamıyorum. Bu vba satırlarına Offset eklemeye çalıştım ama başarılı olamadım.
Acaba sizler yardımcı olabilir misiniz lütfen.

Match fonksiyonu ile satır numarasını alabilirsiniz.

x= WorksheetFunction.Large(Range("F1:F100"), 2)
Row = WorksheetFunction.Match(x, Range("F1:F100"), 0)