Minimum Uygulama

[talatcd]

Sayfa1 in C7 sütununda sayılarım var ve aynı sayfanın D7 sütunundada sayılarım var.Bunların küçüğünü sırasıyla E7 sütunlarına kopyalamak istiyorum.

C7 D7 E7
10 15 10
25 15 15 v.s gibi son satıra kadar.

 

[veyselemre]

Sub dene()
For x = 7 To [c7].End(4).Row
    Cells(x, 5) = IIf(Cells(x, 3) > Cells(x, 4), Cells(x, 4), Cells(x, 3))
Next x
End Sub