9 Messages
Digest #4814
1a
Re: menampilkan hasil tanpa formula di excel denganscript macro by "Mr. Kid" nmkid.family@ymail.com
Messages
Mon Aug 5, 2019 11:34 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wkwkwk...
panjang juga trit ini...
dari files terlampir, saya lebih suka gak pake copy formula, tapi pakai
pivot table (pivot consolidation range) seperti di file lampiran ke-2
tapi itu kalo saya loh ya...
Regards,
Kid
On Mon, Aug 5, 2019 at 11:59 PM Zainul Ulum zainul_ulum@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Sambil menunggu penjelasan rumsunya,
>
> Silakan dipelajari macro terlampir, semoga sesuai harapan.
>
> Wassalam
>
> -zainul
>
>
>
>
>
> Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for
> Windows 10
>
>
>
> *From: *Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Monday, August 5, 2019 11:19 PM
> *To: *belajar-excel@yahoogroups.com
> *Subject: *RE: [belajar-excel] menampilkan hasil tanpa formula di excel
> denganscript macro
>
>
>
>
>
> Mas Hairul Anam,
>
> Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan
> bias bantu menyederhanakan.
>
>
>
> Terimakasih,
>
> -zainul
>
>
>
>
>
>
>
> Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for
> Windows 10
>
>
>
> *From: *HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Saturday, August 3, 2019 4:35 PM
> *To: *belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] menampilkan hasil tanpa formula di excel
> denganscript macro [1 Attachment]
>
>
>
>
>
> Maaf
>
>
>
> Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa
> code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil
> formulanya saja
>
>
>
> Terimakasih
>
>
>
> Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups..com>
> menulis:
>
>
>
>
>
>
>
>
>
>
> Langsung ke TKP aja ya di file terlampir.
>
>
>
> Salam,
>
> HK
>
>
>
> Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
>
>
> Makasih Mas HK
>
>
>
> Maaf, Jika menggunakan
>
> code Sheets("b").Range("c4").Value2 = *Evaluate(*
> "=VLOOKUP(B4,a!B4:D6,2,FALSE)"*)*
>
> hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000
> code copy paste hasilnya seperti apa ya
>
>
>
> Terimakasih bayak
>
> Maaf, jika saya kurang paham masalah code macro
>
> Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups..com>
> menulis:
>
>
>
>
>
>
>
> Coba ganti codenya spt ini :
>
> Sheets("b").Range("c4").Value2 = *Evaluate(*"=VLOOKUP(B4,a!B4:D6,2,FALSE)"
> *)*
>
>
>
> Salam,
>
> HK
>
>
>
>
>
> Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
>
>
> Salam
>
> Para Master
>
>
>
> mohon pencerahahannya dengan code script macro menampilkan hasil formula
> tanpa menampilkan rumus di cell excel, seperti file terlampir
>
>
>
> Terimakasih
>
>
>
> Assalamualaikum
>
>
>
> Hairul Alam
>
>
>
>
>
>
>
panjang juga trit ini...
dari files terlampir, saya lebih suka gak pake copy formula, tapi pakai
pivot table (pivot consolidation range) seperti di file lampiran ke-2
tapi itu kalo saya loh ya...
Regards,
Kid
On Mon, Aug 5, 2019 at 11:59 PM Zainul Ulum zainul_ulum@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Sambil menunggu penjelasan rumsunya,
>
> Silakan dipelajari macro terlampir, semoga sesuai harapan.
>
> Wassalam
>
> -zainul
>
>
>
>
>
> Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for
> Windows 10
>
>
>
> *From: *Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Monday, August 5, 2019 11:19 PM
> *To: *belajar-excel@yahoogroups.com
> *Subject: *RE: [belajar-excel] menampilkan hasil tanpa formula di excel
> denganscript macro
>
>
>
>
>
> Mas Hairul Anam,
>
> Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan
> bias bantu menyederhanakan.
>
>
>
> Terimakasih,
>
> -zainul
>
>
>
>
>
>
>
> Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for
> Windows 10
>
>
>
> *From: *HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Saturday, August 3, 2019 4:35 PM
> *To: *belajar-excel@yahoogroups.com
> *Subject: *Re: [belajar-excel] menampilkan hasil tanpa formula di excel
> denganscript macro [1 Attachment]
>
>
>
>
>
> Maaf
>
>
>
> Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa
> code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil
> formulanya saja
>
>
>
> Terimakasih
>
>
>
> Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups..com>
> menulis:
>
>
>
>
>
>
>
>
>
>
> Langsung ke TKP aja ya di file terlampir.
>
>
>
> Salam,
>
> HK
>
>
>
> Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
>
>
> Makasih Mas HK
>
>
>
> Maaf, Jika menggunakan
>
> code Sheets("b").Range("c4").Value2 = *Evaluate(*
> "=VLOOKUP(B4,a!B4:D6,2,FALSE)"*)*
>
> hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000
> code copy paste hasilnya seperti apa ya
>
>
>
> Terimakasih bayak
>
> Maaf, jika saya kurang paham masalah code macro
>
> Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi
> hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups..com>
> menulis:
>
>
>
>
>
>
>
> Coba ganti codenya spt ini :
>
> Sheets("b").Range("c4").Value2 = *Evaluate(*"=VLOOKUP(B4,a!B4:D6,2,FALSE)"
> *)*
>
>
>
> Salam,
>
> HK
>
>
>
>
>
> Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
>
>
>
> Salam
>
> Para Master
>
>
>
> mohon pencerahahannya dengan code script macro menampilkan hasil formula
> tanpa menampilkan rumus di cell excel, seperti file terlampir
>
>
>
> Terimakasih
>
>
>
> Assalamualaikum
>
>
>
> Hairul Alam
>
>
>
>
>
>
>
Tue Aug 6, 2019 2:29 am (PDT) . Posted by:
"HAIRUL ALAM"
Terimakasih Master,
Maksud rumusnya seperti yang saya cantumkan di module macropada OUTPUT menggunakan logika IF
Sheets("OUTPUT").Range("B2").FORMULA = "=IF(INPUT!C2=1,1,IF(INPUT!D2=1,1,IF(INPUT!E2=1,1,IF(INPUT!F2=1,1,IF(INPUT!G2=1,1,IF(INPUT!H2=1,1,IF(INPUT!I2=1,1,IF(INPUT!J2=1,1,IF(INPUT!K2=1,1,IF(INPUT!L2=1,1,IF(INPUT!M2=1,1,IF(INPUT!N2=1,1,IF(INPUT!O2=1,1,IF(INPUT!P2=1,1,""""))))))))))))))"
jadi intinya bila input cell C sampai P itu diisi angka misal 1 sampai 100 maka di OUTPUT cell B sampai CW (1-100) dimana salah satu angka yang masuk di INPUT cell C - P maka di OUTPUT akan ada nilai 1
cuma rumus tersebut diatas terlalu panjang dan saya bingung mengaplikasikan ke macro sederhana
dengan macro lampiran yang dikirimkan mas zainul, bisa membantu agar hasilnya saja yang terinput dan rumus tidak ikut
Terimakasih banyak, untuk rinciannya, dan syukur kalau ada penyederhanaan lagi Pada Selasa, 6 Agustus 2019 00.00.01 WIB, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Sambil menunggu penjelasan rumsunya,
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
#yiv4896027138 #yiv4896027138 -- #yiv4896027138ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4896027138 #yiv4896027138ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4896027138 #yiv4896027138ygrp-mkp #yiv4896027138hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4896027138 #yiv4896027138ygrp-mkp #yiv4896027138ads {margin-bottom:10px;}#yiv4896027138 #yiv4896027138ygrp-mkp .yiv4896027138ad {padding:0 0;}#yiv4896027138 #yiv4896027138ygrp-mkp .yiv4896027138ad p {margin:0;}#yiv4896027138 #yiv4896027138ygrp-mkp .yiv4896027138ad a {color:#0000ff;text-decoration:none;}#yiv4896027138 #yiv4896027138ygrp-sponsor #yiv4896027138ygrp-lc {font-family:Arial;}#yiv4896027138 #yiv4896027138ygrp-sponsor #yiv4896027138ygrp-lc #yiv4896027138hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4896027138 #yiv4896027138ygrp-sponsor #yiv4896027138ygrp-lc .yiv4896027138ad {margin-bottom:10px;padding:0 0;}#yiv4896027138 #yiv4896027138actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4896027138 #yiv4896027138activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4896027138 #yiv4896027138activity span {font-weight:700;}#yiv4896027138 #yiv4896027138activity span:first-child {text-transform:uppercase;}#yiv4896027138 #yiv4896027138activity span a {color:#5085b6;text-decoration:none;}#yiv4896027138 #yiv4896027138activity span span {color:#ff7900;}#yiv4896027138 #yiv4896027138activity span .yiv4896027138underline {text-decoration:underline;}#yiv4896027138 .yiv4896027138attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4896027138 .yiv4896027138attach div a {text-decoration:none;}#yiv4896027138 .yiv4896027138attach img {border:none;padding-right:5px;}#yiv4896027138 .yiv4896027138attach label {display:block;margin-bottom:5px;}#yiv4896027138 .yiv4896027138attach label a {text-decoration:none;}#yiv4896027138 blockquote {margin:0 0 0 4px;}#yiv4896027138 .yiv4896027138bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4896027138 .yiv4896027138bold a {text-decoration:none;}#yiv4896027138 dd.yiv4896027138last p a {font-family:Verdana;font-weight:700;}#yiv4896027138 dd.yiv4896027138last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4896027138 dd.yiv4896027138last p span.yiv4896027138yshortcuts {margin-right:0;}#yiv4896027138 div.yiv4896027138attach-table div div a {text-decoration:none;}#yiv4896027138 div.yiv4896027138attach-table {width:400px;}#yiv4896027138 div.yiv4896027138file-title a, #yiv4896027138 div.yiv4896027138file-title a:active, #yiv4896027138 div.yiv4896027138file-title a:hover, #yiv4896027138 div.yiv4896027138file-title a:visited {text-decoration:none;}#yiv4896027138 div.yiv4896027138photo-title a, #yiv4896027138 div.yiv4896027138photo-title a:active, #yiv4896027138 div.yiv4896027138photo-title a:hover, #yiv4896027138 div.yiv4896027138photo-title a:visited {text-decoration:none;}#yiv4896027138 div#yiv4896027138ygrp-mlmsg #yiv4896027138ygrp-msg p a span.yiv4896027138yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4896027138 .yiv4896027138green {color:#628c2a;}#yiv4896027138 .yiv4896027138MsoNormal {margin:0 0 0 0;}#yiv4896027138 o {font-size:0;}#yiv4896027138 #yiv4896027138photos div {float:left;width:72px;}#yiv4896027138 #yiv4896027138photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4896027138 #yiv4896027138photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4896027138 #yiv4896027138reco-category {font-size:77%;}#yiv4896027138 #yiv4896027138reco-desc {font-size:77%;}#yiv4896027138 .yiv4896027138replbq {margin:4px;}#yiv4896027138 #yiv4896027138ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4896027138 #yiv4896027138ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4896027138 #yiv4896027138ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4896027138 #yiv4896027138ygrp-mlmsg select, #yiv4896027138 input, #yiv4896027138 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4896027138 #yiv4896027138ygrp-mlmsg pre, #yiv4896027138 code {font:115% monospace;}#yiv4896027138 #yiv4896027138ygrp-mlmsg * {line-height:1..22em;}#yiv4896027138 #yiv4896027138ygrp-mlmsg #yiv4896027138logo {padding-bottom:10px;}#yiv4896027138 #yiv4896027138ygrp-msg p a {font-family:Verdana;}#yiv4896027138 #yiv4896027138ygrp-msg p#yiv4896027138attach-count span {color:#1E66AE;font-weight:700;}#yiv4896027138 #yiv4896027138ygrp-reco #yiv4896027138reco-head {color:#ff7900;font-weight:700;}#yiv4896027138 #yiv4896027138ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4896027138 #yiv4896027138ygrp-sponsor #yiv4896027138ov li a {font-size:130%;text-decoration:none;}#yiv4896027138 #yiv4896027138ygrp-sponsor #yiv4896027138ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4896027138 #yiv4896027138ygrp-sponsor #yiv4896027138ov ul {margin:0;padding:0 0 0 8px;}#yiv4896027138 #yiv4896027138ygrp-text {font-family:Georgia;}#yiv4896027138 #yiv4896027138ygrp-text p {margin:0 0 1em 0;}#yiv4896027138 #yiv4896027138ygrp-text tt {font-size:120%;}#yiv4896027138 #yiv4896027138ygrp-vital ul li:last-child {border-right:none !important;}#yiv4896027138
Maksud rumusnya seperti yang saya cantumkan di module macropada OUTPUT menggunakan logika IF
Sheets("OUTPUT").Range("B2").FORMULA = "=IF(INPUT!C2=1,1,IF(INPUT!D2=1,1,IF(INPUT!E2=1,1,IF(INPUT!F2=1,1,IF(INPUT!G2=1,1,IF(INPUT!H2=1,1,IF(INPUT!I2=1,1,IF(INPUT!J2=1,1,IF(INPUT!K2=1,1,IF(INPUT!L2=1,1,IF(INPUT!M2=1,1,IF(INPUT!N2=1,1,IF(INPUT!O2=1,1,IF(INPUT!P2=1,1,""""))))))))))))))"
jadi intinya bila input cell C sampai P itu diisi angka misal 1 sampai 100 maka di OUTPUT cell B sampai CW (1-100) dimana salah satu angka yang masuk di INPUT cell C - P maka di OUTPUT akan ada nilai 1
cuma rumus tersebut diatas terlalu panjang dan saya bingung mengaplikasikan ke macro sederhana
dengan macro lampiran yang dikirimkan mas zainul, bisa membantu agar hasilnya saja yang terinput dan rumus tidak ikut
Terimakasih banyak, untuk rinciannya, dan syukur kalau ada penyederhanaan lagi Pada Selasa, 6 Agustus 2019 00.00.01 WIB, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Sambil menunggu penjelasan rumsunya,
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
#yiv4896027138 #yiv4896027138 -- #yiv4896027138ygrp-
Tue Aug 6, 2019 7:00 am (PDT) . Posted by:
"Zainul Ulum" zainul_ulum
Mas Hairul Anam,.
Kalo rumus di B2=REPT(1,COUNTIFS(INPUT!$C2:$P2,B$1)>0)
Sama nggak hasilnya?
Thanks,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Tuesday, August 6, 2019 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di exceldenganscript macro
Terimakasih Master,
Maksud rumusnya seperti yang saya cantumkan di module macro
pada OUTPUT menggunakan logika IF
Sheets("OUTPUT").Range("B2").FORMULA = "=IF(INPUT!C2=1,1,IF(INPUT!D2=1,1,IF(INPUT!E2=1,1,IF(INPUT!F2=1,1,IF(INPUT!G2=1,1,IF(INPUT!H2=1,1,IF(INPUT!I2=1,1,IF(INPUT!J2=1,1,IF(INPUT!K2=1,1,IF(INPUT!L2=1,1,IF(INPUT!M2=1,1,IF(INPUT!N2=1,1,IF(INPUT!O2=1,1,IF(INPUT!P2=1,1,""""))))))))))))))"
jadi intinya bila input cell C sampai P itu diisi angka misal 1 sampai 100 maka di OUTPUT cell B sampai CW (1-100) dimana salah satu angka yang masuk di INPUT cell C - P maka di OUTPUT akan ada nilai 1
cuma rumus tersebut diatas terlalu panjang dan saya bingung mengaplikasikan ke macro sederhana
dengan macro lampiran yang dikirimkan mas zainul, bisa membantu agar hasilnya saja yang terinput dan rumus tidak ikut
Terimakasih banyak, untuk rinciannya, dan syukur kalau ada penyederhanaan lagi
Pada Selasa, 6 Agustus 2019 00.00.01 WIB, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Sambil menunggu penjelasan rumsunya,
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
Kalo rumus di B2=REPT(1,COUNTIFS(INPUT!$C2:$P2,B$1)>0)
Sama nggak hasilnya?
Thanks,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Tuesday, August 6, 2019 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di exceldenganscript macro
Terimakasih Master,
Maksud rumusnya seperti yang saya cantumkan di module macro
pada OUTPUT menggunakan logika IF
Sheets("OUTPUT").Range("B2").FORMULA = "=IF(INPUT!C2=1,1,IF(INPUT!D2=1,1,IF(INPUT!E2=1,1,IF(INPUT!F2=1,1,IF(INPUT!G2=1,1,IF(INPUT!H2=1,1,IF(INPUT!I2=1,1,IF(INPUT!J2=1,1,IF(INPUT!K2=1,1,IF(INPUT!L2=1,1,IF(INPUT!M2=1,1,IF(INPUT!N2=1,1,IF(INPUT!O2=1,1,IF(INPUT!P2=1,1,""""))))))))))))))"
jadi intinya bila input cell C sampai P itu diisi angka misal 1 sampai 100 maka di OUTPUT cell B sampai CW (1-100) dimana salah satu angka yang masuk di INPUT cell C - P maka di OUTPUT akan ada nilai 1
cuma rumus tersebut diatas terlalu panjang dan saya bingung mengaplikasikan ke macro sederhana
dengan macro lampiran yang dikirimkan mas zainul, bisa membantu agar hasilnya saja yang terinput dan rumus tidak ikut
Terimakasih banyak, untuk rinciannya, dan syukur kalau ada penyederhanaan lagi
Pada Selasa, 6 Agustus 2019 00.00.01 WIB, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Sambil menunggu penjelasan rumsunya,
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
Tue Aug 6, 2019 3:47 pm (PDT) . Posted by:
"HAIRUL ALAM"
Salam Maz Zainul
Maaf Mas Zainul, mungkin sama tapi yang saya maksudkan di INPUT itu adalah code no yang jumlahnya kebetulan 100 bisa saja bukan angka misalnya saya kasi masukkan C-01 terus di kolom B1 (1 atau C-01) nilai baris B2 = 1
berarti kalau pake rumus IF pada OUTPUT cell B2 : =IF(INPUT!B2="C-01",1,"") dan seterusnya Colom C1 (2 atau C-02) maka saya gunakan rumus C2 : =IF(INPUT!B2="C-02",1,""), begitulah kira-kira, cuma kalau seperti Rumus yang sama buat di macro kan agak panjang Mas, makanya penyederhanaannya yang saya bingung
TerimakasihAssalamualaikum
Pada Selasa, 6 Agustus 2019 21.23.39 GMT+7, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Mas Hairul Anam,.
Kalo rumus di B2=REPT(1,COUNTIFS(INPUT!$C2:$P2,B$1)>0)
Sama nggak hasilnya?
Thanks,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Tuesday, August 6, 2019 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di exceldenganscript macro
Terimakasih Master,
Maksud rumusnya seperti yang saya cantumkan di module macro
pada OUTPUT menggunakan logika IF
Sheets("OUTPUT").Range("B2").FORMULA = "=IF(INPUT!C2=1,1,IF(INPUT!D2=1,1,IF(INPUT!E2=1,1,IF(INPUT!F2=1,1,IF(INPUT!G2=1,1,IF(INPUT!H2=1,1,IF(INPUT!I2=1,1,IF(INPUT!J2=1,1,IF(INPUT!K2=1,1,IF(INPUT!L2=1,1,IF(INPUT!M2=1,1,IF(INPUT!N2=1,1,IF(INPUT!O2=1,1,IF(INPUT!P2=1,1,""""))))))))))))))"
jadi intinya bila input cell C sampai P itu diisi angka misal 1 sampai 100 maka di OUTPUT cell B sampai CW (1-100) dimana salah satu angka yang masuk di INPUT cell C - P maka di OUTPUT akan ada nilai 1
cuma rumus tersebut diatas terlalu panjang dan saya bingung mengaplikasikan ke macro sederhana
dengan macro lampiran yang dikirimkan mas zainul, bisa membantu agar hasilnya saja yang terinput dan rumus tidak ikut
Terimakasih banyak, untuk rinciannya, dan syukur kalau ada penyederhanaan lagi
Pada Selasa, 6 Agustus 2019 00.00.01 WIB, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Sambil menunggu penjelasan rumsunya,
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4")..Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
#yiv8203903492 #yiv8203903492 -- #yiv8203903492ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv8203903492 #yiv8203903492ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv8203903492 #yiv8203903492ygrp-mkp #yiv8203903492hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv8203903492 #yiv8203903492ygrp-mkp #yiv8203903492ads {margin-bottom:10px;}#yiv8203903492 #yiv8203903492ygrp-mkp .yiv8203903492ad {padding:0 0;}#yiv8203903492 #yiv8203903492ygrp-mkp .yiv8203903492ad p {margin:0;}#yiv8203903492 #yiv8203903492ygrp-mkp .yiv8203903492ad a {color:#0000ff;text-decoration:none;}#yiv8203903492 #yiv8203903492ygrp-sponsor #yiv8203903492ygrp-lc {font-family:Arial;}#yiv8203903492 #yiv8203903492ygrp-sponsor #yiv8203903492ygrp-lc #yiv8203903492hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv8203903492 #yiv8203903492ygrp-sponsor #yiv8203903492ygrp-lc .yiv8203903492ad {margin-bottom:10px;padding:0 0;}#yiv8203903492 #yiv8203903492actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv8203903492 #yiv8203903492activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv8203903492 #yiv8203903492activity span {font-weight:700;}#yiv8203903492 #yiv8203903492activity span:first-child {text-transform:uppercase;}#yiv8203903492 #yiv8203903492activity span a {color:#5085b6;text-decoration:none;}#yiv8203903492 #yiv8203903492activity span span {color:#ff7900;}#yiv8203903492 #yiv8203903492activity span .yiv8203903492underline {text-decoration:underline;}#yiv8203903492 .yiv8203903492attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv8203903492 .yiv8203903492attach div a {text-decoration:none;}#yiv8203903492 .yiv8203903492attach img {border:none;padding-right:5px;}#yiv8203903492 .yiv8203903492attach label {display:block;margin-bottom:5px;}#yiv8203903492 .yiv8203903492attach label a {text-decoration:none;}#yiv8203903492 blockquote {margin:0 0 0 4px;}#yiv8203903492 .yiv8203903492bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv8203903492 .yiv8203903492bold a {text-decoration:none;}#yiv8203903492 dd.yiv8203903492last p a {font-family:Verdana;font-weight:700;}#yiv8203903492 dd..yiv8203903492last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv8203903492 dd.yiv8203903492last p span.yiv8203903492yshortcuts {margin-right:0;}#yiv8203903492 div.yiv8203903492attach-table div div a {text-decoration:none;}#yiv8203903492 div.yiv8203903492attach-table {width:400px;}#yiv8203903492 div.yiv8203903492file-title a, #yiv8203903492 div.yiv8203903492file-title a:active, #yiv8203903492 div.yiv8203903492file-title a:hover, #yiv8203903492 div.yiv8203903492file-title a:visited {text-decoration:none;}#yiv8203903492 div.yiv8203903492photo-title a, #yiv8203903492 div.yiv8203903492photo-title a:active, #yiv8203903492 div.yiv8203903492photo-title a:hover, #yiv8203903492 div.yiv8203903492photo-title a:visited {text-decoration:none;}#yiv8203903492 div#yiv8203903492ygrp-mlmsg #yiv8203903492ygrp-msg p a span.yiv8203903492yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv8203903492 .yiv8203903492green {color:#628c2a;}#yiv8203903492 .yiv8203903492MsoNormal {margin:0 0 0 0;}#yiv8203903492 o {font-size:0;}#yiv8203903492 #yiv8203903492photos div {float:left;width:72px;}#yiv8203903492 #yiv8203903492photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv8203903492 #yiv8203903492photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv8203903492 #yiv8203903492reco-category {font-size:77%;}#yiv8203903492 #yiv8203903492reco-desc {font-size:77%;}#yiv8203903492 .yiv8203903492replbq {margin:4px;}#yiv8203903492 #yiv8203903492ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv8203903492 #yiv8203903492ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv8203903492 #yiv8203903492ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv8203903492 #yiv8203903492ygrp-mlmsg select, #yiv8203903492 input, #yiv8203903492 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv8203903492 #yiv8203903492ygrp-mlmsg pre, #yiv8203903492 code {font:115% monospace;}#yiv8203903492 #yiv8203903492ygrp-mlmsg * {line-height:1.22em;}#yiv8203903492 #yiv8203903492ygrp-mlmsg #yiv8203903492logo {padding-bottom:10px;}#yiv8203903492 #yiv8203903492ygrp-msg p a {font-family:Verdana;}#yiv8203903492 #yiv8203903492ygrp-msg p#yiv8203903492attach-count span {color:#1E66AE;font-weight:700;}#yiv8203903492 #yiv8203903492ygrp-reco #yiv8203903492reco-head {color:#ff7900;font-weight:700;}#yiv8203903492 #yiv8203903492ygrp-reco {margin-bottom:20px;padding:0px;}#yiv8203903492 #yiv8203903492ygrp-sponsor #yiv8203903492ov li a {font-size:130%;text-decoration:none;}#yiv8203903492 #yiv8203903492ygrp-sponsor #yiv8203903492ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv8203903492 #yiv8203903492ygrp-sponsor #yiv8203903492ov ul {margin:0;padding:0 0 0 8px;}#yiv8203903492 #yiv8203903492ygrp-text {font-family:Georgia;}#yiv8203903492 #yiv8203903492ygrp-text p {margin:0 0 1em 0;}#yiv8203903492 #yiv8203903492ygrp-text tt {font-size:120%;}#yiv8203903492 #yiv8203903492ygrp-vital ul li:last-child {border-right:none !important;}#yiv8203903492
Maaf Mas Zainul, mungkin sama tapi yang saya maksudkan di INPUT itu adalah code no yang jumlahnya kebetulan 100 bisa saja bukan angka misalnya saya kasi masukkan C-01 terus di kolom B1 (1 atau C-01) nilai baris B2 = 1
berarti kalau pake rumus IF pada OUTPUT cell B2 : =IF(INPUT!B2="C-01",1,"") dan seterusnya Colom C1 (2 atau C-02) maka saya gunakan rumus C2 : =IF(INPUT!B2="C-02",1,""), begitulah kira-kira, cuma kalau seperti Rumus yang sama buat di macro kan agak panjang Mas, makanya penyederhanaannya yang saya bingung
TerimakasihAssalamualaikum
Pada Selasa, 6 Agustus 2019 21.23.39 GMT+7, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Mas Hairul Anam,.
Kalo rumus di B2=REPT(1,COUNTIFS(INPUT!$C2:$P2,B$1)>0)
Sama nggak hasilnya?
Thanks,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Tuesday, August 6, 2019 4:30 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di exceldenganscript macro
Terimakasih Master,
Maksud rumusnya seperti yang saya cantumkan di module macro
pada OUTPUT menggunakan logika IF
Sheets("OUTPUT").Range("B2").FORMULA = "=IF(INPUT!C2=1,1,IF(INPUT!D2=1,1,IF(INPUT!E2=1,1,IF(INPUT!F2=1,1,IF(INPUT!G2=1,1,IF(INPUT!H2=1,1,IF(INPUT!I2=1,1,IF(INPUT!J2=1,1,IF(INPUT!K2=1,1,IF(INPUT!L2=1,1,IF(INPUT!M2=1,1,IF(INPUT!N2=1,1,IF(INPUT!O2=1,1,IF(INPUT!P2=1,1,""""))))))))))))))"
jadi intinya bila input cell C sampai P itu diisi angka misal 1 sampai 100 maka di OUTPUT cell B sampai CW (1-100) dimana salah satu angka yang masuk di INPUT cell C - P maka di OUTPUT akan ada nilai 1
cuma rumus tersebut diatas terlalu panjang dan saya bingung mengaplikasikan ke macro sederhana
dengan macro lampiran yang dikirimkan mas zainul, bisa membantu agar hasilnya saja yang terinput dan rumus tidak ikut
Terimakasih banyak, untuk rinciannya, dan syukur kalau ada penyederhanaan lagi
Pada Selasa, 6 Agustus 2019 00.00.01 WIB, Zainul Ulum zainul_ulum@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Sambil menunggu penjelasan rumsunya,
Silakan dipelajari macro terlampir, semoga sesuai harapan.
Wassalam
-zainul
Sent from Mail for Windows 10
From: Zainul Ulum zainul_ulum@yahoo.com [belajar-excel]
Sent: Monday, August 5, 2019 11:19 PM
To: belajar-excel@yahoogroups.com
Subject: RE: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro
Mas Hairul Anam,
Apakah maksud atau penjelasan rumusnya bagaimana? Barangkali rekan-rekan bias bantu menyederhanakan.
Terimakasih,
-zainul
Sent from Mail for Windows 10
From: HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel]
Sent: Saturday, August 3, 2019 4:35 PM
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] menampilkan hasil tanpa formula di excel denganscript macro [1 Attachment]
Maaf
Bila bukan vlookup melainkan rumus seperti file terlampir, seperti apa code macro copy pastenya agar rumusnya tidak tampil, dan hanya hasil formulanya saja
Terimakasih
Pada Jumat, 2 Agustus 2019 23.31.56 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Langsung ke TKP aja ya di file terlampir.
Salam,
HK
Pada Jumat, 2 Agustus 2019 19.32.08 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Makasih Mas HK
Maaf, Jika menggunakan
code Sheets("b").Range("c4").Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
hanya apa digunakan untuk 1 baris, kalau misalkan barisnya sampai 1000 code copy paste hasilnya seperti apa ya
Terimakasih bayak
Maaf, jika saya kurang paham masalah code macro
Pada Selasa, 30 Juli 2019 14.04.04 WIB, hendrik karnadi hendrikkarnadi@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Coba ganti codenya spt ini :
Sheets("b").Range("c4")..Value2 = Evaluate("=VLOOKUP(B4,a!B4:D6,2,FALSE)")
Salam,
HK
Pada Selasa, 30 Juli 2019 07.47.34 WIB, HAIRUL ALAM ha_mj76@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Salam
Para Master
mohon pencerahahannya dengan code script macro menampilkan hasil formula tanpa menampilkan rumus di cell excel, seperti file terlampir
Terimakasih
Assalamualaikum
Hairul Alam
#yiv8203903492 #yiv8203903492 -- #yiv8203903492ygrp-
Tue Aug 6, 2019 3:05 am (PDT) . Posted by:
"Stephen Saputro"
Pak Hendrik dan Pak Zainul,
Terima kasih banyak untuk bantuannya, Sudah Solved.
On Mon, Aug 5, 2019 at 11:48 PM Zainul Ulum zainul_ulum@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Stephen,
>
>
>
> Coba ganti di nilai di variable rc memnjadi :
>
>
>
> rc= Sheets(1).Range("A10000").end(xlup).row 'asumsi maksimal
> baris/record=10000
>
>
>
> Thanks,
>
> -zainul
>
>
>
>
>
> Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for
> Windows 10
>
>
>
> *From: *Stephen Saputro stephensaputro@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Monday, August 5, 2019 4:47 PM
> *To: *belajar-excel@yahoogroups.com
> *Subject: *[belajar-excel] Kirim data ke excel lain menggunakan VBA
>
>
>
>
>
> Selamat sore semuanya,
>
>
>
> Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database
> sederhana, di mana ada satu workbook yang saya gunakan sebagai Table
> master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan
> data ke table master dengan menggunakan VBA.
>
>
>
> Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang
> mengirimkan data dengan baik ke data row paling akhir dari sebuah table
> master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada
> dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya
> saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah
> row terakhir )
>
>
>
> Script nya adalah sbb :
>
>
>
> Private Sub Kirimdata_Click()
>
> If TextBox1.Value = "" Or TextBox4..Value = "" Then
> If MsgBox("Form is not complete.. Please fill the data No and the
> amount !", vbQuestion + vbYesNo) <> yes Then
> Exit Sub
> End If
> End If
>
>
> Dim rc As Long
> Dim path As String
> Dim wb As Workbook
>
> Application.ScreenUpdating = False
> path = "\\blabla\blabla\blabla\master.xlsm"
> rc = ActiveSheet.UsedRange.Rows.Count
>
> Workbooks.Open " \\blabla\blabla\blabla\master.xlsm "
> Set wb = ActiveWorkbook
> rc = ActiveSheet.UsedRange.Rows.Count
>
> With Sheets(1).Range("A1")
> .Offset(rc, 0).Value = Me.ListBox1.Value
> .Offset(rc, 1).Value = Me.ListBox2.Value
> .Offset(rc, 2)..Value = Me.ListBox3..Value
> .Offset(rc, 3).Value = Me.ListBox4.Value
> .Offset(rc, 4).Value = Me.ListBox5.Value
> .Offset(rc, 5).Value = Me..TextBox1.Value
> .Offset(rc, 6).Value = Me.TextBox2.Value
> .Offset(rc, 7).Value = Me.TextBox3.Value
> .Offset(rc, 8).Value = Me.ListBox6..Value
> .Offset(rc, 9).Value = Me.TextBox5.Value
> .Offset(rc, 10).Value = Me.TextBox4.Value
> .Offset(rc, 11)..Value = Me.TextBox7.Value
> ..Offset(rc, 12).Value = Me.TextBox8.Value
> .Offset(rc, 13).Value = Me..ListBox7.Value
> .Offset(rc, 14).Value = Me.TextBox6.Value
>
>
> End With
>
> wb.Save
> wb.Close
> Application.ScreenUpdating = True
> Unload Me
> Inputdata.Show
> End Sub
>
>
>
> Terima kasih sekali lagi untuk bantuan nya
>
>
>
>
>
>
>
Terima kasih banyak untuk bantuannya, Sudah Solved.
On Mon, Aug 5, 2019 at 11:48 PM Zainul Ulum zainul_ulum@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Stephen,
>
>
>
> Coba ganti di nilai di variable rc memnjadi :
>
>
>
> rc= Sheets(1).Range("A10000").end(xlup).row 'asumsi maksimal
> baris/record=10000
>
>
>
> Thanks,
>
> -zainul
>
>
>
>
>
> Sent from Mail <https://go.microsoft.com/fwlink/?LinkId=550986> for
> Windows 10
>
>
>
> *From: *Stephen Saputro stephensaputro@gmail.com [belajar-excel]
> <belajar-excel@yahoogroups.com>
> *Sent: *Monday, August 5, 2019 4:47 PM
> *To: *belajar-excel@yahoogroups.com
> *Subject: *[belajar-excel] Kirim data ke excel lain menggunakan VBA
>
>
>
>
>
> Selamat sore semuanya,
>
>
>
> Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database
> sederhana, di mana ada satu workbook yang saya gunakan sebagai Table
> master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan
> data ke table master dengan menggunakan VBA.
>
>
>
> Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang
> mengirimkan data dengan baik ke data row paling akhir dari sebuah table
> master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada
> dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya
> saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah
> row terakhir )
>
>
>
> Script nya adalah sbb :
>
>
>
> Private Sub Kirimdata_Click(
>
> If TextBox1.Value = "" Or TextBox4..Value = "" Then
> If MsgBox("
> amount !", vbQuestion + vbYesNo) <> yes Then
> Exit Sub
> End If
> End If
>
>
> Dim rc As Long
> Dim path As String
> Dim wb As Workbook
>
> Application.
> path = "\&#
> rc = ActiveSheet.
>
> Workbooks.Open " \\blabla&#
> Set wb = ActiveWorkbook
> rc = ActiveSheet.
>
> With Sheets(1).Range(
> .Offset(rc, 0).Value = Me.ListBox1.
> .Offset(rc, 1).Value = Me.ListBox2.
> .Offset(rc, 2)..Value = Me.ListBox3.
> .Offset(rc, 3).Value = Me.ListBox4.
> .Offset(rc, 4).Value = Me.ListBox5.
> .Offset(rc, 5).Value = Me..TextBox1.
> .Offset(rc, 6).Value = Me.TextBox2.
> .Offset(rc, 7).Value = Me.TextBox3.
> .Offset(rc, 8).Value = Me.ListBox6.
> .Offset(rc, 9).Value = Me.TextBox5.
> .Offset(rc, 10).Value = Me.TextBox4.
> .Offset(rc, 11)..Value = Me.TextBox7.
> ..Offset(rc, 12).Value = Me.TextBox8.
> .Offset(rc, 13).Value = Me..ListBox7.
> .Offset(rc, 14).Value = Me.TextBox6.
>
>
> End With
>
> wb.Save
> wb.Close
> Application.
> Unload Me
> Inputdata.Show
> End Sub
>
>
>
> Terima kasih sekali lagi untuk bantuan nya
>
>
>
>
>
>
>
Tue Aug 6, 2019 3:53 am (PDT) . Posted by:
"Abdoel Khobir" mbellgedez
Assalaamu'alaikum Wr.Wb
Dear Master Excel dan member milis
Mohon dibantu Permasalahan formula excel yang saya alami
mengenai formula seperti terlampir
Atas bantuannya kami ucapkan banyak Terima kasih
Wassalaamu'alaikum Wr.Wb
Dear Master Excel dan member milis
Mohon dibantu Permasalahan formula excel yang saya alami
mengenai formula seperti terlampir
Atas bantuannya kami ucapkan banyak Terima kasih
Wassalaamu&#
Tue Aug 6, 2019 5:08 am (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Kalau macronya dijalankan di Sheet yang berbeda harus disebutkan nama Sheetnya didepan Range.Jangan menggunakan ActiveSheet karena mengacu pada kalimat ini :"........worbook excel yang saya gunakan untuk mengirimkan data ke table master dengan menggunakan VBA" macronya kan dijalankan dari sheet lain.
Salam,HK
----- Forwarded message ----- From: hendrik karnadi <hendrikkarnadi@yahoo.com>To: Stephen Saputro stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>Sent: Monday, 5 August 2019, 08:48:35 pm GMT+7Subject: Re: [belajar-excel] Kirim data ke excel lain menggunakan VBA
Hai Stephen,
Coba code ini...rc = Range("A" & Rows.Count).End(xlUp).Row
untuk mencari baris terakhir pada kolom A.
Salam,HK
Pada Senin, 5 Agustus 2019 16.47.29 GMT+7, Stephen Saputro stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Selamat sore semuanya,
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database sederhana, di mana ada satu workbook yang saya gunakan sebagai Table master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang mengirimkan data dengan baik ke data row paling akhir dari sebuah table master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click()
If TextBox1.Value = "" Or TextBox4..Value = "" Then
If MsgBox("Form is not complete.. Please fill the data No and the amount !", vbQuestion + vbYesNo) <> yes Then
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.ScreenUpdating = False
path = "\\blabla\blabla\blabla\master.xlsm"
rc = ActiveSheet.UsedRange.Rows.Count
Workbooks.Open "\\blabla\blabla\blabla\master.xlsm "
Set wb = ActiveWorkbook
rc = ActiveSheet.UsedRange.Rows.Count
With Sheets(1).Range("A1")
..Offset(rc, 0).Value = Me.ListBox1.Value
..Offset(rc, 1).Value = Me.ListBox2.Value
..Offset(rc, 2).Value = Me.ListBox3..Value
..Offset(rc, 3).Value = Me.ListBox4.Value
..Offset(rc, 4).Value = Me.ListBox5.Value
..Offset(rc, 5).Value = Me..TextBox1.Value
..Offset(rc, 6).Value = Me.TextBox2.Value
..Offset(rc, 7).Value = Me.TextBox3.Value
..Offset(rc, 8).Value = Me.ListBox6.Value
..Offset(rc, 9).Value = Me.TextBox5.Value
..Offset(rc, 10).Value = Me.TextBox4.Value
..Offset(rc, 11).Value = Me.TextBox7.Value
..Offset(rc, 12).Value = Me.TextBox8.Value
..Offset(rc, 13).Value = Me.ListBox7.Value
..Offset(rc, 14).Value = Me.TextBox6.Value
End With
wb.Save
wb.Close
Application.ScreenUpdating = True
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Salam,HK
----- Forwarded message ----- From: hendrik karnadi <hendrikkarnadi@yahoo.com>To: Stephen Saputro stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com>Sent: Monday, 5 August 2019, 08:48:35 pm GMT+7Subject: Re: [belajar-excel] Kirim data ke excel lain menggunakan VBA
Hai Stephen,
Coba code ini...rc = Range("A" & Rows.Count).End(xlUp).Row
untuk mencari baris terakhir pada kolom A.
Salam,HK
Pada Senin, 5 Agustus 2019 16.47.29 GMT+7, Stephen Saputro stephensaputro@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
Selamat sore semuanya,
Mohon kiranya dapat di bantu kasus saya ini. Saya membuat sebuah database sederhana, di mana ada satu workbook yang saya gunakan sebagai Table master. dan satu lagi worbook excel yang saya gunakan untuk mengirimkan data ke table master dengan menggunakan VBA.
Permasalahan nya adalah script yang saya pakai di bawah ini, terkadang mengirimkan data dengan baik ke data row paling akhir dari sebuah table master, tapi terkadang data tersebut malah menimpa data lain yang sudah ada dengan row yang berbeda ( data yang masuk ke kolom2 nya sudah tepat hanya saja row nya yang berbeda, seharus nya adalah konsisten di row data sesudah row terakhir )
Script nya adalah sbb :
Private Sub Kirimdata_Click(
If TextBox1.Value = "" Or TextBox4..Value = "" Then
If MsgBox("
Exit Sub
End If
End If
Dim rc As Long
Dim path As String
Dim wb As Workbook
Application.
path = "\&#
rc = ActiveSheet.
Workbooks.Open "\&#
Set wb = ActiveWorkbook
rc = ActiveSheet.
With Sheets(1).Range(
..Offset(rc, 0).Value = Me.ListBox1.
..Offset(rc, 1).Value = Me.ListBox2.
..Offset(rc, 2).Value = Me.ListBox3.
..Offset(rc, 3).Value = Me.ListBox4.
..Offset(rc, 4).Value = Me.ListBox5.
..Offset(rc, 5).Value = Me..TextBox1.
..Offset(rc, 6).Value = Me.TextBox2.
..Offset(rc, 7).Value = Me.TextBox3.
..Offset(rc, 8).Value = Me.ListBox6.
..Offset(rc, 9).Value = Me.TextBox5.
..Offset(rc, 10).Value = Me.TextBox4.
..Offset(rc, 11).Value = Me.TextBox7.
..Offset(rc, 12).Value = Me.TextBox8.
..Offset(rc, 13).Value = Me.ListBox7.
..Offset(rc, 14).Value = Me.TextBox6.
End With
wb.Save
wb.Close
Application.
Unload Me
Inputdata.Show
End Sub
Terima kasih sekali lagi untuk bantuan nya
Tue Aug 6, 2019 3:38 pm (PDT) . Posted by:
"HAIRUL ALAM"
SalamPara master
Excel selalu menghitung dan lambat bila worksheet ditutup/keluar, bagaimana solusi agar file excel tidak selalu menghitung saat di tutup/keluar, memang pada file excel terdapat banyak rumus, mungkin itu salah satu penyebab, melambatnya file tersebut..
Terimakasih
AssalamualaikumHairul Alam
Excel selalu menghitung dan lambat bila worksheet ditutup/keluar, bagaimana solusi agar file excel tidak selalu menghitung saat di tutup/keluar, memang pada file excel terdapat banyak rumus, mungkin itu salah satu penyebab, melambatnya file tersebut..
Terimakasih
AssalamualaikumHair
Tue Aug 6, 2019 3:47 pm (PDT) . Posted by:
"harry budiman"
Halo Master sekalian
Mohon bantuan mengenai formula jika kita ingin mengetahui masuk kategori mana dalam range tertentu
Terlampir
Salam
Harry
Mohon bantuan mengenai formula jika kita ingin mengetahui masuk kategori mana dalam range tertentu
Terlampir
Salam
Harry
============================================================
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