14 New Messages
Digest #2583
1b
Bls: [belajar-excel] Mengganti error value hasil formula dengan 0 by "ghozi alkatiri" ghozialkatiri
7a
Bls: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (break by "Ahmad Habibillah" abiel_1108
Messages
Sun Oct 6, 2013 5:38 am (PDT) . Posted by:
"Agus Salim Al Ghozali"
dear BeExcel
Tolong Dunk Bos bantuannya untuk mengganti format #VALUE! menjadi
"0"
atau "Kosong" pada Excel 2007, rumus yang saya gunakan =c1+d5-h7
akan tetapi apabila pada kolom tersebut tidak diinputkan data
(kosong)
maka yang dihasilkan #value!, bisa gak #value! diganti menjadi
"0"
atau "kosong".
terimakasih sebelumnya.
Tolong Dunk Bos bantuannya untuk mengganti format #VALUE! menjadi
"0"
atau "Kosong" pada Excel 2007, rumus yang saya gunakan =c1+d5-h7
akan tetapi apabila pada kolom tersebut tidak diinputkan data
(kosong)
maka yang dihasilkan #value!, bisa gak #value! diganti menjadi
"0"
atau "kosong"
terimakasih sebelumnya.
Sun Oct 6, 2013 5:43 am (PDT) . Posted by:
"ghozi alkatiri" ghozialkatiri
coba
=IFERROR(C1+D5-H7;"")
Wassalam
Ghozi Alkatiri
________________________________
Dari: Agus Salim Al Ghozali <al.ghozali1988@gmail.com>
Kepada: belajar-excel@yahoogroups.com
Dikirim: Minggu, 6 Oktober 2013 12:19
Judul: [belajar-excel] Mengganti error value hasil formula dengan 0
dear BeExcel
Tolong Dunk Bos bantuannya untuk mengganti format #VALUE! menjadi "0"
atau "Kosong" pada Excel 2007, rumus yang saya gunakan =c1+d5-h7
akan tetapi apabila pada kolom tersebut tidak diinputkan data (kosong)
maka yang dihasilkan #value!, bisa gak #value! diganti menjadi "0"
atau "kosong".
terimakasih sebelumnya.
=IFERROR(C1+
Wassalam
Ghozi Alkatiri
____________
Dari: Agus Salim Al Ghozali <al.ghozali1988@
Kepada: belajar-excel@
Dikirim: Minggu, 6 Oktober 2013 12:19
Judul: [belajar-excel] Mengganti error value hasil formula dengan 0
dear BeExcel
Tolong Dunk Bos bantuannya untuk mengganti format #VALUE! menjadi "0"
atau "Kosong" pada Excel 2007, rumus yang saya gunakan =c1+d5-h7
akan tetapi apabila pada kolom tersebut tidak diinputkan data (kosong)
maka yang dihasilkan #value!, bisa gak #value! diganti menjadi "0"
atau "kosong"
terimakasih sebelumnya.
Sun Oct 6, 2013 5:39 am (PDT) . Posted by:
suhady_m
sukses......
excel .....setelah puyeng 4 malam berturut-turut coba sendiri,
Tanya om google, akhirnyanya menemukan group belajar excel ini
......terima kasih mr. kid,
sekarang lagi kembangkan ke taha selanjutnya ,next lever :)
topiknya "menghubungkan data bank dengan faktur"
lagi.
---In belajar-excel@
<belajar-excel@
Hai Archi,
Di area input kan ada formulanya. Nah... cell yang diisi formula
itu kan udah gak blank lagi. Formula yang hasilnya "" artinya
menulis NULLSTRING. Tetap saja si cell sudah ndak blank.
Jadi ketika di-copy ke database, cell yang begituan (berisi ""
hasil formula) memang akan tampak blank bagi manusia. Tapi buat
komputer itu gak blank. Akhirnya manusia melihatnya diproses
input berikutnya ada lompatan. Padahal ndak ada yang
melompat-lompat didatabase. Script untuk proses penulisannya ke
database juga berjalan dengan baik.
Kalo yang dipengenken adalah di database ndak ada baris yang
kelihatan seperti blank itu, ada beberapa kondisi cara input yang
sepertinya pantas untuk diperhatikan. Kira-kira gini :
1. kalau inputnya pasti urut terus alias gak bakal lompat baris
berarti yang diper halus adalah bagian yang bertugas memilih
baris yang akan di-copy. Dalam script yang ada, baris ini
berbunyi :
Range("
bisa diubah menjadi :
'di kolom D dari B10:B18, pilih cell yang berisi formula
dan menghasilkan tipe data numeric, lalu diperluas jadi 9 kolom,
di-select
'kalo manual di worksheetnya, blok B10:B18, CTRL G,
Special, pilih Formulas, hilangkan centang kecuali Numbers, OK,
'tekan tombol SHIFT terus menerus lalu klik kolom J di
baris terakhir yang terblok di kolom B nya.
range("
e(,9).select
2. kalau inputnya boleh lompat baris sesukanya
berarti :
cara1 : bisa pakai loop untuk kolom B nya yang ada isinya
saja yang disalin ke database
berarti semua baris script kecuali baris
Range("
dim rng as range
for each rng in range("
if len(rng.value)
rng.resize(1,
Selection.Copy
Sheets("
Range("
Selection.End(
ActiveCell.Offset(
0).Range("
Selection.PasteSpec
Paste:=xlPasteValue
:=False,
Transpose:=False
Range("
end if
next rng
cara2 : proses input apa adanya, tapi di database (usai
paste special) ada acara bersih-bersih dari yang terkesan blank
di kolom A nya
jadi setelah baris paste special sebelum
select range A2 diberi kode :
on error resume next
activecell.resize(
alues).entirerow.
err.clear
on error goto 0
Script hasil record macro bisa disederhanakan.
Wassalam,
Kid.
2013/10/4 <archi.deco@
hiii para guru excel,
saya sangat senang bias ikut gabung group belajar exel ini,
dengan group ini saya sangat terbantu dalam menyelesaikan masalah
dalam excel.
ada yang ingin saya tanyakan
rumus macro yang saya buat
Macro6 macro
Range("
Selection.Copy
Sheets("
Range("
Selection.End(
ActiveCell.Offset(
Selection.PasteSpec
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("
end sub
permasalahan yang keluar,
saat saya menginput data selantjutnya
di sheet "database"
sedangkan yang saya inginkan ada dibawah tgl terakhir yang ada
data.
apakah ada solusinya.
thanks
Sun Oct 6, 2013 5:40 am (PDT) . Posted by:
"Shenly" shenly_excelmania
ia bnr kaya gni pk hendrik....
terima kasih
Salam
Shenly ^^*
________________________________
Dari: hendrik karnadi <hendrikkarnadi@yahoo.com>
Kepada: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Dikirim: Minggu, 6 Oktober 2013 0:44
Judul: Re: Bls: [belajar-excel] VBA copy paste????
Hi Shenly,
Boleh ikutan ya Mr Kid? (CMIIW)
Mengutip pertanyaan anda,
"itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi Judul kolomnya ke Baris 4"
nah, karena headernya bergeser dari baris 1 ke baris ke 4 maka
Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) akan menjadi
Set rngData = Range("f4").CurrentRegion.Offset(1).Resize(, 1) bukan ?
Kemudian bagaimana mengenai rngTarget nya?
Nah (lagi) karena pastenya pada baris kosong setelah data terakhir (baris berapapun) maka rngTarget nya tidak perlu diubah.
Sedikit tambahan, kalau mau mendelete isi tabel harus mendelete melalui tabel (klik kanan mouse, delete, Table Columns/Rows) bukan dengan menekan tombol "delete". Karena jika kita menekan tombol delete, isinya memang terhapus tetapi "bekasnya"; masih ada sehingga pada waktu paste berikutnya seolah-olah melompat (ada baris "kosong" ditengahnya).
Untuk mengusir "barisan semut" perlu tambahan code:
Application.CutCopyMode = False
pada bagian akhir setelah code:
rngTarget.Offset(0, 2).PasteSpecial xlPasteValues
Selamat mencoba (kalau belum tidur).
Salam,
HK
________________________________
From: Shenly <shenly_excelmania@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Saturday, 5 October 2013, 22:18
Subject: Bls: [belajar-excel] VBA copy paste????
ia Mr itu saya ga ngerti, terus ada yg di bawah2nya jga,
intinya sih coding yang Mr kasih ini
Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah barisnya
Dim rngTarget As Range 'variabel range posisi paste di kolom A
Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) 'record data input kolom A + 1 baris kosong terbawah
lRows = rngData.Rows.Count - 1 'jumlah record
Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range posisi paste di kolom A
rngData.Resize(lRows, 1).Copy 'copy input kolom A
rngTarget.PasteSpecial xlPasteValues 'paste values di posisi target kolom A
rngData.Offset(0, 1).Resize(lRows, 2).Copy 'copy
input yang 2 kolom data setelah lompat 1 kolom ke kanan
rngTarget.Offset(0, 2).PasteSpecial xlPasteValues
'paste values di posisi target kolom A lompat 2 kolom ke kanan
itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi Judul kolomnya ke Baris 4, pasti kan ada baris kosong 3 baris di atas kolom Judulnya,
nah itu yang perlu di edit di codingnya yang mana? trs di ubah jadi berapa ? hehehehe
maaf yah Mr , begini lah klo sama org Oon mah hehehe
Salam
Shenly ^^*
________________________________
Dari: Mr. Kid <mr.nmkid@gmail.com>
Kepada: BeExcel <belajar-excel@yahoogroups.com>
Dikirim: Sabtu, 5 Oktober 2013 22:29
Judul: Re: [belajar-excel] VBA copy paste????
Baris ini maksudnya :
Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) 'record data input kolom A + 1 baris kosong terbawah
Wassalam,
Kid.
2013/10/5 Shenly <shenly_excelmania@yahoo.co.id>
>
>udah saya coba mr. kid tapi ga bisa2, malah puyeng
>maaf soalnya sya belum ngrti sma, Irow, Offset, dkk nya
>tadi kan posisi header tabelnya di clom 1, terus sya pindah ke colom 4, jadi ada 3 kolom diatas header yg kosong, jadi yng harus sya rubah posisinya yg mana yah...
>tulung, help me yah Mr
>
>
>
>
>Salam
>Shenly ^^*
>
>
>
>________________________________
>
>Dari: Mr. Kid <mr.nmkid@gmail.com>
>Kepada: BeExcel <belajar-excel@yahoogroups.com>
>Dikirim: Sabtu, 5 Oktober 2013 18:50
>
>Judul: Re: [belajar-excel] VBA copy paste????
>
>
>
>
>Dalam Scriptnya ada yang merujuk ke range tertentu kan. Sesuaikan saja script yang merujuk ke range tertentu itu sesuai kebutuhan. Cukup dicek kembali saja, dulu si area range Anda letakkan dimana, lalu cari alamat rangenya di script. Kemudian sekarang ingin digeser kemana, maka sesuaikan alamat range discriptnya.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/10/5 Shenly <shenly_excelmania@yahoo.co.id>
>
>
>>
>>terima kasih mr. kid buat jawabannya, sangat jitu sekali, tapi ko ketika saya pindah posisi Row nya ko jadi error yah
>>mohon dibantu lagi hehe
>>
>>file terlampir
>>
>>
>>Salam
>>Shenly ^^*
>>
>>
>>
>>________________________________
>> Dari: Mr. Kid <mr.nmkid@gmail.com>
>>Kepada: BeExcel <belajar-excel@yahoogroups.com>
>>Dikirim: Sabtu, 5 Oktober 2013 2:37
>>Judul: Re: [belajar-excel] VBA copy paste????
>>
>>
>>
>>
>>Hai Shenly,
>>
>>Coba isi prosedurnya diberi script berikut :
>> Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah barisnya
>> Dim rngTarget As Range 'variabel range posisi paste di kolom A
>>
>> Set rngData = Range("f1").CurrentRegion.Offset(1).Resize(, 1) 'record data input kolom A + 1 baris kosong terbawah
>> lRows = rngData.Rows.Count - 1 'jumlah record
>>
>> Set rngTarget = Cells(Rows.Count, "A").End(xlUp).Offset(1, 0) 'range posisi paste di kolom A
>> rngData.Resize(lRows, 1).Copy 'copy input kolom A
>> rngTarget.PasteSpecial xlPasteValues 'paste values di posisi target kolom A
>> rngData.Offset(0, 1).Resize(lRows, 2).Copy 'copy input yang 2 kolom data setelah lompat 1 kolom ke kanan
>> rngTarget.Offset(0, 2).PasteSpecial xlPasteValues 'paste values di posisi target kolom A lompat 2 kolom ke kanan
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>
>>
>>2013/10/5 Shenly <shenly_excelmania@yahoo.co.id>
>>
>>
>>>
>>>Assalamualikum...
>>>mohon bantuannya kembali teman2,
>>>saya sudah membuat coding VBA dari copy paste sebuah tabel, tapi hasilnya tidak sesuai yang saya inginkan,
>>>harap bantuannya dari teman2 sekalin...
>>>untuk lebih jelas sya sudah lapirkan filenya
>>>
>>>
>>>terima kasih
>>>
>>>Salam
>>>Shenly ^^*
>>
>>
>>
>
>
>
terima kasih
Salam
Shenly ^^*
____________
Dari: hendrik karnadi <hendrikkarnadi@
Kepada: "belajar-excel@
Dikirim: Minggu, 6 Oktober 2013 0:44
Judul: Re: Bls: [belajar-excel] VBA copy paste????
Hi Shenly,
Boleh ikutan ya Mr Kid? (CMIIW)
Mengutip pertanyaan anda,
"itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi Judul kolomnya ke Baris 4"
nah, karena headernya bergeser dari baris 1 ke baris ke 4 maka
Set rngData = Range("
Set rngData = Range("
Kemudian bagaimana mengenai rngTarget nya?
Nah (lagi) karena pastenya pada baris kosong setelah data terakhir (baris berapapun) maka rngTarget nya tidak perlu diubah.
Sedikit tambahan, kalau mau mendelete isi tabel harus mendelete melalui tabel (klik kanan mouse, delete, Table Columns/Rows) bukan dengan menekan tombol "delete"
Untuk mengusir "barisan semut" perlu tambahan code:
Application.
pada bagian akhir setelah code:
rngTarget.Offset(
Selamat mencoba (kalau belum tidur).
Salam,
HK
____________
From: Shenly <shenly_excelmania@
To: belajar-excel@
Sent: Saturday, 5 October 2013, 22:18
Subject: Bls: [belajar-excel] VBA copy paste????
ia Mr itu saya ga ngerti, terus ada yg di bawah2nya jga,
intinya sih coding yang Mr kasih ini
Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah barisnya
Dim rngTarget As Range 'variabel range posisi paste di kolom A
Set rngData = Range("
lRows = rngData.Rows.
Set rngTarget = Cells(Rows.Count, "A"
rngData.Resize(
rngTarget.PasteSpec
rngData.Offset(
input yang 2 kolom data setelah lompat 1 kolom ke kanan
rngTarget.Offset(
'paste values di posisi target kolom A lompat 2 kolom ke kanan
itu kan buat posisi Judul kolomnya di baris 1 , nah saya coba pindah posisi Judul kolomnya ke Baris 4, pasti kan ada baris kosong 3 baris di atas kolom Judulnya,
nah itu yang perlu di edit di codingnya yang mana? trs di ubah jadi berapa ? hehehehe
maaf yah Mr , begini lah klo sama org Oon mah hehehe
Salam
Shenly ^^*
____________
Dari: Mr. Kid <mr.nmkid@gmail.
Kepada: BeExcel <belajar-excel@
Dikirim: Sabtu, 5 Oktober 2013 22:29
Judul: Re: [belajar-excel] VBA copy paste????
Baris ini maksudnya :
Set rngData = Range("
Wassalam,
Kid.
2013/10/5 Shenly <shenly_excelmania@
>
>udah saya coba mr. kid tapi ga bisa2, malah puyeng
>maaf soalnya sya belum ngrti sma, Irow, Offset, dkk nya
>tadi kan posisi header tabelnya di clom 1, terus sya pindah ke colom 4, jadi ada 3 kolom diatas header yg kosong, jadi yng harus sya rubah posisinya yg mana yah...
>tulung, help me yah Mr
>
>
>
>
>Salam
>Shenly ^^*
>
>
>
>________
>
>Dari: Mr. Kid <mr.nmkid@gmail.
>Kepada: BeExcel <belajar-excel@
>Dikirim: Sabtu, 5 Oktober 2013 18:50
>
>Judul: Re: [belajar-excel] VBA copy paste????
>
>
>
>
>Dalam Scriptnya ada yang merujuk ke range tertentu kan. Sesuaikan saja script yang merujuk ke range tertentu itu sesuai kebutuhan. Cukup dicek kembali saja, dulu si area range Anda letakkan dimana, lalu cari alamat rangenya di script. Kemudian sekarang ingin digeser kemana, maka sesuaikan alamat range discriptnya.
>
>Wassalam,
>Kid.
>
>
>
>
>
>2013/10/
>
>
>>
>>terima kasih mr. kid buat jawabannya, sangat jitu sekali, tapi ko ketika saya pindah posisi Row nya ko jadi error yah
>>mohon dibantu lagi hehe
>>
>>file terlampir
>>
>>
>>Salam
>>Shenly ^^*
>>
>>
>>
>>____
>> Dari: Mr. Kid <mr.nmkid@gmail.
>>Kepada: BeExcel <belajar-excel@
>>Dikirim: Sabtu, 5 Oktober 2013 2:37
>>Judul: Re: [belajar-excel] VBA copy paste????
>>
>>
>>
>>
>>Hai Shenly,
>>
>>Coba isi prosedurnya diberi script berikut :
>> Dim rngData As Range, lRows As Long 'variabel range data beserta jumlah barisnya
>> Dim rngTarget As Range 'variabel range posisi paste di kolom A
>>
>> Set rngData = Range("
>> lRows = rngData.Rows.
>>
>> Set rngTarget = Cells(Rows.Count, "A"
>> rngData.Resize(
>> rngTarget.PasteSpec
>> rngData.Offset(
>> rngTarget.Offset(
>>
>>Wassalam,
>>Kid.
>>
>>
>>
>>
>>
>>
>>
>>2013/
>>
>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>
>>
>>
>
>
>
Sun Oct 6, 2013 5:41 am (PDT) . Posted by:
"Eko Suyanto" ekosuyanto@rocketmail.com
Postingan saya terdahulu mendapatkan respons positif dari
bung HK, Mr. Kid dll.
Sehingga dg sedikit inovasi dalam menerapkan formula para
master, kami bisa membayarkan Tunjangan Profesi Guru TW III/2013
tepat waktu sesuai
ketentuan PMK dengan besaran sesuai juknis.
Dengan formula tsb kami jg dpt
menghitung selisih lebih bayar dan kurang bayar pada pembayaran sebelumnya.
Postingan2 lain di grup ini banyak yg saya terapkan untuk mempermudah pekerjaan kami.
Terima kasih yg sebesarnya-besarnya.
Saat ini kami memiliki banyak guru sukwan (honorer) yang
mendapatkan insentif dari APBD sesuai ketentuan.
Besarannya tidak sama, sesuai klasifikasinya.
Saya ingin membuat format koreksi dan pembayaran seperti
file terlampir.
Rumus yang saya perlukan adalah :
1. 1. Guru sukwan tsb hanya dibayar jika masih aktif
dan nominalnya sesuai klasifikasi (jabatan)
2. 2. Apakah kode yang terdapat pada cell B (ID) bisa
dibuat dengan "membaca' NUPTK dan tanggal lahir ?
Terima kasih
Salam dari Tangerang,
Eko
bung HK, Mr. Kid dll.
Sehingga dg sedikit inovasi dalam menerapkan formula para
master, kami bisa membayarkan Tunjangan Profesi Guru TW III/2013
tepat waktu sesuai
ketentuan PMK dengan besaran sesuai juknis.
Dengan formula tsb kami jg dpt
menghitung selisih lebih bayar dan kurang bayar pada pembayaran sebelumnya.
Postingan2 lain di grup ini banyak yg saya terapkan untuk mempermudah pekerjaan kami.
Terima kasih yg sebesarnya-besarnya
Saat ini kami memiliki banyak guru sukwan (honorer) yang
mendapatkan insentif dari APBD sesuai ketentuan.
Besarannya tidak sama, sesuai klasifikasinya.
Saya ingin membuat format koreksi dan pembayaran seperti
file terlampir.
Rumus yang saya perlukan adalah :
1. 1. Guru sukwan tsb hanya dibayar jika masih aktif
dan nominalnya sesuai klasifikasi (jabatan)
2. 2. Apakah kode yang terdapat pada cell B (ID) bisa
dibuat dengan "membaca' NUPTK dan tanggal lahir ?
Terima kasih
Salam dari Tangerang,
Eko
Sun Oct 6, 2013 10:18 am (PDT) . Posted by:
"lapendosol opik" lapendosol
Dear Eko,
Pertanyaannya terlalu sulit buat saya, saya bantu yg warna kuning sebisanya ya
Coba masukkan =IF(AND(H2="sw1",K2=1),1000,IF(AND(H2="sw2",K2=1),2000,0))
Wassalam,
________________________________
From: Eko Suyanto <ekosuyanto@rocketmail.com>
To: belajar-excel@yahoogroups.com
Sent: Sunday, October 6, 2013 10:10 AM
Subject: [belajar-excel] insentif guru sukwan [1 Attachment]
Postingan saya terdahulu mendapatkan respons positif dari
bung HK, Mr. Kid dll.
Sehingga dg sedikit inovasi dalam menerapkan formula para
master, kami bisa membayarkan Tunjangan Profesi Guru TW III/2013
tepat waktu sesuai
ketentuan PMK dengan besaran sesuai juknis.
Dengan formula tsb kami jg dpt
menghitung selisih lebih bayar dan kurang bayar pada pembayaran sebelumnya.
Postingan2 lain di grup ini banyak yg saya terapkan untuk mempermudah pekerjaan kami.
Terima kasih yg sebesarnya-besarnya.
Saat ini kami memiliki banyak guru sukwan (honorer) yang
mendapatkan insentif dari APBD sesuai ketentuan.
Besarannya tidak sama, sesuai klasifikasinya.
Saya ingin membuat format koreksi dan pembayaran seperti
file terlampir.
Rumus yang saya perlukan adalah :
1. 1. Guru sukwan tsb hanya dibayar jika masih aktif
dan nominalnya sesuai klasifikasi (jabatan)
2. 2. Apakah kode yang terdapat pada cell B (ID) bisa
dibuat dengan "membaca' NUPTK dan tanggal lahir ?
Terima kasih
Salam dari Tangerang,
Eko
Pertanyaannya terlalu sulit buat saya, saya bantu yg warna kuning sebisanya ya
Coba masukkan =IF(AND(H2="
Wassalam,
____________
From: Eko Suyanto <ekosuyanto@rocketma
To: belajar-excel@
Sent: Sunday, October 6, 2013 10:10 AM
Subject: [belajar-excel] insentif guru sukwan [1 Attachment]
Postingan saya terdahulu mendapatkan respons positif dari
bung HK, Mr. Kid dll.
Sehingga dg sedikit inovasi dalam menerapkan formula para
master, kami bisa membayarkan Tunjangan Profesi Guru TW III/2013
tepat waktu sesuai
ketentuan PMK dengan besaran sesuai juknis.
Dengan formula tsb kami jg dpt
menghitung selisih lebih bayar dan kurang bayar pada pembayaran sebelumnya.
Postingan2 lain di grup ini banyak yg saya terapkan untuk mempermudah pekerjaan kami.
Terima kasih yg sebesarnya-besarnya
Saat ini kami memiliki banyak guru sukwan (honorer) yang
mendapatkan insentif dari APBD sesuai ketentuan.
Besarannya tidak sama, sesuai klasifikasinya.
Saya ingin membuat format koreksi dan pembayaran seperti
file terlampir.
Rumus yang saya perlukan adalah :
1. 1. Guru sukwan tsb hanya dibayar jika masih aktif
dan nominalnya sesuai klasifikasi (jabatan)
2. 2. Apakah kode yang terdapat pada cell B (ID) bisa
dibuat dengan "membaca' NUPTK dan tanggal lahir ?
Terima kasih
Salam dari Tangerang,
Eko
Sun Oct 6, 2013 5:46 am (PDT) . Posted by:
suhady_m
sebelum mulai berguru lagi, saya mau ucapkan terima kasih pada
mr. kid yang sudah membantuku dalam menyelesaikan masalah
menghilangkan blank. saya sudah otak-atik sendiri 4 harian
(sampai teller - menyerah), malam saya bertanya ke group, paginya
sudah ada solusi dari mr. kid. thank ya (dipikir kenapa gak dari
dulu sampai puyeng bergadang terus)
saya sudah kembangkan lagi program excel tersebut, dan menemukan
jalan buntu lagi, semoga para suhu bisa membantu cara
menghubungkan laporan bank dengan faktur. (istilah excel nya
tidak tahu apa) ....
thanks
Sun Oct 6, 2013 8:46 am (PDT) . Posted by:
"Hendrik Karnadi" hendrikkarnadi
Untuk no 1, coba gunakan fungsi if dgn kriteria gab (And).
Untuk no 2, jwb nya bisa,
gabungkan NUPTK dan Text (date, format).
Salam,
HK
Sent from Samsung MobileEko Suyanto <ekosuyanto@rocketmail.com> wrote:Postingan saya terdahulu mendapatkan respons positif dari bung HK, Mr. Kid dll.
Sehingga dg sedikit inovasi dalam menerapkan formula para master, kami bisa membayarkan Tunjangan Profesi Guru TW III/2013
tepat waktu sesuai ketentuan PMK dengan besaran sesuai juknis.
Dengan formula tsb kami jg dpt menghitung selisih lebih bayar dan kurang bayar pada pembayaran sebelumnya.
Postingan2 lain di grup ini banyak yg saya terapkan untuk mempermudah pekerjaan kami.
Terima kasih yg sebesarnya-besarnya.
Saat ini kami memiliki banyak guru sukwan (honorer) yang mendapatkan insentif dari APBD sesuai ketentuan.
Besarannya tidak sama, sesuai klasifikasinya.
Saya ingin membuat format koreksi dan pembayaran seperti file terlampir.
Rumus yang saya perlukan adalah :
1. 1. Guru sukwan tsb hanya dibayar jika masih aktif dan nominalnya sesuai klasifikasi (jabatan)
2. 2. Apakah kode yang terdapat pada cell B (ID) bisa dibuat dengan "membaca' NUPTK dan tanggal lahir ?
Terima kasih
Salam dari Tangerang,
Eko
Untuk no 2, jwb nya bisa,
gabungkan NUPTK dan Text (date, format).
Salam,
HK
Sent from Samsung MobileEko Suyanto <ekosuyanto@rocketma
Sehingga dg sedikit inovasi dalam menerapkan formula para master, kami bisa membayarkan Tunjangan Profesi Guru TW III/2013
tepat waktu sesuai ketentuan PMK dengan besaran sesuai juknis.
Dengan formula tsb kami jg dpt menghitung selisih lebih bayar dan kurang bayar pada pembayaran sebelumnya.
Postingan2 lain di grup ini banyak yg saya terapkan untuk mempermudah pekerjaan kami.
Terima kasih yg sebesarnya-besarnya
Saat ini kami memiliki banyak guru sukwan (honorer) yang mendapatkan insentif dari APBD sesuai ketentuan.
Besarannya tidak sama, sesuai klasifikasinya.
Saya ingin membuat format koreksi dan pembayaran seperti file terlampir.
Rumus yang saya perlukan adalah :
1. 1. Guru sukwan tsb hanya dibayar jika masih aktif dan nominalnya sesuai klasifikasi (jabatan)
2. 2. Apakah kode yang terdapat pada cell B (ID) bisa dibuat dengan "membaca' NUPTK dan tanggal lahir ?
Terima kasih
Salam dari Tangerang,
Eko
Mon Oct 7, 2013 1:43 am (PDT) . Posted by:
"Ahmad Habibillah" abiel_1108
Bro Hendrik, Pak De, Mr. Kid,
mantap kali nih,
tengkyu buat master2 excel yang udh bantu... dan mengurangi beban saya.. hehehe
akhirnya....
pastinya many thanks juga buat belajar-excel, maju terus.... dan selalu memberikan solusi dan pembelajaran yang baik.
thanks
Ahmad H
____________
Dari: De Premor <de@premor.net>
Kepada: belajar-excel@
Dikirim: Sabtu, 5 Oktober 2013 1:17
Judul: Re: Bls: Bls: [belajar-excel] Need Help melakukan copy paste (breakdown) sheet to sheet
hehhe, monggo mas Kid, tinimbang nganggur tongkrongan ra jelas, kan memang mending ngoprek kode :D
Sugeng Enjang Mas... (gak kerasa udah pagi, hiks...)
Pada 05/10/2013 1:10, Mr. Kid menulis:
>Aku coba kok beda ya.
>
>
File terlampir.
>
>Sepertinya posisi set StrRng yang bikin beda.
>
>Kalau record lebih dari 5K apalagi vendor unsorted akan lebih terasa lagi (tes 10K vendor unsorted selisih 4s).
>
>Kalau di prosedur runner si script bawah di run pertama, selisihnya cuma dikit.
>
>
>
Script :
>Public Sub ExportPerPTBaruKid(
> Dim SrcData As Range, Rng As Range,
CopyRng As Range, cKode As New Collection
> Dim LRow As Long, Sh As Worksheet, Fld
As String, NamaFile As String, StrRng As
String
> Dim lCurRow As Long
>
> Timex = Timer
>
>
> Application.
> Application.
>
> Set SrcData = Sheets("
detail"
detail"
>
> Fld = ThisWorkbook.
"\_
>
> If Dir(Fld, vbDirectory) = "" Then MkDir
Fld
>
> Set CopyRng =
SrcData.CurrentRegi
6)
>
>
> On Error Resume Next
> With Err
> .Clear
>
> For lCurRow = 1 To SrcData.Count
> cKode.Add
Trim$(SrcData(
CStr(SrcData(
> If .Number <> 0 Then
> .Clear
> Else
> StrRng =
SrcData(lCurRow)
> CopyRng.AutoFilter Field:=5,
Criteria1:=StrRng
> Worksheets.Add
> Set Sh = ActiveSheet
> Sh.Name = Left(StrRng, 31)
>
CopyRng.SpecialCell
Sh.Range("
> Sh.Range("
> Sh.Move
> NamaFile = Fld & StrRng
& ".xlsx"
> ActiveWorkbook.
NamaFile
> ActiveWorkbook.
> CopyRng.AutoFilter
> End If
> Next lCurRow
> End With
> Timex = Timer - Timex
>
> Application.
> Application.
>End Sub
>
>
>
ya wis lah...
>
thanks ya PakD...
>
Kapan-kapan kita coba karakteristik Do While yak...
>
ojo kapok loh..
>
>
Wassalam,
>Kid.
>
>
>
>
>
>
>
>
>2013/10/
>
>
>>Di contoh kode yang barusan sudah begitu dia, dan hasilnya lebih cepat yang terpisah, dalam 100k x 10 kalkulasi, beda 0,15 s/d 0,17 detik di Dell Optiplex 390, dan 0,95'an detik di Netbook yang lagi kepanasan :D
>>
>>
>>On 05-10-2013 0:06, Mr. Kid wrote:
>>
>>
>>>
>>>
gimana ?
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
hasil pastinya nga bisa
didapat dengan pasti
karena faktor penentunya
banyak (ada proses akses
IO)
>>>
kode, setiap kali loop
sicode baru akan melakukan
pengecekan error number
(1), kalau ketemu error
akan ngeclear error (2)
>>>
>>>
perbandingan yang "keliahatannya adil" ini kalau ditempat saya masih cepet yg bawah (Sub Diluar) :D
>>>
>>>
>>>
Collection, Timex As
Double
>>>
nRow As Long, Cnt As
Long
>>>
>>>
>>>
>>>
100000
>>>
10
>>>
nRow, CStr(lRow)
>>>
Err.Number <> 0
Then
>>>
Err.Clear
>>>
>>>
Cnt + 1
>>>
>>>
>>>
>>>
vbCrLf & Timer -
Timex & " detik"
>>>
>>>
>>>
>>>
Collection, Timex As
Double
>>>
nRow As Long, Cnt As
Long
>>>
>>>
>>>
>>>
100000
>>>
10
>>>
nRow, CStr(lRow)
>>>
>>>
>>>
>>>
mCol.Count
>>>
>>>
>>>
vbCrLf & Timer -
Timex & " detik"
>>>
>>>
>>>
>>>
Kid wrote:
>>>
>>>
>>>
>>>
>>>
loop jadi :
>>>
with err
>>>
.clear
>>>
>>>
>>>
>>>
cKode.Add
Trim(StrRng)
CStr(StrRng)
>>>
.Number <>
0 Then
>>>
>>>
>>>
>>>
>>>
>>>
>>>
Worksheets.Add
>>>
Sh = ActiveSheet
>>>
Sh.Name =
Left(StrRng, 31)
>>>
CopyRng.SpecialCell
Sh.Range("
>>>
Sh.Range("
>>>
Sh.Move
>>>
NamaFile = Fld
& StrRng
& ".xlsx"
>>>
ActiveWorkbook.
NamaFile
>>>
ActiveWorkbook.
>>>
SrcData.CurrentRegi
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
>>>
ExportPerPTBaru(
>>>
SrcData As
Range, Rng As
Range, CopyRng
As Range,
cKode As New
Collection
>>>
As Long, Sh As
Worksheet, Fld
As String,
NamaFile As
String, StrRng
As String
>>>
As Double
>>>
>>>
Timer
>>>
>>>
Application.
= False
>>>
Application.
= False
>>>
>>>
SrcData =
Sheets("
detail"
Sheets("
detail"
>>>
>>>
ThisWorkbook.
& "\Buat
Dikirin\
>>>
Dir(Fld,
vbDirectory) =
"" Then MkDir
Fld
>>>
>>>
CopyRng =
SrcData.CurrentRegi
6)
>>>
>>>
Resume Next
>>>
Rng In SrcData
>>>
= Rng.Value
>>>
cKode.Add
Trim(StrRng)
CStr(StrRng)
>>>
Err.Number
<> 457
Then
>>>
SrcData.CurrentRegi
Field:=5,
Criteria1:=StrRng
>>>
Worksheets.Add
>>>
Set Sh =
ActiveSheet
>>>
Sh.Name =
Left(StrRng,
31)
>>>
CopyRng.SpecialCell
Sh.Range("
>>>
Sh.Range("
>>>
Sh.Move
>>>
NamaFile = Fld
& StrRng
& ".xlsx"
>>>
ActiveWorkbook.
NamaFile
>>>
ActiveWorkbook.
>>>
SrcData.CurrentRegi
>>>
>>>
Err.Clear
>>>
>>>
>>>
"Export
selesai dalam
waktu " &
Timer - Timex
& " detik"
& vbCrLf
& "Target
folder -> "
& Fld,
vbInformation
>>>
>>>
Application.
= True
>>>
Application.
= True
>>>
>>>
>>>
>>>
>>>
>>>
>>>