makroda formüle set ile tanımlanmış dizi yazmak

[sayın]

makromda set dizi =range("a1:a5") olarak tanıttığım dizi var ve

kullanmak istediğim formül;

range("b1").formula = "=min(dizi)"

burda formül dizi yi metin olarak algılıyor. Varmı bi Çare beyler

 

[sayın]

çözdüm yaw.

.Formula = WorksheetFunction.Min(dizi)

 

[Necdet]

Merhaba,

Bu da ikinci seçenek olsun.

Sub Formul_Yazdir()
    
    Dim i As Long
    
    i = Cells(Rows.Count, "A").End(3).Row
    
    Range("B1") = "=MIN(A1:A" & i & ")"
    
End Sub