Jika pakai VBA, ada baiknya langsung tulis hasil akhirnya saja :
Dim lR As Long, sA As String, dB As Double, dE As Double
With Sheets("Hit")
For lR = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
sA = UCase(Trim(.Cells(lR, 1).Text))
Select Case sA
Case "BB"
If IsNumeric(.Cells(lR, 2).Value) And Len(.Cells(lR,
2).Value) <> 0 Then dB = .Cells(lR, 2).Value
If IsNumeric(.Cells(lR, 5).Value) And Len(.Cells(lR,
5).Value) <> 0 Then dE = .Cells(lR, 5).Value
.Cells(lR, 6).Value = dE + dB + .Cells(lR, 4).Value
Case "ABA": dB = .Cells(lR, 2).Value
Case "E": dE = .Cells(lR, 5).Value
End Select
Next lR
End With
Regards,
Kid
On Wed, May 22, 2019 at 4:56 PM Agus [email protected] [belajar-excel] <
[email protected]> wrote:
>
>
> Wa'alaikumsalam warahmatullah wabarakatuh
> Dear Bayu,
> coba cekripnya diubah menjadi:
> With Sheets("Hit")
> For i = 1 To .Cells(.Rows.Count, 1).End(xlUp).Row
> If .Cells(i, 1).Value = "E" Then
> e = i
> Else
> If .Cells(i, 1).Value = "ABA" Then
> b = i
> Else
> If .Cells(i, 1).Value = "BB" Then
> .Cells(i, 6).FormulaR1C1 = "=RC[-2]+R" &
> e & "C5 + R" & b & "C2"
> End If
> End If
> End If
> Next i
> End With
>
> Wasalamu'alaikumsalam warahmatullah
> Regard
> NangAgus
>
>
>
> On 5/22/2019 08:36, Bayu Prasaja [email protected] [belajar-excel]
> wrote:
>
>
>
> Assalamu'alaikum, selamat pagi para guru, mohon bantuannya untuk
> penyelesaian macro excel, karena keterbatasan pemahaman saya, jadi saya
> gbisa menjelaskan secara rinci, jadi langsung saja ke attatchment. Terima
> kasih sebelumnya, semoga menambah pahala dibulan Ramadhan ini. Aamiin
>
> Sent from Yahoo Mail on Android
> <https://go.onelink.me/107872968?pid=InProduct&c=Global_Internal_YGrowth_AndroidEmailSig__AndroidUsers&af_wl=ym&af_sub1=Internal&af_sub2=Global_YGrowth&af_sub3=EmailSignature>
>
>
>
>
