15 New Messages
Digest #1949
Messages
Mon Dec 3, 2012 10:38 pm (PST) . Posted by:
"hartini_80@yahoo.co.id" 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®
-----Original Message-----
From: Jan Raisin <miss.jan.raisin@gmail.com >
Sender: belajar-excel@yahoogroups.com
Date: Tue, 4 Dec 2012 12:50:38
To: <belajar-excel@yahoogroups.com >
Reply-To: 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@yahoo.co.id >
> **
>
>
> 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@bukitmakmur.com >
> Date: Tue, 4 Dec 2012 04:28:07
> To: hartini_80@yahoo.co.id <hartini_80@yahoo.co.id >
> 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.
>
>
>
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®
-----Original Message-----
From: Jan Raisin <miss.jan.raisin@
Sender: belajar-excel@
Date: Tue, 4 Dec 2012 12:50:38
To: <belajar-excel@
Reply-To: belajar-excel@
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@yahoo.
> **
>
>
> 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@yahoo.
> 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.
>
>
>
Tue Dec 4, 2012 1:23 am (PST) . Posted by:
"Jan Raisin"
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@yahoo.co.id >
> **
>
>
> ** 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@gmail.com >
> *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@yahoo.co.id >
>
>> **
>>
>>
>> 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@bukitmakmur.com >
>> Date: Tue, 4 Dec 2012 04:28:07
>> To: hartini_80@yahoo.co.id <hartini_80@yahoo.co.id >
>> 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.
>>
>>
>
>
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_
' NPWP = nomor_pokok_
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_
' letaknya mulai cell m13 sampai dengan cell m24
' cDPP = tiap-tiap_1_
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_
' Tari = tarif_pajak dalam persen
' PPhDpt = pajak_penghasilan_
Dim DPP, Tarif, PPhDpt As Double
' matikan dahulu fitur screen update agar vba berjalan lebih cepat
Application.
' 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_
' 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").
PKP = Range("i8").
NPWP = Range("i7").
TglVcr = Range("n3").
NoVcr = Range("n4").
' 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_
' 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(
' lakukan juga untuk yang lainnya
DPP = cDPP.Value
Tarif = cDPP.Offset(
PPhDpt = cDPP.Offset(
' 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").
' 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(
' turun 1 baris ke bawah
ActiveCell.Offset(
' karena ini adalah data pertama, maka beri nomer 1 pada 1
kolom di sebelah kiri
ActiveCell.Offset(
' 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(
' 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(
-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(
ActiveCell.Offset(
ActiveCell.Offset(
ActiveCell.Offset(
ActiveCell.Offset(
ActiveCell.Offset(
ActiveCell.Offset(
ActiveCell.Offset(
' 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.
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@yahoo.
> **
>
>
> ** 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@
> *Date: *Tue, 4 Dec 2012 12:50:38 +0700
> *To: *<belajar-excel@
> *ReplyTo: * belajar-excel@
> *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@yahoo.
>
>> **
>>
>>
>> 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@yahoo.
>> 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.
>>
>>
>
>
Tue Dec 4, 2012 3:50 am (PST) . Posted by:
"Muhammad Robin" mrobin86
Dear Be-exceller,
Saya mau nanya bagaimana cara menentukan tanggal pensiun untuk jabatan yang berbeda-beda.
Guru dan Pengawas usia pensiunnya 60 tahun dan jabatan lainnya 56.
Seperti data terlampir
Terima Kasih
Saya mau nanya bagaimana cara menentukan tanggal pensiun untuk jabatan yang berbeda-beda.
Guru dan Pengawas usia pensiunnya 60 tahun dan jabatan lainnya 56.
Seperti data terlampir
Terima Kasih
Tue Dec 4, 2012 3:51 am (PST) . Posted by:
"yulius -" yu_li_us
Dear Rekan Rekan Belajar Excel,
di akhir tahun ini karena ada kebijakan baru, saya kebagian tugas untuk
merekap semua data bon parkir dan tol yg terjadi selama tahun 2012
Mohon bantuannya bagaimana saya cara merekap semua itu ke dalam 1 lembar
excel karena data tersebut dibuat harian dan jumlahnya cukup banyak
Untuk folder tempat meletakkan data saya sertakan dalam excel berikut tipe
data bon karyawan bersangkutan
saya mengucapkan terima kasih atas bantuan dari rekan semua
salam,
Yulius
di akhir tahun ini karena ada kebijakan baru, saya kebagian tugas untuk
merekap semua data bon parkir dan tol yg terjadi selama tahun 2012
Mohon bantuannya bagaimana saya cara merekap semua itu ke dalam 1 lembar
excel karena data tersebut dibuat harian dan jumlahnya cukup banyak
Untuk folder tempat meletakkan data saya sertakan dalam excel berikut tipe
data bon karyawan bersangkutan
saya mengucapkan terima kasih atas bantuan dari rekan semua
salam,
Yulius
Tue Dec 4, 2012 3:51 am (PST) . Posted by:
"Titis Ardiyana Wulandari" tiez_2289
Alhamdulillah Pak Kid, sukses setelah diganti sumproduct, tapi saya kurang paham terkait makna dari pengkalian rumus2 tsb, mohon penjelasannya lagi..
dan juga saya mau tanya lagi, dengan contoh saya kemaren tetapi hasilnya tidak angka 1/0 tetapi sesuai tulisan aslinya, bagaimana mengganti rumusnya?
Terimakasih banyak..
Wa'alaikumsalam
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, December 4, 2012 2:21 AM
Subject: Re: Fw: [belajar-excel] mengganti di lain sheet
Â
Coba array formula :
=SUM(($B$4:$
>>ganti Sum dengan Sumproduct untuk entry formula bukan sebagai array formula
Wassalam,
Kid.
2012/12/3 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>Â
>Pak Kid,
>
>
>saya mau tanya lagi,
>ketika saya mencoba menggunakan rumus yg diberikan kemaren untuk mengakumulasi ternyata bisa.
>tetapi untuk menghitung sheet G38-G46 tidak berfungsi.
>
>
>minta pencerahannya lagi..
>terimakasih banyak..
>
>
>
>___________
>
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>
>Sent: Sunday, December 2, 2012 4:19 PM
>Subject: Re: Fw: [belajar-excel] mengganti di lain sheet
>
>
>
>Â
>mbak Wulan,
>
>operator <> artinya bukan
>C$4:C$12<>"
>bahasa manusianya :
>"setiap isi data bukanlah kata 'cuti'"
>
>Ekspresi di atas akan menghasilkan TRUE (setara 1) atau FALSE (setara 0)
>Jadi pada formula (misal) :
>=SUM(($B$4:
>yang biru menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai kondisi nama di tabel data sama atau tidak dengan nama pada baris yang dikalkulasi
>yang merah menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai kondisi nilai data di minggu itu bukan berisi tulisan 'cuti' atau tidak
>setiap angka yang bersesuaian kemudian dikalikan (setara operator logika AND)
>maka hasilnya akan berupa 9 angka berisi 1 atau 0
>9 angka inilah yang di-Sum
>
>Jadi, jika di B4,B12, B23 berisi nama 'Kid' dan C4,C12 isinya bukan 'Cuti', maka formula akan menghasilkan minimal angka 2 tergantung data di cell B5 sampai B11 dan cell C5 sampai C11.
>
>Wassalam,
>Kid.
>
>
>2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
>
>>Â
>>Mr. Kid,
>>
>>
>>salam kenal Pak Kid..
>>subhanallah rumusnya topcer,
>>1 yg saya kurang paham, mohon penjelasan tentang "(C$4:C$12<>
>>
>>
>>terimakasih banyak..
>>
>>
>>----- Forwarded Message -----
>>From: Mr. Kid <mr.nmkid@gmail.
>>To: belajar-excel@
>>Sent: Sunday, December 2, 2012 3:19 PM
>>Subject: Re: [belajar-excel] mengganti di lain sheet
>>
>>
>>Â
>>Hai Wulan,
>>
>>mbak Wulan bisa menggunakan fungsi CountIFs (xl2007 ke atas) atau SumProduct yang bisa untuk semua versi dan ndak perlu sebagai array formula.
>>om array formula di cell C23 pengen salim sama mbak Wulan, mungkin mengajak kenalan. Katanya tak kenal maka tak sayang.
>>bagini caranya kenalan :
>>1. tulis di C23 formula berikut tapi jangan sekali-kali tekan Enter :
>>Â Â Â Â =SUM(($B$4:$
>>2. kemudian tekan 3 tombol ini bersamaan :
>>Â Â Â Â CTRLÂ Â SHIFTÂ Â ENTER
>>
>>fyi.
>>array formula akan banyak membantu dalam proses kalkulasi yang lebih kompleks. Sebaiknya setiap Excel User bisa berkenalan dengan om array formula yang guanteng.
>>
>>Kalau masih jual mahal gak mau kenalan sama om array formula, ya sudah. Coba salah satu dari formula dibawah ini (tetap di cell C23) :
>>formula 1 : (semua versi Excel)
>>Â Â Â Â =SUMPRODUCT(
>>formula 2 : (Excel 2007 ke atas)
>>Â Â Â Â =COUNTIFS($B$
>>
>>
>>Semua formula di atas di copy ke kolom lainnya dan baris lainnya dalam sebuah blok minggu.
>>Untuk blok minggu lainnya :
>>>> copy cell C23 ke blok minggu baru
>>>> ubah rujukan ke tabel data agar sesuai dengan data minggu tersebut
>>>> akhiri dengan CTRLÂ SHIFTÂ ENTER jika array formula atau cukup dengan ENTER jika bukan array formula
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>>
>>
>>>Â
>>>dear All,
>>>
>>>
>>>saya mengalami kesulitan saat mengganti posisi tempat orang seperti contoh di attach files.
>>>di cell j9 & k9 wawan cuti, tapi karena minggu ke 2 tsb ada perubahan tempat posisi kerja, mengakibatkan di  bagian perhitungan ada kesalahan hitung seperti cell j28 & k28, seharusnya nilai 0 untuk wawan bukan doni.
>>>mohon pencerahannya menggunakan rumus apa supaya nilai2 perhitungan tetap sesuai list orangnya biarpun di jadwal orangnya berpindah2 tempat?
>>>
>>>
>>>terimakasih banyak atas bantuannya.
>>>semoga Allah membalas dengan lebih..
>>
>>
>>
>
>
>
Tue Dec 4, 2012 6:35 am (PST) . Posted by:
"Titis Ardiyana Wulandari" tiez_2289
Pak Kid,Â
semakin belajar, malah semakin banyak pertanyaan.
sekarang saya punya 3 pertanyaan sekaligus yg saya attach files
mohon pencerahannya..
terimakasih
----- Forwarded Message -----
From: Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
To: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Sent: Tuesday, December 4, 2012 5:31 PM
Subject: Fw: Fw: [belajar-excel] mengganti di lain sheet
Â
Alhamdulillah Pak Kid, sukses setelah diganti sumproduct, tapi saya kurang paham terkait makna dari pengkalian rumus2 tsb, mohon penjelasannya lagi..
dan juga saya mau tanya lagi, dengan contoh saya kemaren tetapi hasilnya tidak angka 1/0 tetapi sesuai tulisan aslinya, bagaimana mengganti rumusnya?
Terimakasih banyak..
Wa'alaikumsalam
________________________________
From: Mr. Kid <mr.nmkid@gmail.com >
To: belajar-excel@yahoogroups.com
Sent: Tuesday, December 4, 2012 2:21 AM
Subject: Re: Fw: [belajar-excel] mengganti di lain sheet
Â
Coba array formula :
=SUM(($B$4:$B$12=$B38)*($C$3:$G$3=$C$3:$G$3)*(LEFT($C$4:$G$12)=LEFT(C$37)))
>>ganti Sum dengan Sumproduct untuk entry formula bukan sebagai array formula
Wassalam,
Kid.
2012/12/3 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>Â
>Pak Kid,
>
>
>saya mau tanya lagi,
>ketika saya mencoba menggunakan rumus yg diberikan kemaren untuk mengakumulasi ternyata bisa.
>tetapi untuk menghitung sheet G38-G46 tidak berfungsi.
>
>
>minta pencerahannya lagi..
>terimakasih banyak..
>
>
>
>________________________________
>
>From: Mr. Kid <mr.nmkid@gmail.com >
>To: belajar-excel@yahoogroups.com
>
>Sent: Sunday, December 2, 2012 4:19 PM
>Subject: Re: Fw: [belajar-excel] mengganti di lain sheet
>
>
>
>Â
>mbak Wulan,
>
>operator <> artinya bukan
>C$4:C$12<>"cuti"
>bahasa manusianya :
>"setiap isi data bukanlah kata 'cuti'"
>
>Ekspresi di atas akan menghasilkan TRUE (setara 1) atau FALSE (setara 0)
>Jadi pada formula (misal) :
>=SUM(($B$4:$B$12=$B23)*(C$4:C$12<>"cuti"))
>yang biru menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai kondisi nama di tabel data sama atau tidak dengan nama pada baris yang dikalkulasi
>yang merah menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai kondisi nilai data di minggu itu bukan berisi tulisan 'cuti' atau tidak
>setiap angka yang bersesuaian kemudian dikalikan (setara operator logika AND)
>maka hasilnya akan berupa 9 angka berisi 1 atau 0
>9 angka inilah yang di-Sum
>
>Jadi, jika di B4,B12, B23 berisi nama 'Kid' dan C4,C12 isinya bukan 'Cuti', maka formula akan menghasilkan minimal angka 2 tergantung data di cell B5 sampai B11 dan cell C5 sampai C11.
>
>Wassalam,
>Kid.
>
>
>2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
>
>>Â
>>Mr. Kid,
>>
>>
>>salam kenal Pak Kid..
>>subhanallah rumusnya topcer,
>>1 yg saya kurang paham, mohon penjelasan tentang "(C$4:C$12<>"cuti")"
>>
>>
>>terimakasih banyak..
>>
>>
>>----- Forwarded Message -----
>>From: Mr. Kid <mr.nmkid@gmail.com >
>>To: belajar-excel@yahoogroups.com
>>Sent: Sunday, December 2, 2012 3:19 PM
>>Subject: Re: [belajar-excel] mengganti di lain sheet
>>
>>
>>Â
>>Hai Wulan,
>>
>>mbak Wulan bisa menggunakan fungsi CountIFs (xl2007 ke atas) atau SumProduct yang bisa untuk semua versi dan ndak perlu sebagai array formula.
>>om array formula di cell C23 pengen salim sama mbak Wulan, mungkin mengajak kenalan. Katanya tak kenal maka tak sayang.
>>bagini caranya kenalan :
>>1. tulis di C23 formula berikut tapi jangan sekali-kali tekan Enter :
>>Â Â Â Â =SUM(($B$4:$B$12=$B23)*(C$4:C$12<>"cuti"))
>>2. kemudian tekan 3 tombol ini bersamaan :
>>Â Â Â Â CTRLÂ Â SHIFTÂ Â ENTER
>>
>>fyi.
>>array formula akan banyak membantu dalam proses kalkulasi yang lebih kompleks. Sebaiknya setiap Excel User bisa berkenalan dengan om array formula yang guanteng.
>>
>>Kalau masih jual mahal gak mau kenalan sama om array formula, ya sudah. Coba salah satu dari formula dibawah ini (tetap di cell C23) :
>>formula 1 : (semua versi Excel)
>>Â Â Â Â =SUMPRODUCT(($B$4:$B$12=$B23)*(C$4:C$12<>"cuti"))
>>formula 2 : (Excel 2007 ke atas)
>>Â Â Â Â =COUNTIFS($B$4:$B$12,$B23,C$4:C$12,"<>cuti")
>>
>>
>>Semua formula di atas di copy ke kolom lainnya dan baris lainnya dalam sebuah blok minggu.
>>Untuk blok minggu lainnya :
>>>> copy cell C23 ke blok minggu baru
>>>> ubah rujukan ke tabel data agar sesuai dengan data minggu tersebut
>>>> akhiri dengan CTRLÂ SHIFTÂ ENTER jika array formula atau cukup dengan ENTER jika bukan array formula
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>>
>>
>>>Â
>>>dear All,
>>>
>>>
>>>saya mengalami kesulitan saat mengganti posisi tempat orang seperti contoh di attach files.
>>>di cell j9 & k9 wawan cuti, tapi karena minggu ke 2 tsb ada perubahan tempat posisi kerja, mengakibatkan di  bagian perhitungan ada kesalahan hitung seperti cell j28 & k28, seharusnya nilai 0 untuk wawan bukan doni.
>>>mohon pencerahannya menggunakan rumus apa supaya nilai2 perhitungan tetap sesuai list orangnya biarpun di jadwal orangnya berpindah2 tempat?
>>>
>>>
>>>terimakasih banyak atas bantuannya.
>>>semoga Allah membalas dengan lebih..
>>
>>
>>
>
>
>
semakin belajar, malah semakin banyak pertanyaan.
sekarang saya punya 3 pertanyaan sekaligus yg saya attach files
mohon pencerahannya.
terimakasih
----- Forwarded Message -----
From: Titis Ardiyana Wulandari <tiez_2289@yahoo.
To: "belajar-excel@
Sent: Tuesday, December 4, 2012 5:31 PM
Subject: Fw: Fw: [belajar-excel] mengganti di lain sheet
Â
Alhamdulillah Pak Kid, sukses setelah diganti sumproduct, tapi saya kurang paham terkait makna dari pengkalian rumus2 tsb, mohon penjelasannya lagi..
dan juga saya mau tanya lagi, dengan contoh saya kemaren tetapi hasilnya tidak angka 1/0 tetapi sesuai tulisan aslinya, bagaimana mengganti rumusnya?
Terimakasih banyak..
Wa'alaikumsalam
____________
From: Mr. Kid <mr.nmkid@gmail.
To: belajar-excel@
Sent: Tuesday, December 4, 2012 2:21 AM
Subject: Re: Fw: [belajar-excel] mengganti di lain sheet
Â
Coba array formula :
=SUM(($B$4:$
>>ganti Sum dengan Sumproduct untuk entry formula bukan sebagai array formula
Wassalam,
Kid.
2012/12/3 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>Â
>Pak Kid,
>
>
>saya mau tanya lagi,
>ketika saya mencoba menggunakan rumus yg diberikan kemaren untuk mengakumulasi ternyata bisa.
>tetapi untuk menghitung sheet G38-G46 tidak berfungsi.
>
>
>minta pencerahannya lagi..
>terimakasih banyak..
>
>
>
>___________
>
>From: Mr. Kid <mr.nmkid@gmail.
>To: belajar-excel@
>
>Sent: Sunday, December 2, 2012 4:19 PM
>Subject: Re: Fw: [belajar-excel] mengganti di lain sheet
>
>
>
>Â
>mbak Wulan,
>
>operator <> artinya bukan
>C$4:C$12<>"
>bahasa manusianya :
>"setiap isi data bukanlah kata 'cuti'"
>
>Ekspresi di atas akan menghasilkan TRUE (setara 1) atau FALSE (setara 0)
>Jadi pada formula (misal) :
>=SUM(($B$4:
>yang biru menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai kondisi nama di tabel data sama atau tidak dengan nama pada baris yang dikalkulasi
>yang merah menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai kondisi nilai data di minggu itu bukan berisi tulisan 'cuti' atau tidak
>setiap angka yang bersesuaian kemudian dikalikan (setara operator logika AND)
>maka hasilnya akan berupa 9 angka berisi 1 atau 0
>9 angka inilah yang di-Sum
>
>Jadi, jika di B4,B12, B23 berisi nama 'Kid' dan C4,C12 isinya bukan 'Cuti', maka formula akan menghasilkan minimal angka 2 tergantung data di cell B5 sampai B11 dan cell C5 sampai C11.
>
>Wassalam,
>Kid.
>
>
>2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
>
>>Â
>>Mr. Kid,
>>
>>
>>salam kenal Pak Kid..
>>subhanallah rumusnya topcer,
>>1 yg saya kurang paham, mohon penjelasan tentang "(C$4:C$12<>
>>
>>
>>terimakasih banyak..
>>
>>
>>----- Forwarded Message -----
>>From: Mr. Kid <mr.nmkid@gmail.
>>To: belajar-excel@
>>Sent: Sunday, December 2, 2012 3:19 PM
>>Subject: Re: [belajar-excel] mengganti di lain sheet
>>
>>
>>Â
>>Hai Wulan,
>>
>>mbak Wulan bisa menggunakan fungsi CountIFs (xl2007 ke atas) atau SumProduct yang bisa untuk semua versi dan ndak perlu sebagai array formula.
>>om array formula di cell C23 pengen salim sama mbak Wulan, mungkin mengajak kenalan. Katanya tak kenal maka tak sayang.
>>bagini caranya kenalan :
>>1. tulis di C23 formula berikut tapi jangan sekali-kali tekan Enter :
>>Â Â Â Â =SUM(($B$4:$
>>2. kemudian tekan 3 tombol ini bersamaan :
>>Â Â Â Â CTRLÂ Â SHIFTÂ Â ENTER
>>
>>fyi.
>>array formula akan banyak membantu dalam proses kalkulasi yang lebih kompleks. Sebaiknya setiap Excel User bisa berkenalan dengan om array formula yang guanteng.
>>
>>Kalau masih jual mahal gak mau kenalan sama om array formula, ya sudah. Coba salah satu dari formula dibawah ini (tetap di cell C23) :
>>formula 1 : (semua versi Excel)
>>Â Â Â Â =SUMPRODUCT(
>>formula 2 : (Excel 2007 ke atas)
>>Â Â Â Â =COUNTIFS($B$
>>
>>
>>Semua formula di atas di copy ke kolom lainnya dan baris lainnya dalam sebuah blok minggu.
>>Untuk blok minggu lainnya :
>>>> copy cell C23 ke blok minggu baru
>>>> ubah rujukan ke tabel data agar sesuai dengan data minggu tersebut
>>>> akhiri dengan CTRLÂ SHIFTÂ ENTER jika array formula atau cukup dengan ENTER jika bukan array formula
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>>
>>
>>>Â
>>>dear All,
>>>
>>>
>>>saya mengalami kesulitan saat mengganti posisi tempat orang seperti contoh di attach files.
>>>di cell j9 & k9 wawan cuti, tapi karena minggu ke 2 tsb ada perubahan tempat posisi kerja, mengakibatkan di  bagian perhitungan ada kesalahan hitung seperti cell j28 & k28, seharusnya nilai 0 untuk wawan bukan doni.
>>>mohon pencerahannya menggunakan rumus apa supaya nilai2 perhitungan tetap sesuai list orangnya biarpun di jadwal orangnya berpindah2 tempat?
>>>
>>>
>>>terimakasih banyak atas bantuannya.
>>>semoga Allah membalas dengan lebih..
>>
>>
>>
>
>
>
Tue Dec 4, 2012 6:57 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
No1 :
Sebab : Tulisan di data tidak sama dengan tulisan dikriteria.
Solusi : Pastikan penulisan nilai data sama dengan penulisn kriteria
No2 :
Sebab : Memang ada 2 data yang memenuhi kriteria.
Solusi : ubah formula hingga berbentuk :
=1*(formula_yang_sudah_dibuat > 0)
No3 : (copy ke bawah [baris berikutnya])
Formula minggu 1 :
=SUMIF($B$5:$B$13,$B19,$H$5:$H$13)
Formula minggu 2 :
=SUMIF($J$5:$J$13,$B19,$P$5:$P$13)
Wassalam,
Kid.
2012/12/4 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
> **
>
>
> Pak Kid,
>
> semakin belajar, malah semakin banyak pertanyaan.
> sekarang saya punya 3 pertanyaan sekaligus yg saya attach files
>
> mohon pencerahannya..
>
> terimakasih
>
> ----- Forwarded Message -----
> *From:* Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
> *To:* "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
> *Sent:* Tuesday, December 4, 2012 5:31 PM
> *Subject:* Fw: Fw: [belajar-excel] mengganti di lain sheet
>
>
>
> Alhamdulillah Pak Kid, sukses setelah diganti sumproduct, tapi saya kurang
> paham terkait makna dari pengkalian rumus2 tsb, mohon penjelasannya lagi..
> dan juga saya mau tanya lagi, dengan contoh saya kemaren tetapi hasilnya
> tidak angka 1/0 tetapi sesuai tulisan aslinya, bagaimana mengganti rumusnya?
>
> Terimakasih banyak..
>
> Wa'alaikumsalam
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, December 4, 2012 2:21 AM
> *Subject:* Re: Fw: [belajar-excel] mengganti di lain sheet
>
>
> Coba array formula :
> =SUM(($B$4:$B$12=$B38)*($C$3:$G$3=$C$3:$G$3)*(LEFT($C$4:$G$12)=LEFT(C$37)))
> >>ganti Sum dengan Sumproduct untuk entry formula bukan sebagai array
> formula
>
> Wassalam,
> Kid.
>
> 2012/12/3 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
> **
>
> Pak Kid,
>
> saya mau tanya lagi,
> ketika saya mencoba menggunakan rumus yg diberikan kemaren untuk
> mengakumulasi ternyata bisa.
> tetapi untuk menghitung sheet G38-G46 tidak berfungsi.
>
> minta pencerahannya lagi..
> terimakasih banyak..
>
> ------------------------------
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Sunday, December 2, 2012 4:19 PM
> *Subject:* Re: Fw: [belajar-excel] mengganti di lain sheet
>
>
> mbak Wulan,
>
> operator <> artinya bukan
> C$4:C$12<>"cuti"
> bahasa manusianya :
> "setiap isi data bukanlah kata 'cuti'"
>
> Ekspresi di atas akan menghasilkan TRUE (setara 1) atau FALSE (setara 0)
> Jadi pada formula (misal) :
> =SUM(($B$4:$B$12=$B23)*(C$4:C$12<>"cuti"))
> yang biru menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai
> kondisi nama di tabel data sama atau tidak dengan nama pada baris yang
> dikalkulasi
> yang merah menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai
> kondisi nilai data di minggu itu bukan berisi tulisan 'cuti' atau tidak
> setiap angka yang bersesuaian kemudian dikalikan (setara operator logika
> AND)
> maka hasilnya akan berupa 9 angka berisi 1 atau 0
> 9 angka inilah yang di-Sum
>
> Jadi, jika di B4,B12, B23 berisi nama 'Kid' dan C4,C12 isinya bukan
> 'Cuti', maka formula akan menghasilkan minimal angka 2 tergantung data di
> cell B5 sampai B11 dan cell C5 sampai C11.
>
> Wassalam,
> Kid.
>
> 2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
> **
>
> Mr. Kid,
>
> salam kenal Pak Kid..
> subhanallah rumusnya topcer,
> 1 yg saya kurang paham, mohon penjelasan tentang "(C$4:C$12<>"cuti")"
>
> terimakasih banyak..
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.com >
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Sunday, December 2, 2012 3:19 PM
> *Subject:* Re: [belajar-excel] mengganti di lain sheet
>
>
> Hai Wulan,
>
> mbak Wulan bisa menggunakan fungsi CountIFs (xl2007 ke atas) atau
> SumProduct yang bisa untuk semua versi dan ndak perlu sebagai array formula.
> om array formula di cell C23 pengen salim sama mbak Wulan, mungkin
> mengajak kenalan. Katanya tak kenal maka tak sayang.
> bagini caranya kenalan :
> 1. tulis di C23 formula berikut tapi jangan sekali-kali tekan Enter :
> =SUM(($B$4:$B$12=$B23)*(C$4:C$12<>"cuti"))
> 2. kemudian tekan 3 tombol ini bersamaan :
> CTRL SHIFT ENTER
>
> fyi.
> array formula akan banyak membantu dalam proses kalkulasi yang lebih
> kompleks. Sebaiknya setiap Excel User bisa berkenalan dengan om array
> formula yang guanteng.
>
> Kalau masih jual mahal gak mau kenalan sama om array formula, ya sudah.
> Coba salah satu dari formula dibawah ini (tetap di cell C23) :
> formula 1 : (semua versi Excel)
> =SUMPRODUCT(($B$4:$B$12=$B23)*(C$4:C$12<>"cuti"))
> formula 2 : (Excel 2007 ke atas)
> =COUNTIFS($B$4:$B$12,$B23,C$4:C$12,"<>cuti")
>
>
> Semua formula di atas di copy ke kolom lainnya dan baris lainnya dalam
> sebuah blok minggu.
> Untuk blok minggu lainnya :
> >> copy cell C23 ke blok minggu baru
> >> ubah rujukan ke tabel data agar sesuai dengan data minggu tersebut
> >> akhiri dengan CTRL SHIFT ENTER jika array formula atau cukup dengan
> ENTER jika bukan array formula
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.com >
>
> **
>
> dear All,
>
> saya mengalami kesulitan saat mengganti posisi tempat orang seperti contoh
> di attach files.
> di cell j9 & k9 wawan cuti, tapi karena minggu ke 2 tsb ada perubahan
> tempat posisi kerja, mengakibatkan di bagian perhitungan ada kesalahan
> hitung seperti cell j28 & k28, seharusnya nilai 0 untuk wawan bukan doni.
> mohon pencerahannya menggunakan rumus apa supaya nilai2 perhitungan tetap
> sesuai list orangnya biarpun di jadwal orangnya berpindah2 tempat?
>
> terimakasih banyak atas bantuannya.
> semoga Allah membalas dengan lebih..
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Sebab : Tulisan di data tidak sama dengan tulisan dikriteria.
Solusi : Pastikan penulisan nilai data sama dengan penulisn kriteria
No2 :
Sebab : Memang ada 2 data yang memenuhi kriteria.
Solusi : ubah formula hingga berbentuk :
=1*(formula_
No3 : (copy ke bawah [baris berikutnya])
Formula minggu 1 :
=SUMIF($B$5:
Formula minggu 2 :
=SUMIF($J$5:
Wassalam,
Kid.
2012/12/4 Titis Ardiyana Wulandari <tiez_2289@yahoo.
> **
>
>
> Pak Kid,
>
> semakin belajar, malah semakin banyak pertanyaan.
> sekarang saya punya 3 pertanyaan sekaligus yg saya attach files
>
> mohon pencerahannya.
>
> terimakasih
>
> ----- Forwarded Message -----
> *From:* Titis Ardiyana Wulandari <tiez_2289@yahoo.
> *To:* "belajar-excel@
> *Sent:* Tuesday, December 4, 2012 5:31 PM
> *Subject:* Fw: Fw: [belajar-excel] mengganti di lain sheet
>
>
>
> Alhamdulillah Pak Kid, sukses setelah diganti sumproduct, tapi saya kurang
> paham terkait makna dari pengkalian rumus2 tsb, mohon penjelasannya lagi..
> dan juga saya mau tanya lagi, dengan contoh saya kemaren tetapi hasilnya
> tidak angka 1/0 tetapi sesuai tulisan aslinya, bagaimana mengganti rumusnya?
>
> Terimakasih banyak..
>
> Wa'alaikumsalam
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Tuesday, December 4, 2012 2:21 AM
> *Subject:* Re: Fw: [belajar-excel] mengganti di lain sheet
>
>
> Coba array formula :
> =SUM(($B$4:$
> >>ganti Sum dengan Sumproduct untuk entry formula bukan sebagai array
> formula
>
> Wassalam,
> Kid.
>
> 2012/12/3 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
> **
>
> Pak Kid,
>
> saya mau tanya lagi,
> ketika saya mencoba menggunakan rumus yg diberikan kemaren untuk
> mengakumulasi ternyata bisa.
> tetapi untuk menghitung sheet G38-G46 tidak berfungsi.
>
> minta pencerahannya lagi..
> terimakasih banyak..
>
> ------------
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Sunday, December 2, 2012 4:19 PM
> *Subject:* Re: Fw: [belajar-excel] mengganti di lain sheet
>
>
> mbak Wulan,
>
> operator <> artinya bukan
> C$4:C$12<>"cuti"
> bahasa manusianya :
> "setiap isi data bukanlah kata 'cuti'"
>
> Ekspresi di atas akan menghasilkan TRUE (setara 1) atau FALSE (setara 0)
> Jadi pada formula (misal) :
> =SUM(($B$4:$
> yang biru menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai
> kondisi nama di tabel data sama atau tidak dengan nama pada baris yang
> dikalkulasi
> yang merah menghasilkan 9 angka (9 item array) yang berisi 1 atau 0 sesuai
> kondisi nilai data di minggu itu bukan berisi tulisan 'cuti' atau tidak
> setiap angka yang bersesuaian kemudian dikalikan (setara operator logika
> AND)
> maka hasilnya akan berupa 9 angka berisi 1 atau 0
> 9 angka inilah yang di-Sum
>
> Jadi, jika di B4,B12, B23 berisi nama 'Kid' dan C4,C12 isinya bukan
> 'Cuti', maka formula akan menghasilkan minimal angka 2 tergantung data di
> cell B5 sampai B11 dan cell C5 sampai C11.
>
> Wassalam,
> Kid.
>
> 2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
> **
>
> Mr. Kid,
>
> salam kenal Pak Kid..
> subhanallah rumusnya topcer,
> 1 yg saya kurang paham, mohon penjelasan tentang "(C$4:C$12<>
>
> terimakasih banyak..
>
> ----- Forwarded Message -----
> *From:* Mr. Kid <mr.nmkid@gmail.
> *To:* belajar-excel@
> *Sent:* Sunday, December 2, 2012 3:19 PM
> *Subject:* Re: [belajar-excel] mengganti di lain sheet
>
>
> Hai Wulan,
>
> mbak Wulan bisa menggunakan fungsi CountIFs (xl2007 ke atas) atau
> SumProduct yang bisa untuk semua versi dan ndak perlu sebagai array formula.
> om array formula di cell C23 pengen salim sama mbak Wulan, mungkin
> mengajak kenalan. Katanya tak kenal maka tak sayang.
> bagini caranya kenalan :
> 1. tulis di C23 formula berikut tapi jangan sekali-kali tekan Enter :
> =SUM(($B$4:$
> 2. kemudian tekan 3 tombol ini bersamaan :
> CTRL SHIFT ENTER
>
> fyi.
> array formula akan banyak membantu dalam proses kalkulasi yang lebih
> kompleks. Sebaiknya setiap Excel User bisa berkenalan dengan om array
> formula yang guanteng.
>
> Kalau masih jual mahal gak mau kenalan sama om array formula, ya sudah.
> Coba salah satu dari formula dibawah ini (tetap di cell C23) :
> formula 1 : (semua versi Excel)
> =SUMPRODUCT(
> formula 2 : (Excel 2007 ke atas)
> =COUNTIFS($B$
>
>
> Semua formula di atas di copy ke kolom lainnya dan baris lainnya dalam
> sebuah blok minggu.
> Untuk blok minggu lainnya :
> >> copy cell C23 ke blok minggu baru
> >> ubah rujukan ke tabel data agar sesuai dengan data minggu tersebut
> >> akhiri dengan CTRL SHIFT ENTER jika array formula atau cukup dengan
> ENTER jika bukan array formula
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/2 Titis Ardiyana Wulandari <tiez_2289@yahoo.
>
> **
>
> dear All,
>
> saya mengalami kesulitan saat mengganti posisi tempat orang seperti contoh
> di attach files.
> di cell j9 & k9 wawan cuti, tapi karena minggu ke 2 tsb ada perubahan
> tempat posisi kerja, mengakibatkan di bagian perhitungan ada kesalahan
> hitung seperti cell j28 & k28, seharusnya nilai 0 untuk wawan bukan doni.
> mohon pencerahannya menggunakan rumus apa supaya nilai2 perhitungan tetap
> sesuai list orangnya biarpun di jadwal orangnya berpindah2 tempat?
>
> terimakasih banyak atas bantuannya.
> semoga Allah membalas dengan lebih..
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
Tue Dec 4, 2012 3:52 am (PST) . Posted by:
"sefti syuhada" sefty@rocketmail.com
permisi master2 macro excel, saya lagi belajar macro excel dan sekarang mengalami sebuah kasus, begini:
saya punya data input (nama perusahaan)
nah tugas saya harus meng-generate file input tsb ke new file dengan
syarat:nantinya di file output, si nama perusahaan tsb masing2 memiliki data2 turunan.sebagai contoh
file input:
1.pt.indomie
2.pt.djarum
3.ptcarefour
dst
nah ketika file input tsb di generate ke new file, data harus berupa:
1.pt.indomie
pengeluaran
pemasukan
sisa kas
jumlah keseluruhan
begitupun nama perusahaan seterusnya
data file input bisa ratusan bahkan ribuan, ga mungkin kan klo harus di ketik manual :)
mohon pencerahannya dan maaf apabila pertanyaan saya kurang dimengerti
saya punya data input (nama perusahaan)
nah tugas saya harus meng-generate file input tsb ke new file dengan
syarat:nantinya di file output, si nama perusahaan tsb masing2 memiliki data2 turunan.sebagai contoh
file input:
1.pt.indomie
2.pt.djarum
3.ptcarefour
dst
nah ketika file input tsb di generate ke new file, data harus berupa:
1.pt.indomie
pengeluaran
pemasukan
sisa kas
jumlah keseluruhan
begitupun nama perusahaan seterusnya
data file input bisa ratusan bahkan ribuan, ga mungkin kan klo harus di ketik manual :)
mohon pencerahannya dan maaf apabila pertanyaan saya kurang dimengerti
Tue Dec 4, 2012 8:19 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Sefty,
Biasanya
1. perlu dibuat sebuah sheet berisi susunan (struktur dataset seperti kolom
dan barisnya) dataset yang akan menjadi output di file lain. Isi datanya
bisa diatur untuk berganti sesuai pemilik file.
2. Ada seluruh data yang bisa diambil nilainya berdasar si pt yang akan
menjadi file baru tersebut.
3. Ada daftar nama file output (sudah punya)
untuk loop per nama pt di sheet input pt :
(misal nama-nama ada di A2 sampai A65000)
dim rng as Range
dim shtTpl as worksheet, wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set shttpl=wbkapp.sheets("template")
application.displayalerts=false
for each rng in Sheets("input_pt").range("a2:a65000")
if lenb(rng.value)<>0 then
'lakukan proses isi data di sheet template
shttpl.range("a1").value = rng.value 'karena A1 sheet template
berisi nama pt
'lakukan ambil nilai dari sheet nilai disini misal :
with sheets("input").range("a1").currentregion
.autofilter 1, rng.value
.specialcells(xlcellsvisible).copy
sheets("template").range("B2")
end with
'buat workbook baru
set wbktarget=workbooks.add
'copy template ke workbook baru letakkan di indeks 1
shttpl.copy before:=wbktarget.sheets(1)
'ganti nama sheet output dari bernama template menjadi bernama
myOutput
wbktarget.sheets(1).name="myOutput"
'simpan workbook target
wbktarget.saveas wbkapp.path & "\" & rng.value
'tutup workbook target
wbktarget.close false
'aktifkan workbook kerja
wbkapp.activate
endif
next rng 'ke nama pt berikutnya
application.displayalerts=true
Letakkan script di atas pada sebuah prosedur di sebuah module di workbook
kerja. Kemudian jalankan macro atau buat object spahe atau control object
untuk memanggil prosedur tersebut.
Semua rujukan workbook, sheet, range adalah fiktif belaka.
Bila ada kesamaan nama, tempat dan waktu maka hal itu hanyalah kebetulan
saja.
Terimakasih kepada seluruh sponsor yang telah membantu terselesaikannya
script di atas
Segala kekurangan dan kekhilafan harap dimaafkan.
hehehe...
sepertinya kalau ada workbook contohnya, banyak BeExceller yang mau
mencobanya juga.
Wassalam,
Kid.
2012/12/4 sefti syuhada <sefty@rocketmail.com >
> **
>
>
> permisi master2 macro excel, saya lagi belajar macro excel dan sekarang
> mengalami sebuah kasus, begini:
> saya punya data input (nama perusahaan)
> nah tugas saya harus meng-generate file input tsb ke new file dengan
> syarat:nantinya di file output, si nama perusahaan tsb masing2 memiliki
> data2 turunan.sebagai contoh
> file input:
> 1.pt.indomie
> 2.pt.djarum
> 3.ptcarefour
> dst
> nah ketika file input tsb di generate ke new file, data harus berupa:
> 1.pt.indomie
> pengeluaran
> pemasukan
> sisa kas
> jumlah keseluruhan
>
> begitupun nama perusahaan seterusnya
> data file input bisa ratusan bahkan ribuan, ga mungkin kan klo harus di
> ketik manual :)
> mohon pencerahannya dan maaf apabila pertanyaan saya kurang dimengerti
>
>
>
Biasanya
1. perlu dibuat sebuah sheet berisi susunan (struktur dataset seperti kolom
dan barisnya) dataset yang akan menjadi output di file lain. Isi datanya
bisa diatur untuk berganti sesuai pemilik file.
2. Ada seluruh data yang bisa diambil nilainya berdasar si pt yang akan
menjadi file baru tersebut.
3. Ada daftar nama file output (sudah punya)
untuk loop per nama pt di sheet input pt :
(misal nama-nama ada di A2 sampai A65000)
dim rng as Range
dim shtTpl as worksheet, wbkApp as workbook, wbkTarget as workbook
set wbkapp=thisworkbook
set shttpl=wbkapp.
application.
for each rng in Sheets("input_
if lenb(rng.value)
'lakukan proses isi data di sheet template
shttpl.range(
berisi nama pt
'lakukan ambil nilai dari sheet nilai disini misal :
with sheets("input"
.autofilter 1, rng.value
.specialcells(
sheets("template"
end with
'buat workbook baru
set wbktarget=workbooks
'copy template ke workbook baru letakkan di indeks 1
shttpl.copy before:=wbktarget.
'ganti nama sheet output dari bernama template menjadi bernama
myOutput
wbktarget.sheets(
'simpan workbook target
wbktarget.saveas wbkapp.path & "\" & rng.value
'tutup workbook target
wbktarget.close false
'aktifkan workbook kerja
wbkapp.activate
endif
next rng 'ke nama pt berikutnya
application.
Letakkan script di atas pada sebuah prosedur di sebuah module di workbook
kerja. Kemudian jalankan macro atau buat object spahe atau control object
untuk memanggil prosedur tersebut.
Semua rujukan workbook, sheet, range adalah fiktif belaka.
Bila ada kesamaan nama, tempat dan waktu maka hal itu hanyalah kebetulan
saja.
Terimakasih kepada seluruh sponsor yang telah membantu terselesaikannya
script di atas
Segala kekurangan dan kekhilafan harap dimaafkan.
hehehe...
sepertinya kalau ada workbook contohnya, banyak BeExceller yang mau
mencobanya juga.
Wassalam,
Kid.
2012/12/4 sefti syuhada <sefty@rocketmail.
> **
>
>
> permisi master2 macro excel, saya lagi belajar macro excel dan sekarang
> mengalami sebuah kasus, begini:
> saya punya data input (nama perusahaan)
> nah tugas saya harus meng-generate file input tsb ke new file dengan
> syarat:nantinya di file output, si nama perusahaan tsb masing2 memiliki
> data2 turunan.sebagai contoh
> file input:
> 1.pt.indomie
> 2.pt.djarum
> 3.ptcarefour
> dst
> nah ketika file input tsb di generate ke new file, data harus berupa:
> 1.pt.indomie
> pengeluaran
> pemasukan
> sisa kas
> jumlah keseluruhan
>
> begitupun nama perusahaan seterusnya
> data file input bisa ratusan bahkan ribuan, ga mungkin kan klo harus di
> ketik manual :)
> mohon pencerahannya dan maaf apabila pertanyaan saya kurang dimengerti
>
>
>
Tue Dec 4, 2012 6:34 am (PST) . Posted by:
"Debora Christy" debora.christy@rocketmail.com
Dear BeExceller,
Saya ada masalah dengan formula makro untuk filter yang saya gunakan...
Formula tidak bekerja dengan baik, sehingga seluruh data yang hendak saya filter muncul semua...
Formula yang saya gunakan...
Sub AdvFilter()
ThisWorkbook.Sheets("GLOBAL REPORT").Range("A7").CurrentRegion. _
AdvancedFilter Action:=xlFilterCopy, _
CriteriaRange:=ThisWorkbook.Sheets("FILTER").Range("LISTTANGGAL"), _
CopyToRange:=ThisWorkbook.Sheets("FILTER").Range("B31:I31"), _
Unique:=False
JmlDataCocok = Application.WorksheetFunction.Count _
(ThisWorkbook.Sheets("FILTER").Range("B32:B1048576"))
ThisWorkbook.Sheets("FILTER").Range("B26").Value = _
"Hasil: " & JmlDataCocok & " data cocok dengan kriteria"
End Sub
LISTTANGGAL =OFFSET(FILTER!$B$9;0;0;COUNTA(FILTER!$B$9:$G$11);1)
saya juga sertakan lampiran datanya...
Terimakasih sebelumnya....
Saya ada masalah dengan formula makro untuk filter yang saya gunakan...
Formula tidak bekerja dengan baik, sehingga seluruh data yang hendak saya filter muncul semua...
Formula yang saya gunakan...
Sub AdvFilter()
ThisWorkbook.
AdvancedFilter Action:=xlFilterCop
CriteriaRange:
CopyToRange:
Unique:=False
JmlDataCocok = Application.
(ThisWorkbook.
ThisWorkbook.
"Hasil: " & JmlDataCocok & " data cocok dengan kriteria"
End Sub
LISTTANGGAL =OFFSET(FILTER!
saya juga sertakan lampiran datanya...
Terimakasih sebelumnya..
Tue Dec 4, 2012 8:31 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Coba buat suatu range kriteria yang susunannya :
baris pertama : header kolom dari data (copas dari tabel data) yang menjadi
kolom-kolom kriteria filter
baris kedua dan seterusnya : nilai-nilai kriteria sesuai nama kolom di
baris pertama.
Contoh :
Data di sheet Global Report area A7 current region
Kriteria di sheet filter X5:Z6 dimana :
X5 sampai Z5 berisi header yang tulisannya sama persis dengan
header di Global Report
X6 sampai Z6 berisi nilai-nilai kriteria yang link dengan cell-cell
input di kolom D sesuai nama header di X5:Z5
CopyToRange di sheet filter B31:i31 dengan nama header yang sama persis
dengan header di global report
Wassalam,
Kid.
2012/12/4 Debora Christy <debora.christy@rocketmail.com >
> **
>
>
> Dear BeExceller,
> Saya ada masalah dengan formula makro untuk filter yang saya gunakan...
> Formula tidak bekerja dengan baik, sehingga seluruh data yang hendak saya
> filter muncul semua...
> Formula yang saya gunakan...
>
> Sub AdvFilter()
> ThisWorkbook.Sheets("GLOBAL REPORT").Range("A7").CurrentRegion. _
> AdvancedFilter Action:=xlFilterCopy, _
> CriteriaRange:=ThisWorkbook.Sheets("FILTER").Range("LISTTANGGAL"),
> _
> CopyToRange:=ThisWorkbook.Sheets("FILTER").Range("B31:I31"), _
> Unique:=False
> JmlDataCocok = Application.WorksheetFunction.Count _
> (ThisWorkbook.Sheets("FILTER").Range("B32:B1048576"))
> ThisWorkbook.Sheets("FILTER").Range("B26").Value = _
> "Hasil: " & JmlDataCocok & " data cocok dengan kriteria"
> End Sub
>
> LISTTANGGAL =OFFSET(FILTER!$B$9;0;0;COUNTA(FILTER!$B$9:$G$11);1)
>
> saya juga sertakan lampiran datanya...
> Terimakasih sebelumnya....
>
> _
>
>
baris pertama : header kolom dari data (copas dari tabel data) yang menjadi
kolom-kolom kriteria filter
baris kedua dan seterusnya : nilai-nilai kriteria sesuai nama kolom di
baris pertama.
Contoh :
Data di sheet Global Report area A7 current region
Kriteria di sheet filter X5:Z6 dimana :
X5 sampai Z5 berisi header yang tulisannya sama persis dengan
header di Global Report
X6 sampai Z6 berisi nilai-nilai kriteria yang link dengan cell-cell
input di kolom D sesuai nama header di X5:Z5
CopyToRange di sheet filter B31:i31 dengan nama header yang sama persis
dengan header di global report
Wassalam,
Kid.
2012/12/4 Debora Christy <debora.christy@
> **
>
>
> Dear BeExceller,
> Saya ada masalah dengan formula makro untuk filter yang saya gunakan...
> Formula tidak bekerja dengan baik, sehingga seluruh data yang hendak saya
> filter muncul semua...
> Formula yang saya gunakan...
>
> Sub AdvFilter()
> ThisWorkbook.
> AdvancedFilter Action:=xlFilterCop
> CriteriaRange:
> _
> CopyToRange:
> Unique:=False
> JmlDataCocok = Application.
> (ThisWorkbook.
> ThisWorkbook.
> "Hasil: " & JmlDataCocok & " data cocok dengan kriteria"
> End Sub
>
> LISTTANGGAL =OFFSET(FILTER!
>
> saya juga sertakan lampiran datanya...
> Terimakasih sebelumnya..
>
> _
>
>
Tue Dec 4, 2012 7:03 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Script :
Sheets(sNamaSheet).autofiltermode=false
hanya berlaku untuk autofilter pada suatu range
Jika data dibentuk sebagai Excel Table (dibentuk dengan fitur Excel Table) :
Sheets(sNamaSheet).Range(sNamaExcelTable).autofilter 1
Sheets(sNamaSheet).Range(sNamaExcelTable).autofilter
Wassalam,
Kid.
2012/12/4 him mah <himmah.mlg@gmail.com >
> **
>
>
> iya, makasih pak Kid sudah bisa, kemarin saya browsing sudah ketemu
> tapi ketika saya jalankan ngga berhasil, filternya tetap muncul
>
> Pada tanggal 04/12/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
>
> > Pak Him,
> >
> > Autofilter di turnoff akan menghilangkan efek autofilter.
> > Vba:
> > Sheets(sNamaSheet).autofiltermode=false
> >
> > Wassalam,
> > Kid.
> > On Dec 4, 2012 7:14 AM, "him mah" <himmah.mlg@gmail.com > wrote:
> >
> >> **
>
> >>
> >>
> >> Assalamualaikum Wr. Wb.
> >>
> >> maaf, mau tanya lagi
> >>
> >> misal dalam suatu file excel itu ada sheet yang terfilter (auto
> >> filter), kemudian bagaimana caranya agar sheet-sheet yang terfilter
> >> itu menjadi tidak terfilter
> >>
> >> terima kasih
> >>
> >>
> >
>
>
>
Sheets(sNamaSheet)
hanya berlaku untuk autofilter pada suatu range
Jika data dibentuk sebagai Excel Table (dibentuk dengan fitur Excel Table) :
Sheets(sNamaSheet)
Sheets(sNamaSheet)
Wassalam,
Kid.
2012/12/4 him mah <himmah.mlg@gmail.
> **
>
>
> iya, makasih pak Kid sudah bisa, kemarin saya browsing sudah ketemu
> tapi ketika saya jalankan ngga berhasil, filternya tetap muncul
>
> Pada tanggal 04/12/12, Mr. Kid <mr.nmkid@gmail.
>
> > Pak Him,
> >
> > Autofilter di turnoff akan menghilangkan efek autofilter.
> > Vba:
> > Sheets(sNamaSheet)
> >
> > Wassalam,
> > Kid.
> > On Dec 4, 2012 7:14 AM, "him mah" <himmah.mlg@gmail.
> >
> >> **
>
> >>
> >>
> >> Assalamualaikum Wr. Wb.
> >>
> >> maaf, mau tanya lagi
> >>
> >> misal dalam suatu file excel itu ada sheet yang terfilter (auto
> >> filter), kemudian bagaimana caranya agar sheet-sheet yang terfilter
> >> itu menjadi tidak terfilter
> >>
> >> terima kasih
> >>
> >>
> >
>
>
>
Tue Dec 4, 2012 7:14 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pada event partno exit :
- semua vNilai diganti dengan sPart
- sRackByPart = blabla diganti menjadi :
sRackByPart = Replace$(sRackByPart, "," & sPart,vbnullstring) & "," &
sPart
- buka proteksi sheet lebih dulu. Kemudian akhir dengan proteksi sheet.
Cara proteksi diset agar proteksi hanya untuk userinterface saja. Bunyi
proteksi :
sheets("nama sheetnya").protect "passwordnya",userinterfaceonly:=true
Wassalam,
Kid.
2012/12/3 ngademin Thohari <ngademinth@yahoo.co.id >
> **
>
>
> Be-Exceller, mr. kid
>
> Mohon diverifikasi pekerjaan saya, saya coba program tidak berjalan dengan
> semestinya,
>
>
> Option Explicit
>
> Private Sub UserForm_Initialize()
> Dim ctr As Control
> For Each ctr In Me.Controls
> If Left(ctr.Name, 2) = "Cb" Then ctr.BackColor = RGB(240, 255, 255)
> If Left(ctr.Name, 2) = "Tb" Then ctr.BackColor = RGB(255, 255, 225)
> Next ctr
> End Sub
>
> Private Sub UserForm_Activate()
> 'CbType.List = Array("Model1", "Model2", "Model3", "Model4",
> "Model5", "Model6", "Model7", "Model8")
> 'CbType.ListIndex = 0
> CbCust.List = Array("PTIEI", "PTITR", "PTFLUI", "PTSKI", "PTLGIT")
> CbCust.ListIndex = 0
> CbOpr.List = Array("Purwati", "Ria", "Evi Hudi", "Sarwinah", "Tiwi",
> "Maurice")
> CbOpr.ListIndex = 0
> Cbqty.List = Array("0")
> Cbqty.ListIndex = 0
> 'Cbloc.List = Array("78P1WP02-R01-", "78P1WP02-R02-",
> "78P1WP02-R03-", "78P1WP02-R04-", "78P1WP02-R05-", "78P1WP02-R06-",
> "78P1WP02-R07", "78P1WP02-R08", "78P1WP02-R09", "78P1WP02-R10",
> "78P1WP02-R11", "78P1WP02-R12", "78P1WP02-R13", "78P1WP02-R14",
> "78P1WP02-R15")
> 'Cbloc.ListIndex = 0
> Cbcons.List = Array("Bali-1", "A14..", "Common")
> 'Cbcons.ListIndex = 0
>
> 'CbDate = Format(Now, "dd/mm/yyyy hh:mm:ss")
> End Sub
> Private Sub Cbqty_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal
> Shift As Integer)
> Select Case KeyCode
> Case 8, 48 To 57 'tombol back atau tombol angka dari 0 sampai 9
> Case Else 'lainnya
> KeyCode = 0 'gak ada yang dipencet
>
> 'pesan : (udah gak jaman lagi ngrusuhi user yang lagi fokus ngisi
> dengan munculnya msgbox)
> Beep 'sound dikit, daripada keluar msgbox yang
> mengganggu user
> End Select
> End Sub
> Private Sub CmdInput_Click()
> Dim LastRow As Range, Respons
> Dim ctrl As Control
> Sheet3.Unprotect "Belajar-Excel"
> On Error Resume Next
> Set LastRow = Sheet3.Range("C10000").End(xlUp)
> For Each ctrl In Me.Controls
> If TypeName(ctrl) = "TextBox" Then
> If Left(ctrl.Name, 2) = "Tb" And ctrl.Value = "" Then
> MsgBox ctrl.Name & " belum diisi !!", 48, "Material Input
> Control"
> Exit Sub
> End If
> End If
> Next ctrl
> 'pengolah data partno
> Dim vNilai As Variant
>
> vNilai = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString))
> 'hapus teks '3N1'
> vNilai = Left$(vNilai, InStr(vNilai & " ", " ") - 1) 'ambil kode saja
> (asumsi ada spasi pemisah kode dengan qty)
>
> 'buat jaga-jaga, siapa tahu Excel gak mau auto convert tipedata saat
> ditulisi di bagian with di bawah sana
> If IsNumeric(vNilai) Then 'cek isinya bisa jadi bilangan
> vNilai = CLng(vNilai) 'konversi tipe data
> End If
>
> With LastRow
> .Cells(2, 1) = Tbloc.Value
> .Cells(2, 11) = Tbloc.Value
> .Cells(2, 2) = Cbcons
> .Cells(2, 3) = CbCust
> '.Cells(2, 4) = CbDate
> .Cells(2, 5).Value = vNilai
> .Cells(2, 6) = TbLot.Value
> .Cells(2, 7) = TbPartname.Value
> .Cells(2, 8) = Cbqty.Value
> .Cells(2, 9) = CbOpr
> End With
> Sheet3.Range("A1").Select
> Respons = MsgBox("Data masuk dengan sukses, Lanjutkan Input ?", 4,
> "Material Input Success")
> If Respons = vbNo Then Unload Me
>
> For Each ctrl In Me.Controls
> If Left(ctrl.Name, 2) = "Tb" Then ctrl = ""
> Next ctrl
>
> Sheet3.Protect "Belajar-Excel"
> 'set sortcolumns -> siapa tahu pernah dipakai sort rows
> Sheet3.Range("c1").CurrentRegion.Sort
> Sheet3.Range ("g1"), xlAscending, Header:=xlYes, Orientation:=xlSortColumns
>
> End Sub
>
> Private Sub TbPartno_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim rngData As Range, rng As Range
> Dim sPart As String, sRackByPart As String
>
> 'simpan part tanpa 3n1 dan qty
> sPart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString)) 'hapus
> teks '3N1'
> sPart = Left$(vNilai, InStr(sPart & " ", " ") - 1) 'ambil kode saja
> (asumsi ada spasi pemisah kode dengan qty)
>
> 'filter data yang ada berdasar spart
> Set rngData = Sheet3.Range("c1").CurrentRegion.Resize(, 1).Offset(0, 4)
> With rngData
> .Parent.AutoFilterMode = False
> .AutoFilter 1, sPart
> If .SpecialCells(xlCellTypeVisible).Count > 1 Then
> For Each rng In .Offset(1).SpecialCells(xlCellTypeVisible)
> If LenB(rng.Value) <> 0 Then
> sRackByPart = Replace$(sRackByPart, "," & sPart) & "," &
> sPart
> End If
> Next rng
> sRackByPart = Mid$(sRackByPart, 2)
> End If
>
> If LenB(sRackByPart) <> 0 Then
> TextBox1.Text = sRackByPart
> Else
> TextBox1.Text = "Tidak ada rack yang dipakai part " & sPart
> End If
> TextBox1.Locked = True
> .Parent.AutoFilterMode = False
> End With
> End Sub
> Private Sub Tbloc_Exit(ByVal Cancel As MSForms.ReturnBoolean)
> Dim rngData As Range
> Dim sPart As String, sRack As String
>
> 'simpan part tanpa 3n1 dan qty
> sPart = Trim$(Replace$(UCase$(TbPartno.Text), "3N1", vbNullString)) 'hapus
> teks '3N1'
> sPart = Left$(vNilai, InStr(sPart & " ", " ") - 1) 'ambil kode saja
> (asumsi ada spasi pemisah kode dengan qty)
> sRack = Trim$(Tbloc.Text)
>
> 'filter data yang ada berdasar spart
> Set rngData = Sheet3.Range("c1").CurrentRegion.Resize(, 7).Offset(0, 4)
> With rngData
> .Parent.AutoFilterMode = False
> .Font.Bold = False
> .AutoFilter 1, sPart
> .AutoFilter 7, sRack
> If .Resize(, 1).SpecialCells(xlCellTypeVisible).Count > 1 Then
> .SpecialCells(xlCellTypeVisible).Font.Bold
> TextBox1.Text = "Sudah dipakai part lain"
> Else
> .Parent.AutoFilterMode = False
> End If
> TextBox1.Locked = True
> End With
> End Sub
>
> Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
> If CloseMode = vbFormControlMenu Then Cancel = True
> End Sub
>
> Private Sub CmdCancel_Click()
> Unload Me
> End Sub
>
> terima kasih
>
> Dwi amin
>
>
> ------------------------------
> **
>
- semua vNilai diganti dengan sPart
- sRackByPart = blabla diganti menjadi :
sRackByPart = Replace$(sRackByPar
sPart
- buka proteksi sheet lebih dulu. Kemudian akhir dengan proteksi sheet.
Cara proteksi diset agar proteksi hanya untuk userinterface saja. Bunyi
proteksi :
sheets("nama sheetnya").protect "passwordnya"
Wassalam,
Kid.
2012/12/3 ngademin Thohari <ngademinth@yahoo.
> **
>
>
> Be-Exceller, mr. kid
>
> Mohon diverifikasi pekerjaan saya, saya coba program tidak berjalan dengan
> semestinya,
>
>
> Option Explicit
>
> Private Sub UserForm_Initialize
> Dim ctr As Control
> For Each ctr In Me.Controls
> If Left(ctr.Name, 2) = "Cb" Then ctr.BackColor = RGB(240, 255, 255)
> If Left(ctr.Name, 2) = "Tb" Then ctr.BackColor = RGB(255, 255, 225)
> Next ctr
> End Sub
>
> Private Sub UserForm_Activate(
> 'CbType.List = Array("Model1"
> "Model5", "Model6", "Model7", "Model8")
> 'CbType.ListIndex = 0
> CbCust.List = Array("PTIEI"
> CbCust.ListIndex = 0
> CbOpr.List = Array("Purwati"
> "Maurice")
> CbOpr.ListIndex = 0
> Cbqty.List = Array("0")
> Cbqty.ListIndex = 0
> 'Cbloc.List = Array("78P1WP02-
> "78P1WP02-R03-
> "78P1WP02-R07"
> "78P1WP02-R11"
> "78P1WP02-R15"
> 'Cbloc.ListIndex = 0
> Cbcons.List = Array("Bali-
> 'Cbcons.ListIndex = 0
>
> 'CbDate = Format(Now, "dd/mm/yyyy hh:mm:ss")
> End Sub
> Private Sub Cbqty_KeyDown(
> Shift As Integer)
> Select Case KeyCode
> Case 8, 48 To 57 'tombol back atau tombol angka dari 0 sampai 9
> Case Else 'lainnya
> KeyCode = 0 'gak ada yang dipencet
>
> 'pesan : (udah gak jaman lagi ngrusuhi user yang lagi fokus ngisi
> dengan munculnya msgbox)
> Beep 'sound dikit, daripada keluar msgbox yang
> mengganggu user
> End Select
> End Sub
> Private Sub CmdInput_Click(
> Dim LastRow As Range, Respons
> Dim ctrl As Control
> Sheet3.Unprotect "Belajar-Excel"
> On Error Resume Next
> Set LastRow = Sheet3.Range(
> For Each ctrl In Me.Controls
> If TypeName(ctrl) = "TextBox" Then
> If Left(ctrl.Name, 2) = "Tb" And ctrl.Value = "" Then
> MsgBox ctrl.Name & " belum diisi !!", 48, "Material Input
> Control"
> Exit Sub
> End If
> End If
> Next ctrl
> 'pengolah data partno
> Dim vNilai As Variant
>
> vNilai = Trim$(Replace$
> 'hapus teks '3N1'
> vNilai = Left$(vNilai, InStr(vNilai & " ", " ") - 1) 'ambil kode saja
> (asumsi ada spasi pemisah kode dengan qty)
>
> 'buat jaga-jaga, siapa tahu Excel gak mau auto convert tipedata saat
> ditulisi di bagian with di bawah sana
> If IsNumeric(vNilai) Then 'cek isinya bisa jadi bilangan
> vNilai = CLng(vNilai) 'konversi tipe data
> End If
>
> With LastRow
> .Cells(2, 1) = Tbloc.Value
> .Cells(2, 11) = Tbloc.Value
> .Cells(2, 2) = Cbcons
> .Cells(2, 3) = CbCust
> '.Cells(2, 4) = CbDate
> .Cells(2, 5).Value = vNilai
> .Cells(2, 6) = TbLot.Value
> .Cells(2, 7) = TbPartname.Value
> .Cells(2, 8) = Cbqty.Value
> .Cells(2, 9) = CbOpr
> End With
> Sheet3.Range(
> Respons = MsgBox("Data masuk dengan sukses, Lanjutkan Input ?", 4,
> "Material Input Success")
> If Respons = vbNo Then Unload Me
>
> For Each ctrl In Me.Controls
> If Left(ctrl.Name, 2) = "Tb" Then ctrl = ""
> Next ctrl
>
> Sheet3.Protect "Belajar-Excel"
> 'set sortcolumns -> siapa tahu pernah dipakai sort rows
> Sheet3.Range(
> Sheet3.Range ("g1"), xlAscending, Header:=xlYes, Orientation:
>
> End Sub
>
> Private Sub TbPartno_Exit(
> Dim rngData As Range, rng As Range
> Dim sPart As String, sRackByPart As String
>
> 'simpan part tanpa 3n1 dan qty
> sPart = Trim$(Replace$
> teks '3N1'
> sPart = Left$(vNilai, InStr(sPart & " ", " ") - 1) 'ambil kode saja
> (asumsi ada spasi pemisah kode dengan qty)
>
> 'filter data yang ada berdasar spart
> Set rngData = Sheet3.Range(
> With rngData
> .Parent.AutoFilterM
> .AutoFilter 1, sPart
> If .SpecialCells(
> For Each rng In .Offset(1).SpecialC
> If LenB(rng.Value) <> 0 Then
> sRackByPart = Replace$(sRackByPar
> sPart
> End If
> Next rng
> sRackByPart = Mid$(sRackByPart, 2)
> End If
>
> If LenB(sRackByPart) <> 0 Then
> TextBox1.Text = sRackByPart
> Else
> TextBox1.Text = "Tidak ada rack yang dipakai part " & sPart
> End If
> TextBox1.Locked = True
> .Parent.AutoFilterM
> End With
> End Sub
> Private Sub Tbloc_Exit(ByVal Cancel As MSForms.ReturnBoole
> Dim rngData As Range
> Dim sPart As String, sRack As String
>
> 'simpan part tanpa 3n1 dan qty
> sPart = Trim$(Replace$
> teks '3N1'
> sPart = Left$(vNilai, InStr(sPart & " ", " ") - 1) 'ambil kode saja
> (asumsi ada spasi pemisah kode dengan qty)
> sRack = Trim$(Tbloc.
>
> 'filter data yang ada berdasar spart
> Set rngData = Sheet3.Range(
> With rngData
> .Parent.AutoFilterM
> .Font.Bold = False
> .AutoFilter 1, sPart
> .AutoFilter 7, sRack
> If .Resize(, 1).SpecialCells(
> .SpecialCells(
> TextBox1.Text = "Sudah dipakai part lain"
> Else
> .Parent.AutoFilterM
> End If
> TextBox1.Locked = True
> End With
> End Sub
>
> Private Sub UserForm_QueryClose
> If CloseMode = vbFormControlMenu Then Cancel = True
> End Sub
>
> Private Sub CmdCancel_Click(
> Unload Me
> End Sub
>
> terima kasih
>
> Dwi amin
>
>
> ------------
> **
>
Tue Dec 4, 2012 7:41 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Proses terasa ada jeda karena setiap simpan harus menulis banyak sekali
cell.
Coba manfaatkan proses copy paste. Syaratnya, harus tahu jumlah baris yang
diinput karena area input di worksheet Faktur berisi formula.
Secara umum langkahnya :
1. cari tahu jumlah baris diinput -> letakkan di bagian : 'Ambil data nama
dan alamat dari sheet Form
2. cek, jika jumlah baris diinput kurang dari 2 (karena satu set input
harus 2 baris), maka proses dibatalkan (keluar)
3. baris diinput mencapai minimal 2, maka blok range input mulai A5:K5
diperluas sebanyak jumlah bari diinput dan lakukan Copy
4. tentukan baris terakhir rekap (sudah ada)
5. paste values data dari faktur ke rekap pada 1 baris setelah baristerakhir
6. copy formula di kolom L sampai P di sheet rekap ke baris-baris data
hasil paste di kolom L dan P nya
Bagian : 'Ambil data nama dan alamat dari sheet Form
diganti semua isinya menjadi :
dim lRec as long
lrec=application.worksheetfunction.count(sheets("faktur").range("a4").currentregion.resize(,1))
if lrec<2 then
exit sub
endif
sheets("faktur").range("a5").resize(lrec).copy
Bagian : 'Simpan data dari sheet Form ke sheet Database
'pada baris terakhir yang kosong
diganti menjadi :
.Cells(BarisTerakhir + 1, 1).pastespecial xlpastevalues
.range("L5:P5").copy .Cells(BarisTerakhir + 1, 1).resize(lrec)
Wassalamu'alaikum Wr. Wb.,
Kid
2012/12/3 Gilang Gumilar <ggumilar29@yahoo.co.id >
> **
>
>
> Assalamu'alaikum****
>
> Saya telah membuat faktur penjualan untuk apotik, dengan vba awalnya ****
>
> Private Sub CommandButton1_Click()****
>
> ** **
>
> Application.ScreenUpdating = False****
>
> ** **
>
> 'deklarasi variabel****
>
> Dim Nama, Alamat As String****
>
> ** **
>
> 'Ambil data nama dan alamat dari sheet Form****
>
> Nama = Me.Cells(2, 1).Value****
>
> Alamat = Me.Cells(2, 2).Value****
>
> ****
>
> With Worksheets("Database")****
>
> 'Cari tau baris terakhir yang kosong pada sheet Database****
>
> BarisTerakhir = Worksheets("Database").Cells(.Rows.Count,
> 1).End(xlUp).Row****
>
> ****
>
> 'Simpan data dari sheet Form ke sheet Database****
>
> 'pada baris terakhir yang kosong****
>
> ****
>
> .Cells(BarisTerakhir + 1, 1).Value = Nama****
>
> .Cells(BarisTerakhir + 1, 2).Value = Alamat****
>
> End With****
>
> ****
>
> 'hapus data inputan pada sheet Form****
>
> Me.Range(Cells(2, 1), Cells(2, 2)).ClearContents****
>
> ****
>
> 'simpan file****
>
> ActiveWorkbook.Save****
>
> ****
>
> Application.ScreenUpdating = True****
>
> ** **
>
> End Sub****
>
> ** **
>
> Saya belu paham betul dengan vba diatas, saat saya mencoba untuk menyimpan
> 2 value dari cell tidak ada masalah, tapa saat mencoba untuk menyimpan
> value dari banyak cell prosesnya telat.apa yang kurang atau salah?saya
> harap rekan-rekan ada yang bisa memberikan solusi.untuk lebih jelasnya
> filenya saya lampirkan****
>
>
>
Proses terasa ada jeda karena setiap simpan harus menulis banyak sekali
cell.
Coba manfaatkan proses copy paste. Syaratnya, harus tahu jumlah baris yang
diinput karena area input di worksheet Faktur berisi formula.
Secara umum langkahnya :
1. cari tahu jumlah baris diinput -> letakkan di bagian : 'Ambil data nama
dan alamat dari sheet Form
2. cek, jika jumlah baris diinput kurang dari 2 (karena satu set input
harus 2 baris), maka proses dibatalkan (keluar)
3. baris diinput mencapai minimal 2, maka blok range input mulai A5:K5
diperluas sebanyak jumlah bari diinput dan lakukan Copy
4. tentukan baris terakhir rekap (sudah ada)
5. paste values data dari faktur ke rekap pada 1 baris setelah baristerakhir
6. copy formula di kolom L sampai P di sheet rekap ke baris-baris data
hasil paste di kolom L dan P nya
Bagian : 'Ambil data nama dan alamat dari sheet Form
diganti semua isinya menjadi :
dim lRec as long
lrec=application.
if lrec<2 then
exit sub
endif
sheets("faktur"
Bagian : 'Simpan data dari sheet Form ke sheet Database
'pada baris terakhir yang kosong
diganti menjadi :
.Cells(BarisTerakhi
.range("L5:P5"
Wassalamu'alaikum Wr. Wb.,
Kid
2012/12/3 Gilang Gumilar <ggumilar29@yahoo.
> **
>
>
> Assalamu'alaikum*
>
> Saya telah membuat faktur penjualan untuk apotik, dengan vba awalnya ****
>
> Private Sub CommandButton1_
>
> ** **
>
> Application.
>
> ** **
>
> 'deklarasi variabel****
>
> Dim Nama, Alamat As String****
>
> ** **
>
> 'Ambil data nama dan alamat dari sheet Form****
>
> Nama = Me.Cells(2, 1).Value****
>
> Alamat = Me.Cells(2, 2).Value****
>
> ****
>
> With Worksheets("
>
> 'Cari tau baris terakhir yang kosong pada sheet Database****
>
> BarisTerakhir = Worksheets("
> 1).End(xlUp)
>
> ****
>
> 'Simpan data dari sheet Form ke sheet Database****
>
> 'pada baris terakhir yang kosong****
>
> ****
>
> .Cells(BarisTerakhi
>
> .Cells(BarisTerakhi
>
> End With****
>
> ****
>
> 'hapus data inputan pada sheet Form****
>
> Me.Range(Cells(
>
> ****
>
> 'simpan file****
>
> ActiveWorkbook.
>
> ****
>
> Application.
>
> ** **
>
> End Sub****
>
> ** **
>
> Saya belu paham betul dengan vba diatas, saat saya mencoba untuk menyimpan
> 2 value dari cell tidak ada masalah, tapa saat mencoba untuk menyimpan
> value dari banyak cell prosesnya telat.apa yang kurang atau salah?saya
> harap rekan-rekan ada yang bisa memberikan solusi.untuk lebih jelasnya
> filenya saya lampirkan***
>
>
>
Tue Dec 4, 2012 7:54 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
eee... gimana ya..
file adalah salah satu object milik OS.
jika file dihapus atau terhapus, maka OS yang tahu persis ada dimana dan
bagaimana cara mendapatkannya kembali. Kadang bisa kadang tidak bisa.
Secara umum, seluruh file yang dihapus masih akan disimpan dalam Recycle
Bin, coba cari disana dan klik kanan pilih restore (kayanya yang ini sudah
dicoba dan hasilnya nihil).
Coba juga cari di folder lokasi auto recover milik aplikasi Excel.
Informasi lokasi si folder bisa didapat di Excel Options bagian (page) Save.
(cara ini kemungkinan besar ndak sukses jika filenya telah disimpan secara
ama [bukan keluar excel secara paksa])
Coba cari si temporary folder (cara ini ndak bisa kalau file Excel sudah
ndak dibuka)
Karena tetap ndak boleh pakai software apapun, *sepertinya sulit
dikembalikan*.
Jika pakai software untuk recovery file atau undelete file, maka software
tersebut bisa berusaha (belum tentu 100% berhasil) untuk mengumpulkan remah
file dan menyatukan kembali dengan syarat belum ada file lain yang ditulis
dilokasi file terdelete tersebut. Software bisa diceri di internet dengan
key Recovery file atau undelete file.
Kebiasaan ndak penting dan sering disepelekan dalam bekerja dengan file
adalah selalu menyalin secara rutin ke lokasi lain sebagai backup.
Coba mulai sekarang bersedia melakukan hal tersebut.
Wassalam,
Kid.
2012/12/4 <a.hafidz@yahoo.co.id >
> Dear all master be-excel,
>
> Selamat siang, maaf mengganggu jam istirahatnya yah....
>
> Mohon infonya mengenai case berikut :
> Bagaimana cara mengembalikan isi file excel yg hilang/terhapus tanpa
> bantuan software ?
>
> Trims.
> hafidz.
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> ------------------------------------
>
> ----------------------------------------------------------
> 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
> ----------------------------------------------------------Yahoo!
> Groups Links
>
>
>
>
file adalah salah satu object milik OS.
jika file dihapus atau terhapus, maka OS yang tahu persis ada dimana dan
bagaimana cara mendapatkannya kembali. Kadang bisa kadang tidak bisa.
Secara umum, seluruh file yang dihapus masih akan disimpan dalam Recycle
Bin, coba cari disana dan klik kanan pilih restore (kayanya yang ini sudah
dicoba dan hasilnya nihil).
Coba juga cari di folder lokasi auto recover milik aplikasi Excel.
Informasi lokasi si folder bisa didapat di Excel Options bagian (page) Save.
(cara ini kemungkinan besar ndak sukses jika filenya telah disimpan secara
ama [bukan keluar excel secara paksa])
Coba cari si temporary folder (cara ini ndak bisa kalau file Excel sudah
ndak dibuka)
Karena tetap ndak boleh pakai software apapun, *sepertinya sulit
dikembalikan*
Jika pakai software untuk recovery file atau undelete file, maka software
tersebut bisa berusaha (belum tentu 100% berhasil) untuk mengumpulkan remah
file dan menyatukan kembali dengan syarat belum ada file lain yang ditulis
dilokasi file terdelete tersebut. Software bisa diceri di internet dengan
key Recovery file atau undelete file.
Kebiasaan ndak penting dan sering disepelekan dalam bekerja dengan file
adalah selalu menyalin secara rutin ke lokasi lain sebagai backup.
Coba mulai sekarang bersedia melakukan hal tersebut.
Wassalam,
Kid.
2012/12/4 <a.hafidz@yahoo.
> Dear all master be-excel,
>
> Selamat siang, maaf mengganggu jam istirahatnya yah....
>
> Mohon infonya mengenai case berikut :
> Bagaimana cara mengembalikan isi file excel yg hilang/terhapus tanpa
> bantuan software ?
>
> Trims.
> hafidz.
> Sent from my BlackBerry®
> powered by Sinyal Kuat INDOSAT
>
> ------------
>
> ------------
> bergabung ke milis (subscribe), kirim mail kosong ke:
> belajar-excel-
>
> posting ke milis, kirimkan ke:
> belajar-excel@
>
> berkunjung ke web milis
> http://tech.
>
> melihat file archive / mendownload lampiran
> http://www.mail-
> atau (sejak 25-Apr-2011) bisa juga di :
> http://milis-
>
> menghubungi moderators & owners: belajar-excel-
>
> keluar dari membership milis (UnSubscribe)
> kirim mail kosong ke belajar-excel-
> ------------
> Groups Links
>
>
>
>
GROUP FOOTER MESSAGE
---------------------------------------------------------------------
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar