1 Message

Digest #4593

Re: Kelompok Tiket Manjadi Tiket Berurutan [1 Attachment] by "Nunuk Y Saptaningtyas"

Message

1a

Re: Kelompok Tiket Manjadi Tiket Berurutan [1 Attachment]

Sun Sep 9, 2018 2:38 am (PDT) . Posted by:

"Nunuk Y Saptaningtyas"

Mr. Kid terimakasih banyak atas masukkannya
waduh saya memang harus banyak belajar lagi nih tentang excel

2018-09-07 23:03 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> hmmm....
>
> Cukup rumit juga kalau pakai VBA ya...
> Berapa baris kode ya kira-kira...
>
> Pakai formula bisa, tapi butuh 2 kolom bantu, yaitu disisi data dan disi
> hasil.
> Kolom bantu disisi data berisi running total jumlah item yang akan dibuat,
> mulai dari 1 (sebagai header, fix)
> Kolom bantu disisi hasil berisi indeks item mulai dari 0.
>
> Kalau pakai xl2016 ProPlus yang ada power pivotnya, akan lebih enak lagi.
> Tinggal sediakan tabel data berisi kolom Dari dan kolom Sampai, lalu
> sediakan tabel data indeks berisi 1 kolom (nama header apa saja) berisi
> angka 0 sampai 1000 misalnya (asumsi seri item bisa sampai 1000 item). Lalu
> disusun data modelnya dan ditampilkan dalam Excel Pivot Table.
>
> VBA juga mestinya 13 baris kode selesai semua.
> Asumsi :
> 1. data di sheet dengan nama bawaan bernama 'Sheet3' (bukan nama yang
> tampak di tab sheet itu loh)
> 2. data mulai A1 header berisi 2 kolom [dari dan sampai]), jumlah record
> data adalah bebas selama jumlah record hasilnya mampu ditampung Excel
> worksheet
> 3. hasil di kolom D (header hasil di D1) [max hasil adalah jumlah baris
> Excel worksheet dikurangi 1 baris header]
> Kode :
> Dim lRowHasil As Long, lRowData As Long, sTicket As String, sTic As
> String, lTicket As Long
> With Sheet3
> ..Range("d2", .Cells(.Rows.Count, "d").End(xlUp).Offset(1)).
> ClearContents
> lRowHasil = 1
> For lRowData = 2 To .Range("a1").CurrentRegion.Rows.Count
> sTicket = .Cells(lRowData, "a").Value
> sTic = Left(sTicket, 8)
> For lTicket = CLng(Right(sTicket, 5)) To
> CLng(Right(.Cells(lRowData, "b").Value, 5))
> lRowHasil = lRowHasil + 1
> .Cells(lRowHasil, "d").Value = sTic & Format(lTicket, "00000")
> Next lTicket
> Next lRowData
> End With
>
>
> btw,
> Kalau mau bermain-main, hal-hal di atas ada dalam file terlampir.
>
> Regards,
> Kid
>
>
>
>
>
>
>
>
> On Fri, Sep 7, 2018 at 10:20 PM hendrik karnadi hendrikkarnadi@yahoo.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Hai Nunuk,
>>
>> Sesuai contoh file, nama2 Sheet yang saya pakai adalah Sheet1, Sheet2 dan
>> Sheet3...jadi jika nama2 Sheetnya berubah maka nama2 Sheet pada VBE Sheet
>> (macronya) harus diubah juga.
>>
>> Input yang dikopi (dari Sheet1 ke Sheet2) dimulai dari Range("A4")
>> kebawah dan kolom bantu dimulai dari Range("C4") kebawah.
>>
>> Pada saat menjalankan macro, output yang sdh ada sebelumnya (Sheet2 dan
>> Sheet3) dihapus terlebih dahulu sehingga pada saat terjadi pengurangan
>> baris input data pada Sheet1 kolom A (mis. hanya 3 atau 4 baris, mulai dari
>> A4) hasil outputnya tetap OK.
>>
>> Silakan diubah2 jumlah baris input data pada kolom A (dimulai dari A4)
>> maupun No akhirnya pada kolom B (dimulai dari B4).
>>
>> Selamat mencoba.
>>
>> Salam,
>> HK
>>
>> Sent from Yahoo Mail on Android
>> <https://overview.mail.yahoo.com/mobile/?.src=Android>
>>
>> On Fri, Sep 7, 2018 at 19:07, Nunuk Y Saptaningtyas enyees@gmail.com
>> [belajar-excel]
>> <belajar-excel@yahoogroups.com> wrote:
>>
>>
>> Selamat sore pak Hendrik Karnadi, mau nanya itu macronya bisa saya pakai
>> kalau saya nambah data atau ganti data ya ?
>> Kalau bisa, terimakasih banyak, saya bisa mengerjakan tiket-tiket yang
>> lainnya. Sekali lagi terimakasih banyak.
>> tapi saya masih penasaran rumus tanpa macro nya hehehehehehe
>>
>> Salam,
>> NYS
>>
>> 2018-09-07 14:16 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>
>>
>>
>> Hai Nunuk,
>>
>> Pakai Macro ya.
>> Silakan icoba file terlampir--> Sheet3 adalah hasil yang diharapkan.
>>
>> Salam,
>> HK
>>
>>
>> On Friday, 7 September 2018, 10:02:56 AM GMT+7, Nunuk Y Saptaningtyas
>> enyees@gmail.com [belajar-excel] <belajar-excel@yahoogroups.com > wrote:
>>
>>
>>
>>
>> Selamat pagi semuanya,
>>
>> Mohon bantuannya, saya harus memakai rumus apa untuk mengurai kelompok
>> tiket menjadi tiket berurutan (data terlampir)
>>
>> Atas bantuannya, saya ucapkan terimakasih.
>>
>>
>> --
>> Regards,
>>
>> Nunuk Yuliani Saptaningtyas
>>
>> www.enyees.com <http://www.enyees..com>
>> www.bunbunenyees.blogspot.com
>>
>>
>>
>>
>> --
>> Regards,
>>
>> Nunuk Yuliani Saptaningtyas
>>
>> www.enyees.com
>> www.bunbunenyees.blogspot.com
>>
>>
>

--
Regards,

Nunuk Yuliani Saptaningtyas

www.enyees.com
www.bunbunenyees.blogspot.com

Reply to sender . Reply to group . Reply via Web Post . All Messages (9) . Top ^

============================================================
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
---------------------------------------------------------------------

Visit Your Group