Soru En fazla olan sütunu aktarma

[NADİR YILDIZ]

Merhaba
Q1 ile U1 arasındaki sütunlarda en büyük sayıya ait sütunu A1 hücresine nasıl aktarım yapabilirim

 

[veyselemre]

Sub test()
    Dim i, mx, sut
    For i = 17 To 21
        If Cells(1, i).Value > mx Then
            mx = Cells(1, i).Value
            sut = i
        End If
    Next i
    If mx > 0 Then
        Range("A2:A" & Cells(Rows.Count, 1).End(3).Row).ClearContents
        Range(Cells(2, sut), Cells(Rows.Count, sut).End(3)).Copy Range("A2")
    End If
End Sub

 

[NADİR YILDIZ]

Veysel bey teşekkürler

iyi çalışmalar