[belajar-excel] vba function #value

classic Classic list List threaded Threaded
6 messages Options
Reply | Threaded
Open this post in threaded view
|

[belajar-excel] vba function #value

fahmi syaifullah
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
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] vba function #value

hendrik karnadi
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 [hidden email] [belajar-excel]<[hidden email]> 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  
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] vba function #value

Kid
Administrator
In reply to this post by fahmi syaifullah
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 [hidden email]
[belajar-excel] <[hidden email]> 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
>
>
>
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] vba function #value

Kid
Administrator
pakai power query kan malah vba nya cuma berisi refresh

On Tue, Oct 8, 2019 at 9:36 AM Mr. Kid <[hidden email]> 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
> [hidden email] [belajar-excel] <[hidden email]>
> 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
>>
>>
>>
>
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] vba function #value

fahmi syaifullah
 assalamu'alaikum siang om kid dan pak HK,
terima kasih atas arahannya.. saya coba dlu . hehee
kalo power query masih kurang ngerti om kid pilihannya yang mana kalau yang dipilih tgl sama terus dijadikan satu colomn gitu.
wassalamu'alaikum wr.wbfahmi
    Pada Selasa, 8 Oktober 2019 09.38.38 WIB, 'Mr. Kid' [hidden email] [belajar-excel] <[hidden email]> menulis:  
 
    

pakai power query kan malah vba nya cuma berisi refresh
On Tue, Oct 8, 2019 at 9:36 AM Mr. Kid <[hidden email]> 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 wbKid



On Tue, Oct 8, 2019 at 9:15 AM Fahmi Syaifullah [hidden email] [belajar-excel] <[hidden email]> 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

   

  #yiv4447411570 #yiv4447411570 -- #yiv4447411570ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv4447411570 #yiv4447411570ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv4447411570 #yiv4447411570ygrp-mkp #yiv4447411570hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv4447411570 #yiv4447411570ygrp-mkp #yiv4447411570ads {margin-bottom:10px;}#yiv4447411570 #yiv4447411570ygrp-mkp .yiv4447411570ad {padding:0 0;}#yiv4447411570 #yiv4447411570ygrp-mkp .yiv4447411570ad p {margin:0;}#yiv4447411570 #yiv4447411570ygrp-mkp .yiv4447411570ad a {color:#0000ff;text-decoration:none;}#yiv4447411570 #yiv4447411570ygrp-sponsor #yiv4447411570ygrp-lc {font-family:Arial;}#yiv4447411570 #yiv4447411570ygrp-sponsor #yiv4447411570ygrp-lc #yiv4447411570hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv4447411570 #yiv4447411570ygrp-sponsor #yiv4447411570ygrp-lc .yiv4447411570ad {margin-bottom:10px;padding:0 0;}#yiv4447411570 #yiv4447411570actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv4447411570 #yiv4447411570activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv4447411570 #yiv4447411570activity span {font-weight:700;}#yiv4447411570 #yiv4447411570activity span:first-child {text-transform:uppercase;}#yiv4447411570 #yiv4447411570activity span a {color:#5085b6;text-decoration:none;}#yiv4447411570 #yiv4447411570activity span span {color:#ff7900;}#yiv4447411570 #yiv4447411570activity span .yiv4447411570underline {text-decoration:underline;}#yiv4447411570 .yiv4447411570attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv4447411570 .yiv4447411570attach div a {text-decoration:none;}#yiv4447411570 .yiv4447411570attach img {border:none;padding-right:5px;}#yiv4447411570 .yiv4447411570attach label {display:block;margin-bottom:5px;}#yiv4447411570 .yiv4447411570attach label a {text-decoration:none;}#yiv4447411570 blockquote {margin:0 0 0 4px;}#yiv4447411570 .yiv4447411570bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv4447411570 .yiv4447411570bold a {text-decoration:none;}#yiv4447411570 dd.yiv4447411570last p a {font-family:Verdana;font-weight:700;}#yiv4447411570 dd.yiv4447411570last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv4447411570 dd.yiv4447411570last p span.yiv4447411570yshortcuts {margin-right:0;}#yiv4447411570 div.yiv4447411570attach-table div div a {text-decoration:none;}#yiv4447411570 div.yiv4447411570attach-table {width:400px;}#yiv4447411570 div.yiv4447411570file-title a, #yiv4447411570 div.yiv4447411570file-title a:active, #yiv4447411570 div.yiv4447411570file-title a:hover, #yiv4447411570 div.yiv4447411570file-title a:visited {text-decoration:none;}#yiv4447411570 div.yiv4447411570photo-title a, #yiv4447411570 div.yiv4447411570photo-title a:active, #yiv4447411570 div.yiv4447411570photo-title a:hover, #yiv4447411570 div.yiv4447411570photo-title a:visited {text-decoration:none;}#yiv4447411570 div#yiv4447411570ygrp-mlmsg #yiv4447411570ygrp-msg p a span.yiv4447411570yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv4447411570 .yiv4447411570green {color:#628c2a;}#yiv4447411570 .yiv4447411570MsoNormal {margin:0 0 0 0;}#yiv4447411570 o {font-size:0;}#yiv4447411570 #yiv4447411570photos div {float:left;width:72px;}#yiv4447411570 #yiv4447411570photos div div {border:1px solid #666666;min-height:62px;overflow:hidden;width:62px;}#yiv4447411570 #yiv4447411570photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv4447411570 #yiv4447411570reco-category {font-size:77%;}#yiv4447411570 #yiv4447411570reco-desc {font-size:77%;}#yiv4447411570 .yiv4447411570replbq {margin:4px;}#yiv4447411570 #yiv4447411570ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv4447411570 #yiv4447411570ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv4447411570 #yiv4447411570ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv4447411570 #yiv4447411570ygrp-mlmsg select, #yiv4447411570 input, #yiv4447411570 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv4447411570 #yiv4447411570ygrp-mlmsg pre, #yiv4447411570 code {font:115% monospace;}#yiv4447411570 #yiv4447411570ygrp-mlmsg * {line-height:1.22em;}#yiv4447411570 #yiv4447411570ygrp-mlmsg #yiv4447411570logo {padding-bottom:10px;}#yiv4447411570 #yiv4447411570ygrp-msg p a {font-family:Verdana;}#yiv4447411570 #yiv4447411570ygrp-msg p#yiv4447411570attach-count span {color:#1E66AE;font-weight:700;}#yiv4447411570 #yiv4447411570ygrp-reco #yiv4447411570reco-head {color:#ff7900;font-weight:700;}#yiv4447411570 #yiv4447411570ygrp-reco {margin-bottom:20px;padding:0px;}#yiv4447411570 #yiv4447411570ygrp-sponsor #yiv4447411570ov li a {font-size:130%;text-decoration:none;}#yiv4447411570 #yiv4447411570ygrp-sponsor #yiv4447411570ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv4447411570 #yiv4447411570ygrp-sponsor #yiv4447411570ov ul {margin:0;padding:0 0 0 8px;}#yiv4447411570 #yiv4447411570ygrp-text {font-family:Georgia;}#yiv4447411570 #yiv4447411570ygrp-text p {margin:0 0 1em 0;}#yiv4447411570 #yiv4447411570ygrp-text tt {font-size:120%;}#yiv4447411570 #yiv4447411570ygrp-vital ul li:last-child {border-right:none !important;}#yiv4447411570  
Kid
Reply | Threaded
Open this post in threaded view
|

Re: [belajar-excel] vba function #value [1 Attachment]

Kid
Administrator
wa'alaikumussalam wr wb

rada sulit membayangkannya kalau tidak lihat contoh datanya.
btw,
kira-kiranya seperti file terlampir.

wa'alaikumussalam wr wb
Kid


On Tue, Oct 8, 2019 at 2:41 PM Fahmi Syaifullah [hidden email]
[belajar-excel] <[hidden email]> wrote:

>
>
> assalamu'alaikum siang om kid dan pak HK,
>
> terima kasih atas arahannya.. saya coba dlu . hehee
>
> kalo power query masih kurang ngerti om kid pilihannya yang mana kalau
> yang dipilih tgl sama terus dijadikan satu colomn gitu.
>
> wassalamu'alaikum wr.wb
> fahmi
>
> Pada Selasa, 8 Oktober 2019 09.38.38 WIB, 'Mr. Kid' [hidden email]
> [belajar-excel] <[hidden email]> menulis:
>
>
>
>
> pakai power query kan malah vba nya cuma berisi refresh
>
> On Tue, Oct 8, 2019 at 9:36 AM Mr. Kid <[hidden email]> 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
> [hidden email] [belajar-excel] <[hidden email]>
> 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
>
>
>

PQ_MergeRows.xlsx (35K) Download Attachment