Dear Mbak Titis,
Kalau boleh ikut nimbrung, coba lampirkan dummy filenya.

Untuk mempermudah pembacaan Macro maka sebaiknya Macronya dibuat terstruktur, 
mis,
If Condition Then
    bla bla bla
Else
    la la la
End If


Dengan adanya contoh Worksheet barangkali bisa memperjelas apa yang anda maksud 
dengan :
"apakah bisa rumus diatas di sum dengan rumus dibawah ini"


Salam,
Hendrik Karnadi



________________________________
 From: Titis Ardiyana Wulandari <[email protected]>
To: "[email protected]" <[email protected]> 
Sent: Wednesday, 29 August 2012, 22:12
Subject: Re: [belajar-excel] MACRO
 

  
terimakasih untuk jawabannya Mr.Kid,
tanya lagi..
kalau saya punya rumus dibawah ini:

Sub coba1()

Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F7") = "D"
Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F7") = "N"
Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
Range("F135").Select
ActiveCell.FormulaR1C1 = 0
End If
End If
End If
End Sub

apakah bisa rumus diatas di sum dengan rumus dibawah ini:

Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F8") = "D" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
If Range("F8") = "N" Then
Range("F135").Select
ActiveCell.FormulaR1C1 = 1
Else
Range("F135").Select
ActiveCell.FormulaR1C1 = 0
End If
End If
End If


________________________________
 From: Kid Mr. <[email protected]>
To: [email protected] 
Sent: Wednesday, August 29, 2012 9:41 PM
Subject: Re: [belajar-excel] MACRO
 

  
Koreksi Mods...
Formula :
=SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))

adalah untuk formula di cell f10 bukan g10, jika di cell A3 diberi formula :
=SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
dan di-copy ke cell lain.

Wassalam,
Kid.



2012/8/29 Titis Ardiyana Wulandari <[email protected]>

 
>  
>salam kenal.
>
>terimakasih saya bisa bergabung dengan milis yg sangat bermanfaat ini.
>
>langsung saja.
>saya mau tanya rumus, ketika di excel biasa saya punya rumus di cell A3:
>=SUM((IF(A1="A",1,IF(A1="B",1,0)))+(IF(A2="A",1,IF(A2="B",1,0))))
>
>bagaimana menuliskanya di macro?
>dan bila saya ingin menerapkan rumus tsb dari A3:G10 bagaimana menuliskannya 
>di macro?
>
>terimaksih banyak atas bantuannya
>
>--- Mods ---
>Selamat bergabung dengan milis Belajar-Excel.
>
>File lampiran dapat membantu BeExceller yang ingin turut berbagi alternatif 
>solusi.
>
>Dari penjelasan mbak Wulan di atas :
>Formula di Cell A3 merujuk pada 2 cells sekolom (beda baris). Formula akan 
>dipasang pada cells lain yang pada range A3:G10.
>
>Informasi dari mbak Wulan untuk bentuk formula di G10 akan membantu penyusunan 
>alternatif solusi. Jika formula di A3 disalin ke G10 akan menjadi :
>=SUM((IF(f8="A",1,IF(f8="B",1,0)))+(IF(f9="A",1,IF(f9="B",1,0))))
>
>Apakah benar formula di G10 akan berbunyi demikian ?
>------------
>



 

Kirim email ke