Büyük olan rakama ait ismi getirme

[sirkülasyon]

Sub KOD()
yuksek = WorksheetFunction.Max(Range("d3:d14"), 1)
Range("d17").Value = yuksek
yuksek = WorksheetFunction.Max(Range("e3:e14"), 1)
Range("d18").Value = yuksek
yuksek = WorksheetFunction.Max(Range("f3:f14"), 1)
Range("d19").Value = yuksek
yuksek = WorksheetFunction.Max(Range("g3:g14"), 1)
Range("d20").Value = yuksek
yuksek = WorksheetFunction.Max(Range("h3:h14"), 1)
Range("d21").Value = yuksek
yuksek = WorksheetFunction.Max(Range("ı3:ı14"), 1)
Range("d22").Value = yuksek
yuksek = WorksheetFunction.Max(Range("j3:j14"), 1)
Range("d23").Value = yuksek
yuksek = WorksheetFunction.Max(Range("k3:k14"), 1)
Range("d24").Value = yuksek

Yukarıda yer alan kod dede rumuzlu arkadaşa ait kod.
Bu kod ile sütunda birinci olanları buldum ve hücreye aktardım.
ama
yuksek = WorksheetFunction.Max(Range("d3:d14"), 1)
Range("d17").Value = yuksek
Range("c17").Value = "Bu hücreye de C3:C14 arasında ki büyük olan rakama ait ismi aldıracağım. "
Yardımcı olabilir misiniz?

 

[PLİNT]

Merhaba
Şöyle deneyin

yuksek = WorksheetFunction.Max(Range("d3:d14"), 1)
kaçıncı = Application.Match(yuksek, Range("d1:d14"), 0)
bulunan = Cells(kaçıncı, "C")
MsgBox bulunan

Yukarıdaki kodlarınıza göre tüm sütunlar için döngüyle:

For a = 1 To 8
yuksek = WorksheetFunction.Max(Range(Cells(3, a + 3), Cells(14, a + 3)), 1)
kaçıncı = Application.Match(yuksek, Range(Cells(1, a + 3), Cells(14, a + 3)), 0)
Cells(a + 16, "D").Value = Cells(kaçıncı, "C")
Next