Selamat malam Andree. Macro aslinya kayaknya buatan Mr. Kid, betulkah? Yang saya lakukan cuma edit sana edit sini sesuai kebutuhan user.
Salam, HK Sent from Samsung MobileAndre Rahmaidy <[email protected]> wrote:sore Pak Hendrik n Mr. Kid terima kasih sebelumnya to pak hendrik atas petunjuknya terhadap macro input data, saya pelajari dulu ya pak hendrik. @Mr Kid to jawaban angka 1 sandi terhadap baris ke 35 tersebut memang tidak ada, dikarenakan baris 35 berkorelasi dengan baris 36 ytang merupakn headernya sehingga hasilnya berbunyi Antar kantor Aktiva melakukan kegiatan operasional di indonesia sandi (223 & 224), sama juga dengan baris ke 52 Kewajiban Antar Kantor melakukan kegiatan operasional di indonesia sandi (393 & 394).dari uraian diatas dasarnya merupakan standar format Laporan mengacu ke standar akuntansi indonesia, jadi intinya kita nerima formatnya aja dan menyesuaikan dengan COA (chart of account) internal, kolom sandi merupakan primary keynya pada saat proses macro dijalankan. saya tunggu Mr Kid kreasi Pivot tablenya biar dapat pengetahuan seputar pivot table. wassalam Andree Pada Selasa, 4 Februari 2014 18:28, hendrik karnadi <[email protected]> menulis: Sebetulnya tinggal tambahkan destination rangenya (sheet NCR Range bla bal bal) Macro bagian tengahnya (setelah ditambahkan) akan tampak seperti ini: For Each rg In rgCode If Not IsEmpty(rg) Then Set rgCari = ThisWorkbook.Worksheets("RL").Range("C4:C266").find(rg, LookIn:=xlValues, lookat:=xlWhole) If Not rgCari Is Nothing Then If rg.Offset(0, -1) = "KP" Then rgCari.Offset(0, 1) = rg.Offset(0, 2) Else rgCari.Offset(0, 2) = rg.Offset(0, 2) End If End If Set rgNextCari = ThisWorkbook.Worksheets("NCR").Range("C2:C102").find(rg, LookIn:=xlValues, lookat:=xlWhole) If Not rgNextCari Is Nothing Then If rg.Offset(0, -1) = "KP" Then rgNextCari.Offset(0, 1) = rg.Offset(0, 2) Else rgNextCari.Offset(0, 2) = rg.Offset(0, 2) End If End If End If Next rg Namun ada satu account (400) yang perlu diperbaiki. File terlampir. Salam, HK On Wednesday, 5 February 2014, 8:41, Mr. Kid <[email protected]> wrote: Pak Andree, boleh tahu gak tentang sheet bernama DATA yang seperti di bawah ini : baris excel 1 KD_CB SANDI KET JML_RP 34 KP 219 Suspense account 18) 2,250,858,828 35 KP Antar Kantor Aktiva 0 Mohon informasi terhadap hal-hal berikut ini : 1. Berapakah SANDI pada baris excel 35 ? 2. Andaikan JML_RP pada baris excel 35 berisi nilai 1,234,567,890 maka baris Excel 34 dan 35 yang ada di sheet DATA ini akan diletakkan di sheet bernama RL di baris Excel berapa sajakah ? 3. Ketika No. 2 di atas sudah masuk ke sheet bernama RL, maka akan masuk ke sheet bernama NCR di baris Excel berapa sajakah ? Mohon maaf sebelumnya jika permohonan informasi di atas memberatkan Pak Andree. Harap maklum, karena saya ndak mudeng akuntansi barang secuil pun. Hanya saja, tampaknya ada hirarki item yang bisa disusun untuk bisa diolah dengan konsep database. Dengan demikian, seluruh proses output, baik series waktu maupun sebaran per kantor cabang, bahkan summary triwulan pun bisa dilakukan dengan sederhana menggunakan pivot table. Syaratnya memang membutuhkan kejelasan informasi seperti di atas, agar bisa disusun bentuk transformasi datanya memanfaatkan tabel referensi. Wassalam, Kid. 2014-02-05 Andre Rahmaidy <[email protected]>: Pagi Pak Hendrik terima kasih sebelumnya udah kasi solusi terhadap macro yang saya punya, akan tetapi kenapa ya pak ketika saya jalankan tombol button yang ada di sheet NCR yang terisi angka hanya sheet RL aja dan Sheet NCR ga terisi secara otomasi. Pada Selasa, 4 Februari 2014 7:49, hendrik karnadi <[email protected]> menulis: Hai Andree, Coba lampiran yang ini, apakah sudah sesuai kebutuhan. Salam, HK On Tuesday, 4 February 2014, 16:42, Andre Rahmaidy <[email protected]> wrote: Sore Pak hendrik terlampir saya kirimkan file macronya dengan penjelasan yang saya sediakan di dalam sheet excelnya.. Pada Selasa, 4 Februari 2014 0:50, hendrik karnadi <[email protected]> menulis: Hai Andree, Saya betul2 ga mudeng mungkin lagi error. Seperti usulan sebelumnya, Coba perjelas keinginan anda di Sheet ybs, maksud saya prosesnya........ - Apa yang dipindahkan (Row 108 sampai Row ....??) - Dari mana le mana (dari sheet NCR ke Sheet 2 yang mana ?? - Otomatis terisi angkanya sesuai dengan sheet data (sel yang mana ??) - Penjumlahan (sel yang mana ??) yang telah dilakukan secara manual tidak hilang. Salam, HK On Tuesday, 4 February 2014, 15:25, Andre Rahmaidy <[email protected]> wrote: dear Pak Hendrik saya pengen pada row 108 laporan laba rugi dipindahkan ke sheet 2, ketita saya tekan tombol isi data otomatis data untuk laporan laba rugi yang telah dipindahkan ke sheet 2 otomatis terisi angkanya sesuai dengan sheet data. seterusnya ketika macro telah selesai dijalankan untuk penjumlahan yang dilakukan secara manual tidak hilang. password : andree wassalam andree Pada Senin, 3 Februari 2014 21:51, hendrik karnadi <[email protected]> menulis: Hai Andree, Coba perjelas keinginan anda di Sheet ybs dan macronya jangan diprotect agar bisa diperbaiki. Salam, HK On Tuesday, 4 February 2014, 12:40, Andre Rahmaidy <[email protected]> wrote: Dear Beexceller saya punya data macro excel input data yang mau saya tanyakan : 1. script macro saya ketika dijalankan tombol button untuk total yang saya buat secata manual akan hilang.. gimana merubah script macro supaya total tidak hilang. 2 gimana caranya ketika laporan laba rugi saya pindahkan ke sheet yang lain macronya tetap jalan, sehingga laporan laba rugi terisi secara otomasi dengan macro di sheet yang lain. mohon petunjuknya beexceller. wassalam andree
