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 fahmisyaifulla...@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> 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' mr.nm...@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> menulis:
>
>
>
>
> pakai power query kan malah vba nya cuma berisi refresh
>
> On Tue, Oct 8, 2019 at 9:36 AM Mr. Kid <mr.nm...@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
> fahmisyaifulla...@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
>
>
>
PQ_MergeRows.xlsx
Description: MS-Excel 2007 spreadsheet
