makro yazımı

[coşkun79]

FormulaLocal yöntemi ile dosyamdaki formülleri makroya çevirdim ama dosyada bir hızlanma göremedim. Okuduğum kadarıyla bu yöntem formüllerin sonucunu değere dönüşmesi dışında dosyayı ciddi anlamda hızlandırmıyor.
Makro yazmayı hiç bilmiyorum. Bu yüzden dosyanın yavaşlamasına neden olan aşağıdaki iki formülü makro koduna çevirebilecek var mı. Teşekkür ederim.

{=MAK(DÇARP(ESAYIYSA(KAÇINCI(' SONUÇLAR'!$B$8:$F$781;$A3:$E3;0))+0;DEVRİK_DÖNÜŞÜM(SÜTUN(' SONUÇLAR'!$B$8:$F$781)^0)))}


=EĞER(VE(EĞERSAY($A6:$E6;H$1);EĞERSAY($A6:$E6;H$2);EĞERSAY($A6:$E6;H$3));1;"")

 

[Saban Sertkaya]

Konuyu 81 görüntüleyen ve 0 cevap.

Bu durumda birşeyler eksik demektir. Ben, örnek bir dosya eklemenizi tavsiye ederim. Ki cevap vermek isteyenler ne istendiğini dosya üzerinden görsünler.

 

[coşkun79]

Konuyu 81 görüntüleyen ve 0 cevap.

Bu durumda birşeyler eksik demektir. Ben, örnek bir dosya eklemenizi tavsiye ederim. Ki cevap vermek isteyenler ne istendiğini dosya üzerinden görsünler.

Birinci mesajımdaki ilk formül ekteki dosyanın ikinci sayfasındaki f sütunu için, ikinci formül ise g sütunundan sonraki sütunlar için. Satır ve sütun sayısı çok olduğu için dosya çok yavaş çalışıyor. Bu sebeple bu formüllerin makrosunu yazma talebinde bulundum. İlgilenen arkadaşlara teşekkür ederim.

 

[Saban Sertkaya]

Merhabalar,

Cevabımı ikinci kez, şu şekilde güncelleyeyim.

- Formüllerin yaptıkları nedir ? Normalde ne yapıyorlar yani ?

- Maalesef herkes altın üye değil. Yani dosyanızı (şahsım adına) göremiyoruz.

 

[coşkun79]

{=MAK(DÇARP(ESAYIYSA(KAÇINCI(' SONUÇLAR'!$B$8:$F$781;$A6:$E6;0))+0;DEVRİK_DÖNÜŞÜM (SÜTUN(' SONUÇLAR'!$B$8:$F$781)^0)))}

birinci formül:
A3:E3 arasındaki beş sayıyı sonuçlar sayfasındaki B8:F781 aralığında arıyor.sonuçlar sayfasında şans topunun ilgili haftalarda çıkan sayılar, ikinci sayfada ise benim yazdığım rastgele sayılar var.yazdığım beş sayıyı ilgili haftaların tamamında aratıp en fazla kaç tane tuttu ise bu en fazla adedi yazıyor. (bu formül ikinci sayfada F sütununda)

=EĞER(VE(EĞERSAY($A6:$E6;H$1);EĞERSAY($A6:$E6;H$2) ;EĞERSAY($A6:$E6;H$3));1;"")

ikinci formül:
H1, H2, H3 deki sayılar A6:E6 aralığında aynı anda varsa 1 yazıyor.H sütunundan sonraki sütunlarda da farklı kombinasyonlar ile üçerli sayılar var ve bu sayılar da ilgili satırlarda sayılıyor. Örneğin I1, I2, I3 deki sayılar da A6:E6, A7:E7, A8:E8 gibi aşağıda doğru satırlarda ve ı sütununda sayılıyor. (bu formül ikinci sayfada H sütununda)

 

[kemalist]

FormulaLocal yöntemi ile dosyamdaki formülleri makroya çevirdim ama dosyada bir hızlanma göremedim. Okuduğum kadarıyla bu yöntem formüllerin sonucunu değere dönüşmesi dışında dosyayı ciddi anlamda hızlandırmıyor.
Makro yazmayı hiç bilmiyorum. Bu yüzden dosyanın yavaşlamasına neden olan aşağıdaki iki formülü makro koduna çevirebilecek var mı. Teşekkür ederim.

{=MAK(DÇARP(ESAYIYSA(KAÇINCI(' SONUÇLAR'!$B$8:$F$781;$A3:$E3;0))+0;DEVRİK_DÖNÜŞÜM(SÜTUN(' SONUÇLAR'!$B$8:$F$781)^0)))}


=EĞER(VE(EĞERSAY($A6:$E6;H$1);EĞERSAY($A6:$E6;H$2);EĞERSAY($A6:$E6;H$3));1;"")

Sub MAKRO()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual 'hızlandırmak için

Bu Araya Makronuzu Yazın

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True


End Sub

 

[coşkun79]

teşekkür ederim ancak ben makro yazamadığım için konuyu açmıştım. benim en fazla yapabildiğim

Private Sub Worksheet_Activate()
With Range("B2:B" & Cells(Rows.Count, 1).End(3).Row)
.FormulaLocal = "=SUM(Veri!A:A,A2,Veri!E:E)"
.Value = .Value
End With
End Sub

örneğinde olduğu gibi formülün aynısını yazmak yada

Private Sub Worksheet_Activate()
Range("Q8L").FormulaR1C1 ="=IF(AND(COUNTIF(RC2:RC6,R1C),COUNTIF(RC2:RC6,R2C),COUNTIF(RC2:RC6,R3C)),RC1,"""")"
End Sub

örneğinde olduğu gibi elimdeki formülü makro kaydet yöntemi ile makroya çevirip yukarıdaki aralığa yazmak.
Makro kaydet yöntemi ile formülün makro halini öğrenip aralığa yazmamı mı istiyorsunuz anlamadım. Makro yazmak böyle mi oluyor. Çünkü incelediğim makroların bazıları daha farklıydı