Formulü Döngüde Kullanma?

[just]

selam arkadaşlar

ActiveCell.FormulaR1C1 = "=MIN(R[-1]C[9],R[-1]C[12],R[-1]C[15],R[-1]C[17],R[-1]C[19],R[-1]C[21],R[-1]C[23],R[-1]C[25])"

bu formülü tırnaktan kurtarıp bi dögü içinde kullanmam gerekiyo sadece bi alt satırdakilerden minimumu kullanması değil sorun aslında ama sadece o kısımları değiştirilebilir hale getirsek yeter.
yardımcı olursanız sevinirim

 

[Levent Menteşoğlu]

Bu tür durumlarda fonksiyonu makro içinde hesaplatıp, değerini sayfaya yazdırabilirsiniz. Bu şekilde bir çözüm amacınızı gerçekleştirirmi? Birde örnek bir dosyada sorunuzu izah edermisiniz.

 

[just]

burda sırayla en küçükleri buldurup aşağı satır satır yazdırmasını isityoruz dosyadan bakarsanız

 

[Levent Menteşoğlu]

İstediğiniz; 3. satırdaki değerlerin C5 ten itibaren küçükten büyüğe doğru sıralanması ise aşağıdaki kodu deneyin.

[vb:1:7973f1d5a0]Sub sirala()
Range("C3:L3").Copy
Range("C5").PasteSpecial , Transpose:=True
Range("C5:C65536").Sort Key1:=Range("C5")
End Sub
[/vb:1:7973f1d5a0]

 

[just]

ya leventm seni gene uğraştırcam çok sağol ama kast ettiğim bu değildi o sadece bi örnekti yani bunu yapcak ama bunu daha pek çok hücre içinde yapacak yani c5 e yaptığı gibi diğer değerlerin altındaki değerleride başka yere yapcak yani ilk başta yaptırmaya çalıştığını tırnak dışına çıkarmak yani o değerleri değiştirilebilir hale getirmem gerekiyo
for döngüsüne uygun hale

c3 deki değerler gibi c4de c5de faolanda bulup onlarıda sıralıcak

o değerleri tırnak dışına çıkartabirsem çok iyi olur hani ilk yazdığım formuldekileri

 

[just]

bide şöyle diyim ilk msj daki formulde r[-1] lerin 0 1 gibi devam etmesini nasıl sağlayabiliriz?

 

[just]

arkadaşalar yukardaki formulü tırnaktan çıkartıp kullanılarbilir hale ne nasıl getirilebilceğini bilen yok mu?? similasyon ödevi tıkandı sadece tek satır için yazılmış gibi oldu bi yardım