Dear miss jan,
Saya tertarik dgn cash mba tiny ini, saya ingin mengembangkan pertanyaanya
boleh kah? #sambilbersujudmemohon
1. Jika no transaksi dirubah dijadikan id buat vendor apakah msh bisa
dijalankan macronya contoh: 12345 u/PT. PRIMA SARI UTAMA
2. Dengan menambahkan 1 kolom dibelakang kolom tax, yaitu kolom status,
bagaimana cara memanggil no transaksi tsb dan menambahkan status terbayar yg
merujuk pada no transaksi tsb
3. Setiap bulan pasti transaksi itu terjadi dgn vendor yg sama, bagaimana
memanggil vendor yg sama yang msh terhutang (tidak ada status terbayar)
Mohon pencerahannya miss
Note: mba tiny maaf saya menggunakan casenya ;)
Salam
Miss Ray
--- In belajar-excel@yahoogroups.com, Jan Raisin <miss.jan.raisin@...> wrote:
>
> Dear mbak Tiny,
>
> waktu menyusun VBA ini, Jan jadi teringat dengan teman lama Jan yang kerja
> di bagian Pajak, dulu Jan sering menemani karena dia harus lembur pulang
> malam dan arah pulangnya searah. Dia memegang laporan pajak 5 anak
> perusahaan seorang diri, Jan pikir dia adalah staf Pajak yang tangguh
> karena setelah dia keluar maka pekerjaannya dihandle oleh 3 orang xixixix :D
>
> andai saja dulu Jan bisa VBA pasti Jan akan bantu supaya teman tersebut
> tidak selalu pulang malam.
>
> cukup curhatnya, berikut adalah kodenya, ditulis ke dalam sebuah VB Editor
> (VBE)
>
> Option Explicit
>
> Sub RekapPPhps23()
> ' deklarasikan variabel dengan tipe data String untuk menyimpan data
> bertipe text
> ' NoTrsk = nomer_transaksi
> ' PKP = nama_pengusaha_kena_pajak
> ' NPWP = nomor_pokok_wajib_pajak
> Dim NoTrsk, PKP, NPWP As String
>
> ' delarasikan variabel dengan tipe data Date untuk menyimpan data
> bertipe tanggal
> ' TglVcr = tanggal_voucher
> Dim TglVcr As Date
>
> ' deklarasikan variabel dengan tipe data Long Integer agar dapat
> menyimpan angka yang sangat besar
> ' NoVcr = nomer_voucher
> Dim NoVcr As Long
>
> ' deklarasikan variabel bertipe Range untuk menyimpan objek berupa
> range atau cell
> ' nantinya pengisian data akan dilakukan berdasarkan proses loop
> terhadap area ini
> ' jika nilai > 0 berarti objek pajak, tarif, dan nilainya akan diambil
> ' rgDPP = range_dasar_pengenaan_pajak (pengasilan brutto)
> ' letaknya mulai cell m13 sampai dengan cell m24
> ' cDPP = tiap-tiap_1_cell_di_dalam_rgDPP
> Dim rgDPP, cDPP As Range
>
> ' deklarasikan variabel bertipe String untuk menyimpan data bertipe Text
> ' ObjPjk = nama_objek_pajak
> Dim ObjPjk As String
>
> ' deklarasikan variabel bertipe Double untuk menyimpan data berupa
> angka dengan bilangan desimal
> ' DPP = dasar_pengenaan_pajak
> ' Tari = tarif_pajak dalam persen
> ' PPhDpt = pajak_penghasilan_yang_dipotong
> Dim DPP, Tarif, PPhDpt As Double
>
> ' matikan dahulu fitur screen update agar vba berjalan lebih cepat
> Application.ScreenUpdating = False
>
> ' aktifkan sheet Form Isi 2
> Sheets("form isi 2").Select
>
> ' masukkan masing-masing nilai ke dalam variabel yang sudah disiapkan
> di awal
> ' contoh, NoTrsk diambil dari nilai di cell i3
> ' untuk merujuk cellnya digunakan perintah Range("alamat_cellnya")
> ' untuk mengambil nilainya digunakan perintah .Value
> ' tanda sama_dengan = berfungsi untuk memasukkan nilai terhadap sebuah
> variabel
> ' yang terletak di sebelah kiri tanda sama_dengan
> NoTrsk = Range("i3").Value
> PKP = Range("i8").Value
> NPWP = Range("i7").Value
> TglVcr = Range("n3").Value
> NoVcr = Range("n4").Value
>
> ' lakukan pengujian terhadap jumlah penghasilan brutto di cell m13
> sampai dengan cell m24
> ' jika ada nilainya maka ambil nama objek pajaknya dari kolom helper
> ' kenapa mesti ada kolom bantu? karena untuk memudahkan dalam mengambil
> nama objek pajak
> ' yang sebelumnya letaknya berantakan (tidak dalam 1 kolom yang sama)
> ' lakukan assign ke variabel rgDPP untuk menentukan letak range datanya
> Set rgDPP = Range("m13:m24")
>
> ' lakukan proses loop terhadap setiap 1 cell di dalam rgDpp
> For Each cDPP In rgDPP
>
> ' jika nilai setiap cell di dalam cDPP lebih besar dari nol, maka
> If Len(cDPP.Value) > 0 Then
>
> ' ambil nama objek pajaknya, letaknya 5 kolom di sebelah kanan
> cDPP
> ' untuk merujuknya gunakan perintah Offset
> ' syntax OffSet adalah OffSet(nomer_baris , nomer_kolom)
> ' nomor baris jika bernilai positif berarti turun ke bawah
> ' nomor naris jika bernilai negatif berarti naik ke atas
> ' nomor kolom jika bernilai positif berarti ke arah kanan
> ' nomor kolom jika bernilai negatif berarti ke arah kiri
> ' bahasa manusianya adalah
> ' variabel ObjPjk sama_dengan dari cell cDPP ke arah kanan 5
> kolom lalu ambil nilainya
> ' atau ObjPjk = nilai 5 kolom di sebelah kanan cDPP
> ObjPjk = cDPP.Offset(0, 5).Value
>
> ' lakukan juga untuk yang lainnya
> DPP = cDPP.Value
> Tarif = cDPP.Offset(0, 1).Value
> PPhDpt = cDPP.Offset(0, 2).Value
>
> ' setelah didapat semua nilai yang dibutuhkan, pergi ke sheet
> Rekap PPh 23
> Sheets("rekap pph 23").Select
>
> ' pergi ke cell b3 yang merupakan header dari nomer seri
> transaksi
> Range("b3").Select
>
> ' lakukan pengujian terhadap 1 cell di bawah cell b3
> ' jika tidak ada datanya maka turun 1 baris ke cell b4
> ' jika ada datanya maka pergi ke baris terakhir yang ada datanya
> ' lalu turun lagi 1 baris ke baris baru yang kosong
>
> ' bahasa manusianya:
> ' jika 1 baris di bawah cell aktif tidak ada datanya, maka
> If ActiveCell.Offset(1, 0).Value = "" Then
>
> ' turun 1 baris ke bawah
> ActiveCell.Offset(1, 0).Select
>
> ' karena ini adalah data pertama, maka beri nomer 1 pada 1
> kolom di sebelah kiri
> ActiveCell.Offset(0, -1).Value = 1
>
> ' selain itu
> Else
>
> ' berarti 1 baris di bawahnya ada datanya
> ' turun ke baris terakhir yang ada datanya dengan perintah
> .End(xlDown)
> ' lalu turun 1 baris lagi ke bawah yang kosong dengan
> perintah .Offset(1, 0)
> ActiveCell.End(xlDown).Offset(1, 0).Select
>
> ' karena ini bukan data pertama, maka beri nomor pada 1
> kolom di sebelah kiri
> ' nilainya berasal dari 1 baris di atasnya & 1 kolom di
> sebelah kiri (kiri atas)
> ActiveCell.Offset(0, -1).Value = ActiveCell.Offset(-1,
> -1).Value + 1
>
> ' akhir dari pengecekan data di bawah header
> End If
>
> ' masukkan nilai dari setiap variabel ke tempatnya masing-masing
> ActiveCell.Value = NoTrsk
> ActiveCell.Offset(0, 1).Value = PKP
> ActiveCell.Offset(0, 2).Value = NPWP
> ActiveCell.Offset(0, 3).Value = TglVcr
> ActiveCell.Offset(0, 4).Value = NoVcr
> ActiveCell.Offset(0, 5).Value = ObjPjk
> ActiveCell.Offset(0, 6).Value = DPP
> ActiveCell.Offset(0, 7).Value = Tarif
> ActiveCell.Offset(0, 9).Value = PPhDpt
>
> ' setelah itu kembali lagi ke sheet Form Isi 2 untuk mengambil
> data berikutnya
> Sheets("form isi 2").Select
>
> ' akhir dari penegcekan DPP
> End If
>
> ' lakukan untuk cDPP berikutnya
> Next cDPP
>
> ' aktifkan lagi menu screen update
> Application.ScreenUpdating = True
> End Sub
>
> Cara memanggilnya dengan cara menekan sebuah shape yang sudah di-assign
> dengan macro
>
> untuk formula yang ditanyakan silakan dilihat langsung pada file terlampir
>
> semoga bermanfaat,
>
> Best Regard,
>
> -Ms. Jan Raisin-
>
> 2012/12/4 <hartini_80@...>
>
> > **
> >
> >
> > ** Dear miss jan,
> > Berikut saya kirimkan rekap yang diinginkan, untuk N23 dia mengacu ke
> > sheet tarif, jika memiliki NPWP (cell I7 terisi) maka ditarif yg digunakan
> > itu 2%, jika tidak memiliki npwp 4%
> > Jika tidak menggunakan rekam macro bagaimana carax ya?
> > Mohon bantuannya
> >
> > Salam
> > Tiny
> > Powered by Telkomsel BlackBerry®
> > ------------------------------
> > *From: * Jan Raisin <miss.jan.raisin@...>
> > *Sender: * belajar-excel@yahoogroups.com
> > *Date: *Tue, 4 Dec 2012 12:50:38 +0700
> > *To: *<belajar-excel@yahoogroups.com>
> > *ReplyTo: * belajar-excel@yahoogroups.com
> > *Subject: *Re: [belajar-excel] Fw: Emailing: rekam macro transpose
> >
> >
> >
> > Dear mbak Tini,
> >
> > 1. sebelumnya bisakah dibantu dengan beberapa baris data yang diinginkan
> > di sheet rekap pph 23, karena tidak semua member millis bekerja di bidang
> > yang sama dengan mbak Tini.
> >
> > 2. untuk isian di sheet Form Isi 2 cell N23, yang dimaksud kolom 17 itu
> > cell yang mana ya?
> >
> > maaf, bertanya tanpa urun solusi :D
> >
> > Best Regard,
> >
> > -Ms. Jan Raisin-
> > *kelihatannya untuk kasus ini teknik rekam macro akan lebih sulit
> > dibandingkan dengan menulis script langsung di VBE*
> >
> > 2012/12/4 <hartini_80@...>
> >
> >> **
> >>
> >>
> >> Dear all
> >> Adakah yg bisa mengajakan kepada saya, bagaimana proses rekam makro untuk
> >> transpose
> >> Terima kasih
> >> Salam
> >> Tiny
> >>
> >> Powered by Telkomsel BlackBerry®
> >>
> >> -----Original Message-----
> >> From: Hartini FIN <hartini.fin@...>
> >> Date: Tue, 4 Dec 2012 04:28:07
> >> To: hartini_80@...<hartini_80@...>
> >> Subject: Emailing: rekam macro transpose
> >>
> >>
> >> Your message is ready to be sent with the following file or link
> >> attachments:
> >>
> >> rekam macro transpose
> >>
> >>
> >> Note: To protect against computer viruses, e-mail programs may prevent
> >> sending or receiving certain types of file attachments. Check your e-mail
> >> security settings to determine how attachments are handled.
> >> CONFIDENTIAL NOTE: The information contained in this email is intended
> >> only for the use of the individual or entity named above and may contain
> >> information that is privileged, confidential and exempt from disclosure
> >> under applicable law. If the reader of this message is not the intended
> >> recipient, you are hereby notified that any dissemination, distribution or
> >> copying of this communication is strictly prohibited. If you have received
> >> this message in error, please immediately notify the sender and delete the
> >> mail. Thank you.
> >>
> >>
> >
> >
>
