3 Messages
Digest #4769
2
Re: VBA multiple variable untuk If dan For.. Next [2 Attachments] by "Bayu Prasaja" prasaja_satria
Messages
Wed May 22, 2019 2:37 am (PDT) . Posted by:
"Zainul Ulum" zainul_ulum
Mas Bayu,
Kalo tidak pakai VBA bolehkah?
Contoh terlampir.
Wassalam,
-zainul
Sent from Mail for Windows 10
From: Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel]
Sent: Wednesday, May 22, 2019 8:47 AM
To: Yahoogroups
Subject: [belajar-excel] VBA multiple variable untuk If dan For.. Next [1 Attachment]
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
Kalo tidak pakai VBA bolehkah?
Contoh terlampir.
Wassalam,
-zainul
Sent from Mail for Windows 10
From: Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel]
Sent: Wednesday, May 22, 2019 8:47 AM
To: Yahoogroups
Subject: [belajar-excel] VBA multiple variable untuk If dan For.. Next [1 Attachment]
Assalamu'
Sent from Yahoo Mail on Android
Wed May 22, 2019 2:56 am (PDT) . Posted by:
"Agus"
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_satria@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>
>
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_satria@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>
>
Wed May 22, 2019 4:36 pm (PDT) . Posted by:
"Bayu Prasaja" prasaja_satria
Sebenernya yg kosong di kolom B C D dan E itu ada angkanya si mas, cuma saya hapus di lampiran, takutnya bikin bingung hehe, yang paling stabil n bisa dijadikan patokan nilai dikolom A itu mas, mknya saya pgnya patokannya berdasarkan value dikolom A itu mas hehe
Sent from Yahoo Mail on Android
On Wed, 22 May 2019 at 17:37, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Mas Bayu,
Kalo tidak pakai VBA bolehkah?
Contoh terlampir.
Wassalam,
-zainul
Sent from Mail for Windows 10
From: Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel]
Sent: Wednesday, May 22, 2019 8:47 AM
To: Yahoogroups
Subject: [belajar-excel] VBA multiple variable untuk If dan For.. Next [1 Attachment]
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
#yiv8278738376 #yiv8278738376 -- #yiv8278738376ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8278738376 #yiv8278738376ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8278738376 #yiv8278738376ygrp-mkp #yiv8278738376hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8278738376 #yiv8278738376ygrp-mkp #yiv8278738376ads {margin-bottom:10px;}#yiv8278738376 #yiv8278738376ygrp-mkp .yiv8278738376ad {padding:0 0;}#yiv8278738376 #yiv8278738376ygrp-mkp .yiv8278738376ad p {margin:0;}#yiv8278738376 #yiv8278738376ygrp-mkp .yiv8278738376ad a {color:#0000ff;text-decoration:none;}#yiv8278738376 #yiv8278738376ygrp-sponsor #yiv8278738376ygrp-lc {font-family:Arial;}#yiv8278738376 #yiv8278738376ygrp-sponsor #yiv8278738376ygrp-lc #yiv8278738376hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8278738376 #yiv8278738376ygrp-sponsor #yiv8278738376ygrp-lc .yiv8278738376ad {margin-bottom:10px;padding:0 0;}#yiv8278738376 #yiv8278738376actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8278738376 #yiv8278738376activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8278738376 #yiv8278738376activity span {font-weight:700;}#yiv8278738376 #yiv8278738376activity span:first-child {text-transform:uppercase;}#yiv8278738376 #yiv8278738376activity span a {color:#5085b6;text-decoration:none;}#yiv8278738376 #yiv8278738376activity span span {color:#ff7900;}#yiv8278738376 #yiv8278738376activity span .yiv8278738376underline {text-decoration:underline;}#yiv8278738376 .yiv8278738376attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8278738376 .yiv8278738376attach div a {text-decoration:none;}#yiv8278738376 .yiv8278738376attach img {border:none;padding-right:5px;}#yiv8278738376 .yiv8278738376attach label {display:block;margin-bottom:5px;}#yiv8278738376 .yiv8278738376attach label a {text-decoration:none;}#yiv8278738376 blockquote {margin:0 0 0 4px;}#yiv8278738376 .yiv8278738376bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8278738376 .yiv8278738376bold a {text-decoration:none;}#yiv8278738376 dd.yiv8278738376last p a {font-family:Verdana;font-weight:700;}#yiv8278738376 dd.yiv8278738376last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8278738376 dd.yiv8278738376last p span.yiv8278738376yshortcuts {margin-right:0;}#yiv8278738376 div.yiv8278738376attach-table div div a {text-decoration:none;}#yiv8278738376 div.yiv8278738376attach-table {width:400px;}#yiv8278738376 div.yiv8278738376file-title a, #yiv8278738376 div.yiv8278738376file-title a:active, #yiv8278738376 div.yiv8278738376file-title a:hover, #yiv8278738376 div.yiv8278738376file-title a:visited {text-decoration:none;}#yiv8278738376 div.yiv8278738376photo-title a, #yiv8278738376 div.yiv8278738376photo-title a:active, #yiv8278738376 div.yiv8278738376photo-title a:hover, #yiv8278738376 div.yiv8278738376photo-title a:visited {text-decoration:none;}#yiv8278738376 div#yiv8278738376ygrp-mlmsg #yiv8278738376ygrp-msg p a span.yiv8278738376yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8278738376 .yiv8278738376green {color:#628c2a;}#yiv8278738376 .yiv8278738376MsoNormal {margin:0 0 0 0;}#yiv8278738376 o {font-size:0;}#yiv8278738376 #yiv8278738376photos div {float:left;width:72px;}#yiv8278738376 #yiv8278738376photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv8278738376 #yiv8278738376photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8278738376 #yiv8278738376reco-category {font-size:77%;}#yiv8278738376 #yiv8278738376reco-desc {font-size:77%;}#yiv8278738376 .yiv8278738376replbq {margin:4px;}#yiv8278738376 #yiv8278738376ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8278738376 #yiv8278738376ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8278738376 #yiv8278738376ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8278738376 #yiv8278738376ygrp-mlmsg select, #yiv8278738376 input, #yiv8278738376 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8278738376 #yiv8278738376ygrp-mlmsg pre, #yiv8278738376 code {font:115% monospace;}#yiv8278738376 #yiv8278738376ygrp-mlmsg * {line-height:1..22em;}#yiv8278738376 #yiv8278738376ygrp-mlmsg #yiv8278738376logo {padding-bottom:10px;}#yiv8278738376 #yiv8278738376ygrp-msg p a {font-family:Verdana;}#yiv8278738376 #yiv8278738376ygrp-msg p#yiv8278738376attach-count span {color:#1E66AE;font-weight:700;}#yiv8278738376 #yiv8278738376ygrp-reco #yiv8278738376reco-head {color:#ff7900;font-weight:700;}#yiv8278738376 #yiv8278738376ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8278738376 #yiv8278738376ygrp-sponsor #yiv8278738376ov li a {font-size:130%;text-decoration:none;}#yiv8278738376 #yiv8278738376ygrp-sponsor #yiv8278738376ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8278738376 #yiv8278738376ygrp-sponsor #yiv8278738376ov ul {margin:0;padding:0 0 0 8px;}#yiv8278738376 #yiv8278738376ygrp-text {font-family:Georgia;}#yiv8278738376 #yiv8278738376ygrp-text p {margin:0 0 1em 0;}#yiv8278738376 #yiv8278738376ygrp-text tt {font-size:120%;}#yiv8278738376 #yiv8278738376ygrp-vital ul li:last-child {border-right:none !important;}#yiv8278738376
Sent from Yahoo Mail on Android
On Wed, 22 May 2019 at 17:37, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Mas Bayu,
Kalo tidak pakai VBA bolehkah?
Contoh terlampir.
Wassalam,
-zainul
Sent from Mail for Windows 10
From: Bayu Prasaja prasaja_satria@yahoo.com [belajar-excel]
Sent: Wednesday, May 22, 2019 8:47 AM
To: Yahoogroups
Subject: [belajar-excel] VBA multiple variable untuk If dan For.. Next [1 Attachment]
Assalamu'
Sent from Yahoo Mail on Android
#yiv8278738376 #yiv8278738376 -- #yiv8278738376ygrp-
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
bergabung ke milis (subscribe), kirim mail kosong ke: belajar-excel-subscribe@yahoogroups.com
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com
berkunjung ke web milis : http://tech.groups.yahoo.com/group/belajar-excel/messages
melihat file archive / mendownload lampiran : http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di : http://milis-belajar-excel.1048464.n5.nabble.com/
menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar