FORMULLERİMİ MAKROYA ÇEVİREBİLİRMİSİNİZ

[kardelen79]

İyi akşamlar arkadaşlar sutunlar da 300 adet aşagıda verdiğim gibi formuller var mümkünse makroya cevirebilir misiniz
bu şekilde aynı sütunda 300 adet aynı şart formuller var

=EĞER(VE(ŞABLON!$H$16="ON";'VERİ SAYFASI '!AH4<ŞABLON!$H$20;AW4<=0);"LONG AL";"")
=EĞER(VE('VERİ SAYFASI '!AH4>ŞABLON!$H$21;AW4>0);"LONG KAR";"")
=EĞER(VE(AH4<ŞABLON!$H$22;'VERİ SAYFASI '!AW4>0);"LONG STOP";"")
=EĞER(VE(ŞABLON!$N$16="ON";AH4>ŞABLON!$N$20;'VERİ SAYFASI '!AW4=0);"SHORT AL";"")
=EĞER(VE(AH4<ŞABLON!$N$21;'VERİ SAYFASI '!AW4>0);"SHORT KAR";"")
=EĞER(VE(AH4>ŞABLON!$N$22;'VERİ SAYFASI '!AW4>0);"SHORT STOP";"")
=(AJ4-AI4)/AI4
yardımcı olursanız sevinirim

 

[walabi]

Küçük bir örnek dosya ekleyebilirseniz daha sağlıklı cevaplarr alabilirsiiniz. Üçyüz adet sütundan mı bahsetmektesiniz?? Doğru anladıysam bu cevap yazacak kişi için zaman alıcı bir işlem olur örnek dosya olmadan. Ve Örnek dosya olursa yönlendirici cevaplar almanızı sağlar ayrıca.

 

[kardelen79]

 

[kardelen79]

Küçük bir örnek dosya ekleyebilirseniz daha sağlıklı cevaplarr alabilirsiiniz. Üçyüz adet sütundan mı bahsetmektesiniz?? Doğru anladıysam bu cevap yazacak kişi için zaman alıcı bir işlem olur örnek dosya olmadan. Ve Örnek dosya olursa yönlendirici cevaplar almanızı sağlar ayrıca.

82 sutun var. farklı farklı formuller var ama her sutunda 300 satır var
her sutun için ayrı ayrı sub açmak gerekir

 

[kardelen79]

bilgisayar patlayacak sanki exceli açınca

 

[RBozkurt]

Dosya eklenmemiş gözüküyor.

 

[kardelen79]

dosyayı ekleyemiyorum anlık veri ile calisiyor

 

[walabi]

Dosyayı komple eklemenize gerek yok. Sütun başlıkları ile beraber formüllerin olduğu ilk üç satırı farklı bir excel dosyasına yerleştirip yüklemeniz yeterli olur. Özel bilgileriniz varsa dosyada silin örnekleme yapın.

 

[kardelen79]

her sutunda farklı hesaplamalar var düşey aralar var % ler var bunlar çok olduğu için hepsi formulle çok kötü kasıyor gibi bilgisayar bu exceli açınca bilgisayar sesi o kadar artıyor ki
her sütüna ayrı ayrı başlık atıp 300 satırlık makro mu yazmalıyım

 

[Muzaffer Ali]

Merhaba.
Sayfanın kod kısmına kopyalayıp çalıştırıp deneyiniz.

Sub Test()
    Dim SatirSayisi As Long
    SatirSayisi = Cells(Rows.Count, "A").End(xlUp).Row
    Range("A2:A" & SatirSayisi).FormulaLocal = "=BİRLEŞTİR(B2;"".E"")" ' Burada dikkat edin ".E" şeklinde yazdığınız metni kod ile yazınca "".E"" şeklinde çift tırnak iki kere yazlması gerekiyor.
    Range("B2:B" & SatirSayisi).FormulaLocal = "=AE2"
    Range("C2:S" & SatirSayisi).FormulaLocal = "=SAYIYAÇEVİR(AF2)" 'C:S kolonları arası aynı formül olduğu için topluca yazıldı
    Range("AD2:AD" & SatirSayisi).FormulaLocal = "=J2-T2"
    Range("AE2:AE" & SatirSayisi).FormulaLocal = "=GZV(""mtrtd"";;""1000BONK_USDT_FBIN.SEMBOL"")" 'Yine dikkat edin çift tırnak iki kere yazıldı.
    With Range("A2:AV" & SatirSayisi)
        .Value = .Value
    End With
End Sub

 

[kardelen79]

Abi burada tüm sutunları hesaplıyor mu yoksa 1-2 sütun için mi bu makro
tüm formulleri silsem çalışır mı

 

[kardelen79]

abi sanırım siz matrik sayfasınna göre yapmışsınız diğer sayfa veri sayfası için hocam