Tekrarlayan

[Shamutr]

Merhaba,

Aşağıdaki formül ile Tekrarlayan görevleri tek'e indirip her görev için Aktif Gün sayısını hesaplamaktayım.

Data çok olduğundan bu formülü aşağıya çektiğimde dosya çok fazla kasmakta.

Bu formülü Makroda yazabilme olanağımız varmı ?

Formül G2 sütununda aktif. G2 sütunundaki hücrelere bu formülün karşılığını makrodan uygulayabilirmiyiz ?

=IF(F2="";"";IF(COUNTIF($E$2:F2;F2)=1;E2;""))

Teşekkürler,

 

[anemis]

Sub Makro1()
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-1]="""","""",IF(COUNTIF(R2C5:RC[-1],RC[-1])=1,RC[-2],""""))"
    Range("G2").Select
    Selection.AutoFill Destination:=Range("G2:G20"), Type:=xlFillDefault
    Range("G2:G20").Select
End Sub

Belki işinize yarar

 

[Shamutr]

Merhaba

Çok teşekkür ederim, çok büyük kolaylık sağladınız, emeğinize sağlık.