Formülü Makroya çevirmek.

[sensizsoldum]

Merhaba, Aşağıdaki formülleri makro kaydet ile makroya çevirmek istedim. Sonuç başarısız oldu. Sanırım daha farklı yöntemler ilave edilecek. Makroya çevirmek için yardımcı olabilir misiniz?

=EĞER(D3="";"";D3*E3/100)

=EĞER(VE(G3>0;H3>"");(G3*PARÇAAL(H3;1;2)*PARÇAAL(H3;4;2))/15000;"")

=EĞER(F3="";"";TOPLAM(F3;I3;))

 

[Huseyinkis]

Makroya çevirmek?
Nasıl bir işlem istiyorsunuz yukarıdaki bilgiler sabit hep aynı hücre üzerindenmi işlem yapılacak?

 

[constantinepolisi]

Merhaba Hüseyin Bey,
Formülleri öncelikle Korhan Beyin Yardımıyla tek parça haline getirdik. Aşağıdaki formül H3:H sütuna uygulanacak şekilde makro olması gerekiyor. İlginize teşekkür ederim.

=EĞER(BAĞ_DEĞ_DOLU_SAY(D3:G3)=0;"";D3*E3/100+EĞER(VE(F3<>0;G3<>0);(F3*PARÇAAL(G3;1;2)*PARÇAAL(G3;4;2))/15000;0))

 

[bedri41]

Merhaba Hüseyin Bey,
Formülleri öncelikle Korhan Beyin Yardımıyla tek parça haline getirdik. Aşağıdaki formül H3:H sütuna uygulanacak şekilde makro olması gerekiyor. İlginize teşekkür ederim.

=EĞER(BAĞ_DEĞ_DOLU_SAY(D3:G3)=0;"";D3*E3/100+EĞER(VE(F3<>0;G3<>0);(F3*PARÇAAL(G3;1;2)*PARÇAAL(G3;4;2))/15000;0))

Bir modül içerisine aşağıdaki kodu kopyalayıp deneyin formülünüzü 1000 satır çoğaltır. İsterseniz kod içindeki sayıyı değiştirip kısaltıp uzatabilir veya diğer sorunuzda verdiğim cevap gibi başka bir sutunun uzunluğu kadarda kullanabilirsiniz.

Sub Formul()
    Range("H3").Select
    ActiveCell.FormulaR1C1 = _
        "=IF(COUNTA(RC[-4]:RC[-1])=0,"""",RC[-4]*RC[-3]/100+IF(AND(RC[-2]<>0,RC[-1]<>0),(RC[-2]*MID(RC[-1],1,2)*MID(RC[-1],4,2))/15000,0))"
   Range("H3:H3").AutoFill Destination:=Range("H3:H1000"), Type:=xlFillDefault
End Sub

Kolay Gelsin