sütundaki hücrelere fonksiyon tanımlama

[magnet2014]

Arkadaşlar merhaba,

Makro ile bir sütundaki hücrelere nasıl fonksiyon tanımlayabiliriz. Örneğin excel çalışma kitabında sayfa2 de P sütunundaki bütün hücrelere "=IF(K*="";"";UPPER(TEXT(K*;"aaaa")))" bu formülü nasıl yazdırırım

P2 hücresine =IF(K2="";"";UPPER(TEXT(K2;"aaaa")))
P3 hücresine =IF(K3="";"";UPPER(TEXT(K3;"aaaa"))) vs


Teşekkür ederim.

 

[Kenantu]

Merhaba sormuş olduğunuz soruya daha önce kendim için hazırladığım bir çalışmada yazmış olduğum formüller için bir kaç örnek veriyorum aşağıda sizde kendinize bu örneklere bakaram uyarlama yapabilirsiniz.


Range("B2").Formula = "=SUMIF(SONUÇ!GZ22:HB2000,A2,SONUÇ!HB22:HB2000)"
Range("C2").Formula = "=VLOOKUP(A2,SONUÇ!GZ22:HB2000,2,0)"
Range("D2").Formula = "=B2*C2"

 

[Merhum İdris SERDAR]

.

Aşağıdaki gibi deneyin.

Sub Test()

For Each cell In Range("P2:P150") 'Buradaki alanı kendinize göre ayarlayın.
    cell.FormulaR1C1 = "=IF(RC11="""","""",UPPER(TEXT(RC11,""aaaa"")))"
Next

End Sub

.

 

[Haluk]

İdris Beyin yaklaşımına benzer şekilde ancak, For-Next döngüsü kullanmadan aşağıdaki kodla dizi formülü şeklinde girilerek sorununuz çözülebilir.

Range("P2:P150").FormulaArray = "=IF(K2:K150="""","""",UPPER(TEXT(K2:K150,""aaaa"")))"

.