Formülü Makroya Çevirme

[baykan_m]

Merhaba Arkadaşlar,

Aşağıdaki formülü makro olarak kaydettim. Ancak listemde çok fazla kayıt var. Ve sürekli kayıtlar fazlalaşıyor. Formüldeki a2:a100 , f2:f100 ve g2:g100 olan kısımları makroda listedeki son satır sayısına eşitlemek istiyorum. Yani listemde 15.000 satır var ise a2:a15000 olmasını istiyorum. Ancak makroda bunu beceremedim. Yardımcı olabilirmisiniz arkadaşlar.

Formül:

{=MAK(EĞER($A$2:$A$100=A2;EĞER($F$2:$F$100=F2;($G$2:$G$100))))}

Makro:

Sub Makro10()
'
' Makro10 Makro
'

'
    Range("M5").Select
    Selection.FormulaArray = ""
    Selection.FormulaArray = _
        "=MAX(IF(R2C1:R100C1=R[-3]C[-12],IF(R2C6:R100C6=R[-3]C[-7],(R2C7:R100C7))))"
End Sub

 

[Emir Hüseyin Çoban]

. . .

Formülü tamamen makroya mı çevirmek istiyorsunuz yoksa
hücrede formül kalacak, sadece bitiş satır numara kısmı mı güncellenecek.

. . .

 

[baykan_m]

Merhaba Emir Hüseyin Bey,

Sadece bitiş satır numarasını makroya çevirmek istiyorum.

Yardımınız için şimdiden teşekkürler.

 

[Emir Hüseyin Çoban]

. . .

Formülün D2 hücresine girildiğini varsayarak, aşağıdaki kodları deneyiniz.

Sub kod()
    s = Cells(Rows.Count, "A").End(3).Row
    F = Replace("=MAX(IF($A$2:$A$100=A2,IF($F$2:$F$100=F2,($G$2:$G$100))))", "100", s)
    Range("[COLOR="Blue"]D2[/COLOR]").FormulaArray = F
    Range("[COLOR="blue"]D2[/COLOR]").AutoFill Destination:=Range("[COLOR="blue"]D2:D[/COLOR]" & s), Type:=xlFillDefault
End Sub

. . .

 

[baykan_m]

Çok teşekkürler. Tam istediğim gibi.

İyi çalışmalar