Formülü parantez ile kapama

[kemalist]

Arkadaşlar formülü parentez ile kapatmak istiyorum.Bunu makroyla nasıl yapabiliriz.Örnek dosya ektedir.Yardımlarınız için şimdiden teşekkür ederim.

 

[kemalist]

yardım edecek kimse yok mu?

 

[Ömer BARAN]

Merhaba.
Aşağıdaki gibi olabilir.

Sub DİZİ_FORMÜLÜ_BRN()
    Range("E5").Formula = "=IF(ROWS($BM518:BM$518)<=$BM$517,INDEX($B$518:$B$767,SMALL(IF($CI$518:$CI$767=$A$1,ROW($CI$518:$CI$767)-ROW($CI$518)+1),ROWS(CI518:CI$518))),"""")"
    Range("E5").FormulaArray = Range("E5").Formula
End Sub

 

[kemalist]

sayın baran fomüller E5:N5 arasında ayrıca başlangıç yerini kendim seçebilirmiyim?Çünkü farklı satır , sütun ve sayfalarda bulunuyorlar.

 

[Ömer BARAN]

Tekrar merhaba.
Yanlış hatırlamıyorsam aşağıdaki gibi yapmak lazım.
--ilk hücreye formülü uygulamak (1'inci satır),
--ilk hücredeki formülü dizi formülüne çevirmek (2'nci satır)
--sütuna/satırı AutoFill yöntemiyle kopyalamak (3 ve 4'üncü satır)
Örneğin dizi formülü F3:G24 arasına uygulanacaksa.

Range("[B][COLOR="Blue"]F3[/COLOR][/B]").Formula = ".... FORMÜLÜNÜZ....."
Range("[B][COLOR="Blue"]F3[/COLOR][/B]").FormulaArray = Range("[B][COLOR="Blue"]F3[/COLOR][/B]").Formula

Range("[B][COLOR="Blue"]F3[/COLOR][/B]").AutoFill Destination:=Range("F3:[B][COLOR="Lime"]G[/COLOR][/B][B][COLOR="Red"]24[/COLOR][/B]"), Type:=xlFillDefault
Range("F3:F24").AutoFill Destination:=Range("F3:[B][COLOR="Lime"]G[/COLOR][/B][B][COLOR="Red"]24[/COLOR][/B]"), Type:=xlFillDefault