5 Messages
Digest #4869
Messages
Mon Oct 7, 2019 9:54 am (PDT) . Posted by:
"Agus"
Wa 'alaikumsalam warahmatullah wabarakatuh.
Dear Nunuh.
Yang digunakan untuk menghitung kode yang ada di Zone C yaaa.....
setahu saya semua kode(Type) yang ada pada Zone A, Zone B dab Zone C ada
21 kode.
Zona A terdapat 8 kode, Zone B terdapat 18 Kode dan zona C terdapat 15 kode..
Jadi rumus anda tidak salah, yang salah kede-kode nya.
contoh Zone B dengan type SD 03'', SD03A, SD09, SD09B, SD15. belum
dijumlah karena kode tersebut tidak ada di Zone C.
Demikian pula kode SD 03, SD 08 pada Zona A tidak dijumlah, karena kode
tersebut tidak terdapat pada Zona C.
Perhatikan tabel di bawah ini:
No Kode A Kode B Kode C
1 SD 01 SD 01 SD 01
2 SD 01A SD 01A SD 01A
SD 03
3 SD 03'
4 SD 03"
5 SD 03A
6 SD 03A'' SD 03A''
7 SD 04 SD 04 SD 04
8 SD 06 SD 06
9 SD 07
10 SD 08
11 SD 08A SD 08A SD 08A
12 SD 08B SD 08B
13 SD 09
14 SD 09' SD 09'
15 SD 09'' SD 09''
16 SD 09B
17 SD 11 SD 11 SD 11
18 SD 13 SD 13
19 SD 13A SD 13A
20 SD 15 SD 15
21 SD 8C SD 8C
Lengkapilah semua kode agar dapat dijumlah dengan benar.
Wasalamu'alaikum warahmatullah
NangAgus
On 10/5/2019 11:50, 7 hari menuju Perubahan nunuhassamawaat@gmail.com
[belajar-excel] wrote:
> Assalamualaikum wr wb.
>
> Para Suhu yg selalu diberkahi Allah SWT msh lanjutan Soal yg kemarin,
> saya kesulitan tuk merekap kode-kode dari "Type" antar sheet (file
> terlampir)
>
> Sebelum dan sesudahnya saya haturkan terima kasih.
>
> --
> Regards,
>
>
> Nunuh Sumanta
> +6281383249999,
> nunuhassamawaat@gmail.com <mailto:nunuhassamawaat@gmail.com>
>
>
>
>
Dear Nunuh.
Yang digunakan untuk menghitung kode yang ada di Zone C yaaa.....
setahu saya semua kode(Type) yang ada pada Zone A, Zone B dab Zone C ada
21 kode.
Zona A terdapat 8 kode, Zone B terdapat 18 Kode dan zona C terdapat 15 kode..
Jadi rumus anda tidak salah, yang salah kede-kode nya.
contoh Zone B dengan type SD 03'', SD03A, SD09, SD09B, SD15. belum
dijumlah karena kode tersebut tidak ada di Zone C.
Demikian pula kode SD 03, SD 08 pada Zona A tidak dijumlah, karena kode
tersebut tidak terdapat pada Zona C.
Perhatikan tabel di bawah ini:
No Kode A Kode B Kode C
1 SD 01 SD 01 SD 01
2 SD 01A SD 01A SD 01A
SD 03
3 SD 03'
4 SD 03"
5 SD 03A
6 SD 03A'' SD 03A''
7 SD 04 SD 04 SD 04
8 SD 06 SD 06
9 SD 07
10 SD 08
11 SD 08A SD 08A SD 08A
12 SD 08B SD 08B
13 SD 09
14 SD 09' SD 09'
15 SD 09'' SD 09''
16 SD 09B
17 SD 11 SD 11 SD 11
18 SD 13 SD 13
19 SD 13A SD 13A
20 SD 15 SD 15
21 SD 8C SD 8C
Lengkapilah semua kode agar dapat dijumlah dengan benar.
Wasalamu'alaikum warahmatullah
NangAgus
On 10/5/2019 11:50, 7 hari menuju Perubahan nunuhassamawaat@gmail.com
[belajar-excel] wrote:
> Assalamualaikum wr wb.
>
> Para Suhu yg selalu diberkahi Allah SWT msh lanjutan Soal yg kemarin,
> saya kesulitan tuk merekap kode-kode dari "Type" antar sheet (file
> terlampir)
>
> Sebelum dan sesudahnya saya haturkan terima kasih.
>
> --
> Regards,
>
>
> Nunuh Sumanta
> +6281383249999,
> nunuhassamawaat@gmail.com <mailto:nunuhassamawaat@gmail.com>
>
>
>
>
Mon Oct 7, 2019 7:14 pm (PDT) . Posted by:
"Fahmi Syaifullah" fahmisyaifullah20
Assalamuálaikum pagi Om kid dan BeExceller
saya ada kasus, membuat function di vba dengan function seperti ini
Function gabung(data As String, pemisah as string) As StringDim a As IntegerDim b As Stringdata = Selection.Addressb = Application.WorksheetFunction.Replace(data, Application.WorksheetFunction.Find(":", data), 9, "")a = Application.WorksheetFunction.CountA(Range(data))gabung = ""For i = 1 To a gabung = gabung & Range(b).Offset(i - 1, 0) & pemisahNext iEnd Function
saya sudah coba di module hasilnya berjalan lancar, tapi pas di function kenapa hasilnya #value yaa. ada saran gak om om sekalian.
niatnya rumusnya itu menggabungkan data yang kita select menjadi satu, kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih gak ada.mohon infonya mastah sekalian.
terima kasihwassalamuálaikum wr.wb
Fahmi
saya ada kasus, membuat function di vba dengan function seperti ini
Function gabung(data As String, pemisah as string) As StringDim a As IntegerDim b As Stringdata = Selection.Addressb = Application.
saya sudah coba di module hasilnya berjalan lancar, tapi pas di function kenapa hasilnya #value yaa. ada saran gak om om sekalian.
niatnya rumusnya itu menggabungkan data yang kita select menjadi satu, kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih gak ada.mohon infonya mastah sekalian.
terima kasihwassalamuá
Fahmi
Mon Oct 7, 2019 7:30 pm (PDT) . Posted by:
"hendrik karnadi" hendrikkarnadi
Hai Fahmi,
Krn ga ada datanya saya coba mereka-reka...kayaknya setelah looping sebelum End Function perlu ada satu codegabung = blablabla.
Salam,HK
Sent from Yahoo Mail on Android
On Tue, Oct 8, 2019 at 9:15, Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Assalamuálaikum pagi Om kid dan BeExceller
saya ada kasus, membuat function di vba dengan function seperti ini
Function gabung(data As String, pemisah as string) As StringDim a As IntegerDim b As Stringdata = Selection.Addressb = Application.WorksheetFunction.Replace(data, Application.WorksheetFunction.Find(":", data), 9, "")a = Application.WorksheetFunction.CountA(Range(data))gabung = ""For i = 1 To a gabung = gabung & Range(b).Offset(i - 1, 0) & pemisahNext iEnd Function
saya sudah coba di module hasilnya berjalan lancar, tapi pas di function kenapa hasilnya #value yaa. ada saran gak om om sekalian.
niatnya rumusnya itu menggabungkan data yang kita select menjadi satu, kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih gak ada.mohon infonya mastah sekalian.
terima kasihwassalamuálaikum wr.wb
Fahmi #yiv3687316796 #yiv3687316796 -- #yiv3687316796ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3687316796 #yiv3687316796ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3687316796 #yiv3687316796ygrp-mkp #yiv3687316796hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3687316796 #yiv3687316796ygrp-mkp #yiv3687316796ads {margin-bottom:10px;}#yiv3687316796 #yiv3687316796ygrp-mkp .yiv3687316796ad {padding:0 0;}#yiv3687316796 #yiv3687316796ygrp-mkp .yiv3687316796ad p {margin:0;}#yiv3687316796 #yiv3687316796ygrp-mkp .yiv3687316796ad a {color:#0000ff;text-decoration:none;}#yiv3687316796 #yiv3687316796ygrp-sponsor #yiv3687316796ygrp-lc {font-family:Arial;}#yiv3687316796 #yiv3687316796ygrp-sponsor #yiv3687316796ygrp-lc #yiv3687316796hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3687316796 #yiv3687316796ygrp-sponsor #yiv3687316796ygrp-lc .yiv3687316796ad {margin-bottom:10px;padding:0 0;}#yiv3687316796 #yiv3687316796actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3687316796 #yiv3687316796activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3687316796 #yiv3687316796activity span {font-weight:700;}#yiv3687316796 #yiv3687316796activity span:first-child {text-transform:uppercase;}#yiv3687316796 #yiv3687316796activity span a {color:#5085b6;text-decoration:none;}#yiv3687316796 #yiv3687316796activity span span {color:#ff7900;}#yiv3687316796 #yiv3687316796activity span .yiv3687316796underline {text-decoration:underline;}#yiv3687316796 .yiv3687316796attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3687316796 .yiv3687316796attach div a {text-decoration:none;}#yiv3687316796 .yiv3687316796attach img {border:none;padding-right:5px;}#yiv3687316796 .yiv3687316796attach label {display:block;margin-bottom:5px;}#yiv3687316796 .yiv3687316796attach label a {text-decoration:none;}#yiv3687316796 blockquote {margin:0 0 0 4px;}#yiv3687316796 .yiv3687316796bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3687316796 .yiv3687316796bold a {text-decoration:none;}#yiv3687316796 dd.yiv3687316796last p a {font-family:Verdana;font-weight:700;}#yiv3687316796 dd.yiv3687316796last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3687316796 dd.yiv3687316796last p span.yiv3687316796yshortcuts {margin-right:0;}#yiv3687316796 div.yiv3687316796attach-table div div a {text-decoration:none;}#yiv3687316796 div.yiv3687316796attach-table {width:400px;}#yiv3687316796 div.yiv3687316796file-title a, #yiv3687316796 div.yiv3687316796file-title a:active, #yiv3687316796 div.yiv3687316796file-title a:hover, #yiv3687316796 div.yiv3687316796file-title a:visited {text-decoration:none;}#yiv3687316796 div.yiv3687316796photo-title a, #yiv3687316796 div.yiv3687316796photo-title a:active, #yiv3687316796 div.yiv3687316796photo-title a:hover, #yiv3687316796 div.yiv3687316796photo-title a:visited {text-decoration:none;}#yiv3687316796 div#yiv3687316796ygrp-mlmsg #yiv3687316796ygrp-msg p a span.yiv3687316796yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3687316796 .yiv3687316796green {color:#628c2a;}#yiv3687316796 .yiv3687316796MsoNormal {margin:0 0 0 0;}#yiv3687316796 o {font-size:0;}#yiv3687316796 #yiv3687316796photos div {float:left;width:72px;}#yiv3687316796 #yiv3687316796photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv3687316796 #yiv3687316796photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3687316796 #yiv3687316796reco-category {font-size:77%;}#yiv3687316796 #yiv3687316796reco-desc {font-size:77%;}#yiv3687316796 .yiv3687316796replbq {margin:4px;}#yiv3687316796 #yiv3687316796ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3687316796 #yiv3687316796ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3687316796 #yiv3687316796ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3687316796 #yiv3687316796ygrp-mlmsg select, #yiv3687316796 input, #yiv3687316796 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3687316796 #yiv3687316796ygrp-mlmsg pre, #yiv3687316796 code {font:115% monospace;}#yiv3687316796 #yiv3687316796ygrp-mlmsg * {line-height:1.22em;}#yiv3687316796 #yiv3687316796ygrp-mlmsg #yiv3687316796logo {padding-bottom:10px;}#yiv3687316796 #yiv3687316796ygrp-msg p a {font-family:Verdana;}#yiv3687316796 #yiv3687316796ygrp-msg p#yiv3687316796attach-count span {color:#1E66AE;font-weight:700;}#yiv3687316796 #yiv3687316796ygrp-reco #yiv3687316796reco-head {color:#ff7900;font-weight:700;}#yiv3687316796 #yiv3687316796ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3687316796 #yiv3687316796ygrp-sponsor #yiv3687316796ov li a {font-size:130%;text-decoration:none;}#yiv3687316796 #yiv3687316796ygrp-sponsor #yiv3687316796ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3687316796 #yiv3687316796ygrp-sponsor #yiv3687316796ov ul {margin:0;padding:0 0 0 8px;}#yiv3687316796 #yiv3687316796ygrp-text {font-family:Georgia;}#yiv3687316796 #yiv3687316796ygrp-text p {margin:0 0 1em 0;}#yiv3687316796 #yiv3687316796ygrp-text tt {font-size:120%;}#yiv3687316796 #yiv3687316796ygrp-vital ul li:last-child {border-right:none !important;}#yiv3687316796
Krn ga ada datanya saya coba mereka-reka...kayaknya setelah looping sebelum End Function perlu ada satu codegabung = blablabla.
Salam,HK
Sent from Yahoo Mail on Android
On Tue, Oct 8, 2019 at 9:15, Fahmi Syaifullah fahmisyaifullah20@yahoo.com [belajar-excel]<belajar-excel@yahoogroups.com> wrote:
Assalamuálaikum pagi Om kid dan BeExceller
saya ada kasus, membuat function di vba dengan function seperti ini
Function gabung(data As String, pemisah as string) As StringDim a As IntegerDim b As Stringdata = Selection.Addressb = Application.
saya sudah coba di module hasilnya berjalan lancar, tapi pas di function kenapa hasilnya #value yaa. ada saran gak om om sekalian.
niatnya rumusnya itu menggabungkan data yang kita select menjadi satu, kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih gak ada.mohon infonya mastah sekalian.
terima kasihwassalamuá
Fahmi #yiv3687316796 #yiv3687316796 -- #yiv3687316796ygrp-
Mon Oct 7, 2019 7:37 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
wa'alaikumussalam wr wb
inputan variabel data (string) merujuk ke banyak cells membuat hasil
variabel b bernilai error value. Proses replace-nya perlu masuk dalam loop.
Oh iya, hati-hati dengan find yang bisa menghasilkan error kalau tidak
ketemu karakter yang dicari. Sebaiknya find( "yang dicari" , teks & "yang
dicari" )
wassalamu'alaikum wr wb
Kid
On Tue, Oct 8, 2019 at 9:15 AM Fahmi Syaifullah fahmisyaifullah20@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamuálaikum pagi Om kid dan BeExceller
>
> saya ada kasus, membuat function di vba dengan function seperti ini
>
> Function gabung(data As String, pemisah as string) As String
> Dim a As Integer
> Dim b As String
> data = Selection.Address
> b = Application.WorksheetFunction.Replace(data,
> Application.WorksheetFunction.Find(":", data), 9, "")
> a = Application.WorksheetFunction.CountA(Range(data))
> gabung = ""
> For i = 1 To a
> gabung = gabung & Range(b).Offset(i - 1, 0) & pemisah
> Next i
> End Function
>
> saya sudah coba di module hasilnya berjalan lancar, tapi pas di function
> kenapa hasilnya #value yaa. ada saran gak om om sekalian.
>
> niatnya rumusnya itu menggabungkan data yang kita select menjadi satu,
> kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih
> gak ada.
> mohon infonya mastah sekalian.
>
> terima kasih
> wassalamuálaikum wr.wb
>
> Fahmi
>
>
>
inputan variabel data (string) merujuk ke banyak cells membuat hasil
variabel b bernilai error value. Proses replace-nya perlu masuk dalam loop.
Oh iya, hati-hati dengan find yang bisa menghasilkan error kalau tidak
ketemu karakter yang dicari. Sebaiknya find( "yang dicari" , teks & "yang
dicari" )
wassalamu'alaikum wr wb
Kid
On Tue, Oct 8, 2019 at 9:15 AM Fahmi Syaifullah fahmisyaifullah20@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamuálaikum pagi Om kid dan BeExceller
>
> saya ada kasus, membuat function di vba dengan function seperti ini
>
> Function gabung(data As String, pemisah as string) As String
> Dim a As Integer
> Dim b As String
> data = Selection.Address
> b = Application.
> Application.
> a = Application.
> gabung = ""
> For i = 1 To a
> gabung = gabung & Range(b).Offset(
> Next i
> End Function
>
> saya sudah coba di module hasilnya berjalan lancar, tapi pas di function
> kenapa hasilnya #value yaa. ada saran gak om om sekalian.
>
> niatnya rumusnya itu menggabungkan data yang kita select menjadi satu,
> kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih
> gak ada.
> mohon infonya mastah sekalian.
>
> terima kasih
> wassalamuálaikum wr.wb
>
> Fahmi
>
>
>
Mon Oct 7, 2019 7:37 pm (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
pakai power query kan malah vba nya cuma berisi refresh
On Tue, Oct 8, 2019 at 9:36 AM Mr. Kid <mr.nmkid@gmail.com> wrote:
> wa'alaikumussalam wr wb
>
> inputan variabel data (string) merujuk ke banyak cells membuat hasil
> variabel b bernilai error value. Proses replace-nya perlu masuk dalam loop.
> Oh iya, hati-hati dengan find yang bisa menghasilkan error kalau tidak
> ketemu karakter yang dicari. Sebaiknya find( "yang dicari" , teks & "yang
> dicari" )
>
> wassalamu'alaikum wr wb
> Kid
>
>
>
>
> On Tue, Oct 8, 2019 at 9:15 AM Fahmi Syaifullah
> fahmisyaifullah20@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>>
>>
>> Assalamuálaikum pagi Om kid dan BeExceller
>>
>> saya ada kasus, membuat function di vba dengan function seperti ini
>>
>> Function gabung(data As String, pemisah as string) As String
>> Dim a As Integer
>> Dim b As String
>> data = Selection.Address
>> b = Application.WorksheetFunction.Replace(data,
>> Application.WorksheetFunction.Find(":", data), 9, "")
>> a = Application.WorksheetFunction.CountA(Range(data))
>> gabung = ""
>> For i = 1 To a
>> gabung = gabung & Range(b).Offset(i - 1, 0) & pemisah
>> Next i
>> End Function
>>
>> saya sudah coba di module hasilnya berjalan lancar, tapi pas di function
>> kenapa hasilnya #value yaa. ada saran gak om om sekalian.
>>
>> niatnya rumusnya itu menggabungkan data yang kita select menjadi satu,
>> kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih
>> gak ada.
>> mohon infonya mastah sekalian.
>>
>> terima kasih
>> wassalamuálaikum wr.wb
>>
>> Fahmi
>>
>>
>>
>
On Tue, Oct 8, 2019 at 9:36 AM Mr. Kid <mr.nmkid@gmail.com> wrote:
> wa'alaikumussalam wr wb
>
> inputan variabel data (string) merujuk ke banyak cells membuat hasil
> variabel b bernilai error value. Proses replace-nya perlu masuk dalam loop.
> Oh iya, hati-hati dengan find yang bisa menghasilkan error kalau tidak
> ketemu karakter yang dicari. Sebaiknya find( "yang dicari" , teks & "yang
> dicari" )
>
> wassalamu'alaikum wr wb
> Kid
>
>
>
>
> On Tue, Oct 8, 2019 at 9:15 AM Fahmi Syaifullah
> fahmisyaifullah20@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>>
>>
>> Assalamuálaikum pagi Om kid dan BeExceller
>>
>> saya ada kasus, membuat function di vba dengan function seperti ini
>>
>> Function gabung(data As String, pemisah as string) As String
>> Dim a As Integer
>> Dim b As String
>> data = Selection.Address
>> b = Application.
>> Application.
>> a = Application.
>> gabung = ""
>> For i = 1 To a
>> gabung = gabung & Range(b).Offset(
>> Next i
>> End Function
>>
>> saya sudah coba di module hasilnya berjalan lancar, tapi pas di function
>> kenapa hasilnya #value yaa. ada saran gak om om sekalian.
>>
>> niatnya rumusnya itu menggabungkan data yang kita select menjadi satu,
>> kalau di excel 2019 ada rumus yang namanya textjoin cuman excel saya masih
>> gak ada.
>> mohon infonya mastah sekalian.
>>
>> terima kasih
>> wassalamuálaikum wr.wb
>>
>> Fahmi
>>
>>
>>
>
============================================================
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