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 prasaja_sat...@yahoo.com
[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>