Terimakasih banyak Mr. Kid dan Pa NangAgus, Jazakallahu khairan atas
bantuannya. Alhamdulillah jadi terselesaikan.
Sent from Yahoo Mail on Android
On Sun, 26 May 2019 at 17:36, 'Mr. Kid' mr.nm...@gmail.com
[belajar-excel]<belajar-excel@yahoogroups.com> wrote:
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 nanga...@gmail.com [belajar-excel]
<belajar-excel@yahoogroups.com> 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 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
#yiv4934007555 #yiv4934007555 -- #yiv4934007555ygrp-mkp {border:1px solid
#d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4934007555
#yiv4934007555ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4934007555
#yiv4934007555ygrp-mkp #yiv4934007555hd
{color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}#yiv4934007555 #yiv4934007555ygrp-mkp #yiv4934007555ads
{margin-bottom:10px;}#yiv4934007555 #yiv4934007555ygrp-mkp .yiv4934007555ad
{padding:0 0;}#yiv4934007555 #yiv4934007555ygrp-mkp .yiv4934007555ad p
{margin:0;}#yiv4934007555 #yiv4934007555ygrp-mkp .yiv4934007555ad a
{color:#0000ff;text-decoration:none;}#yiv4934007555 #yiv4934007555ygrp-sponsor
#yiv4934007555ygrp-lc {font-family:Arial;}#yiv4934007555
#yiv4934007555ygrp-sponsor #yiv4934007555ygrp-lc #yiv4934007555hd {margin:10px
0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4934007555
#yiv4934007555ygrp-sponsor #yiv4934007555ygrp-lc .yiv4934007555ad
{margin-bottom:10px;padding:0 0;}#yiv4934007555 #yiv4934007555actions
{font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4934007555
#yiv4934007555activity
{background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4934007555
#yiv4934007555activity span {font-weight:700;}#yiv4934007555
#yiv4934007555activity span:first-child
{text-transform:uppercase;}#yiv4934007555 #yiv4934007555activity span a
{color:#5085b6;text-decoration:none;}#yiv4934007555 #yiv4934007555activity span
span {color:#ff7900;}#yiv4934007555 #yiv4934007555activity span
.yiv4934007555underline {text-decoration:underline;}#yiv4934007555
.yiv4934007555attach
{clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}#yiv4934007555 .yiv4934007555attach div a
{text-decoration:none;}#yiv4934007555 .yiv4934007555attach img
{border:none;padding-right:5px;}#yiv4934007555 .yiv4934007555attach label
{display:block;margin-bottom:5px;}#yiv4934007555 .yiv4934007555attach label a
{text-decoration:none;}#yiv4934007555 blockquote {margin:0 0 0
4px;}#yiv4934007555 .yiv4934007555bold
{font-family:Arial;font-size:13px;font-weight:700;}#yiv4934007555
.yiv4934007555bold a {text-decoration:none;}#yiv4934007555 dd.yiv4934007555last
p a {font-family:Verdana;font-weight:700;}#yiv4934007555 dd.yiv4934007555last p
span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4934007555
dd.yiv4934007555last p span.yiv4934007555yshortcuts
{margin-right:0;}#yiv4934007555 div.yiv4934007555attach-table div div a
{text-decoration:none;}#yiv4934007555 div.yiv4934007555attach-table
{width:400px;}#yiv4934007555 div.yiv4934007555file-title a, #yiv4934007555
div.yiv4934007555file-title a:active, #yiv4934007555
div.yiv4934007555file-title a:hover, #yiv4934007555 div.yiv4934007555file-title
a:visited {text-decoration:none;}#yiv4934007555 div.yiv4934007555photo-title a,
#yiv4934007555 div.yiv4934007555photo-title a:active, #yiv4934007555
div.yiv4934007555photo-title a:hover, #yiv4934007555
div.yiv4934007555photo-title a:visited {text-decoration:none;}#yiv4934007555
div#yiv4934007555ygrp-mlmsg #yiv4934007555ygrp-msg p a
span.yiv4934007555yshortcuts
{font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4934007555
.yiv4934007555green {color:#628c2a;}#yiv4934007555 .yiv4934007555MsoNormal
{margin:0 0 0 0;}#yiv4934007555 o {font-size:0;}#yiv4934007555
#yiv4934007555photos div {float:left;width:72px;}#yiv4934007555
#yiv4934007555photos div div {border:1px solid
#666666;min-height:62px;overflow:hidden;width:62px;}#yiv4934007555
#yiv4934007555photos div label
{color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4934007555
#yiv4934007555reco-category {font-size:77%;}#yiv4934007555
#yiv4934007555reco-desc {font-size:77%;}#yiv4934007555 .yiv4934007555replbq
{margin:4px;}#yiv4934007555 #yiv4934007555ygrp-actbar div a:first-child
{margin-right:2px;padding-right:5px;}#yiv4934007555 #yiv4934007555ygrp-mlmsg
{font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4934007555
#yiv4934007555ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4934007555
#yiv4934007555ygrp-mlmsg select, #yiv4934007555 input, #yiv4934007555 textarea
{font:99% Arial, Helvetica, clean, sans-serif;}#yiv4934007555
#yiv4934007555ygrp-mlmsg pre, #yiv4934007555 code {font:115%
monospace;}#yiv4934007555 #yiv4934007555ygrp-mlmsg *
{line-height:1.22em;}#yiv4934007555 #yiv4934007555ygrp-mlmsg #yiv4934007555logo
{padding-bottom:10px;}#yiv4934007555 #yiv4934007555ygrp-msg p a
{font-family:Verdana;}#yiv4934007555 #yiv4934007555ygrp-msg
p#yiv4934007555attach-count span {color:#1E66AE;font-weight:700;}#yiv4934007555
#yiv4934007555ygrp-reco #yiv4934007555reco-head
{color:#ff7900;font-weight:700;}#yiv4934007555 #yiv4934007555ygrp-reco
{margin-bottom:20px;padding:0px;}#yiv4934007555 #yiv4934007555ygrp-sponsor
#yiv4934007555ov li a {font-size:130%;text-decoration:none;}#yiv4934007555
#yiv4934007555ygrp-sponsor #yiv4934007555ov li
{font-size:77%;list-style-type:square;padding:6px 0;}#yiv4934007555
#yiv4934007555ygrp-sponsor #yiv4934007555ov ul {margin:0;padding:0 0 0
8px;}#yiv4934007555 #yiv4934007555ygrp-text
{font-family:Georgia;}#yiv4934007555 #yiv4934007555ygrp-text p {margin:0 0 1em
0;}#yiv4934007555 #yiv4934007555ygrp-text tt {font-size:120%;}#yiv4934007555
#yiv4934007555ygrp-vital ul li:last-child {border-right:none
!important;}#yiv4934007555
