Bir formülün görevini makro ile yapmak

[EKREM1661]

Değerli Arkadaşlar..! Ekli dosyada daha iyi görüleceği üzere; mevcut bir formülün gördüğü işi ilgili sayfanın makro kısmında yapmak istedim..
El atabilirseniz teşekkürlerimi ifade ederim..

 

[excel03]

merhaba;

Range("H11").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(RC[-4]=0,0,IF(RC[-3]=0,1,IF(RC[-2]=0,1,IF(RC[-1]=0,1,IF(RC[-1]>--19.05,2/3,1/3)))))"
    Selection.AutoFill Destination:=Range("H11:H41"), Type:=xlFillDefault

 

[EKREM1661]

bu şekil olmadı.. Neyse..ilgilenen arkadaş olmazsa çok da olmazsa olmazlardan değil..

 

[mancubus]

ben olsam şöyle bir şey denerdim.

H sütununun solundaki 4 hücrede de veri olmak kaydı ile (tabii bunu ihtiyacınıza göre değiştirebilirsiniz) H11:H41 aralığında herhangi bir hücreye tıkladığımda veya geldiğimde formül otomatik olarak yazılsın.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

If Not Intersect(Target, Range("H11:H41")) Is Nothing Then
On Error Resume Next
    If Application.CountA(Range(Cells(Target.Row, 4), Cells(Target.Row, 7))) = 4 Then
         Target.FormulaR1C1 = "=IF(RC[-4]=0,0,IF(RC[-3]=0,1,IF(RC[-2]=0,1,IF(RC[-1]=0,1,IF(RC[-1]>--19.05,2/3,1/3)))))"
    End If
End If

End Sub

 

[EKREM1661]

Sn. mancubus harikasınız.. İşte benim de yapmak istediğim buydu.. ilginize ve yardımınıza her şey için teşekkürler.. Hoşça kalınız ve iyi akşamlar diliyorum..