15 New Messages
Digest #1968
1a
Re: Bagaimana Cara Membuat Surat Pass Pengeluaran Barang Dengan Macr by "Mr. Kid" nmkid.family@ymail.com
6b
Bls: [belajar-excel] Menggabungkan 2 Data absensi ke dalam 1 File ga by "ghozi alkatiri" ghozialkatiri
Messages
Thu Dec 13, 2012 7:44 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Tumben sampai sehari belum ada yang reply.
Mungkin sedang sibuk akhir tahun.
Moga-moga tetap ada yang sempet belajar.
File terlampir menggunakan VBA (.xlsm).
Dalam file terlampir terdapat :
1. cara membatasi input berdasar suatu format tertentu, dalam hal ini
dibatasi format NNN/MM/YY, menggunakan data validation (allow custom)
>> Pembatasan masih belum menyertakan batasan tentang nilai MM harus 01
sampai 12 saja. Silakan dikembangkan sendiri.
2. proses filter menggunakan advanced filter berdasar kriteria nomor pass
melalui VBA.
>> Karena penggunaan Advanced Filter menuntut bahwa nama kolom hasil yang
diinginkan atau nama kolom kriteria yang digunakan sama dengan yang
tertulis pada tabel data dasarnya (data source) yang terkait, maka
dibuatlah nama-nama kolom yang sama tersebut pada beberapa cell bantu.
>> Proses filter dikerjakan dengan dipicu oleh berubahnya nilai inputan
nomor pass. Untuk hal ini, digunakan event worksheet change dengan
menyertakan pemeriksaan apakah benar bahwa yang berubah adalah cell input
nomor pass.
3. user bisa mengubah nilai dan menyimpan kembali.
>> Untuk memudahkan proses menyimpan data kembali, maka disusunlah
kolom-kolom berurutan di are input yang susunannya sama persis dengan
urutan kolom yang ada dalam data dasar (sheet sebelahnya). Dengan begitu,
maka proses copy paste values bisa dilakukan sekaligus sebagai sebuah
record atau bahkan sebagai sebuah dataset (kumpulan banyak record).
4. karakteristik penyimpanan data kembali adalah me-replace data yang lama
>> Langkah proses penyimpanan :
1. menghapus data lama yang ada di data dasar dengan nomor pass
terpilih
2. menyalin data baru dari area input ke data dasar (sheet database)
Demikianlah,
siapa tahu ada yang mau mengisi libur akhir tahun yang banyak hari terjepit
dengan belajar VBA... (wualah.. kaya kurang kerjaan aja, mending liburan
kale.. wakaka )
Wassalamu'alaikum Wr. Wb.
Kid.
2012/12/13 Ihsan Maulana <iisandesign@yahoo.co.id >
> **
>
>
> assalamualaikum wr.wb ..
> selamat malam semuanya,
> salam kenal yah,
> semoga para master-master excel berkenan untuk memberikan bantuannya untuk
> pencerahan masalah yg sya dapatkan,
> saya mau menanyakan, bagaimana cara untuk bisa melihat hasil filter sebuah
> surat pengeluaran barang dengan kriteria yg kita inginkan, kemudian ketika
> terjadi keslahan dlm pengetikan, kita bisa langsung mencarinya kemudian
> meng-editnya kembali atau menghapusnya ?
> terimakasih
>
> mohon bantuannya yah para master-master....
>
> saya lampirkan datanya yah...
> terimakasih banyak sebelumnya,
> wasalamualaikum wr, wb
>
>
>
Tumben sampai sehari belum ada yang reply.
Mungkin sedang sibuk akhir tahun.
Moga-moga tetap ada yang sempet belajar.
File terlampir menggunakan VBA (.xlsm).
Dalam file terlampir terdapat :
1. cara membatasi input berdasar suatu format tertentu, dalam hal ini
dibatasi format NNN/MM/YY, menggunakan data validation (allow custom)
>> Pembatasan masih belum menyertakan batasan tentang nilai MM harus 01
sampai 12 saja. Silakan dikembangkan sendiri.
2. proses filter menggunakan advanced filter berdasar kriteria nomor pass
melalui VBA.
>> Karena penggunaan Advanced Filter menuntut bahwa nama kolom hasil yang
diinginkan atau nama kolom kriteria yang digunakan sama dengan yang
tertulis pada tabel data dasarnya (data source) yang terkait, maka
dibuatlah nama-nama kolom yang sama tersebut pada beberapa cell bantu.
>> Proses filter dikerjakan dengan dipicu oleh berubahnya nilai inputan
nomor pass. Untuk hal ini, digunakan event worksheet change dengan
menyertakan pemeriksaan apakah benar bahwa yang berubah adalah cell input
nomor pass.
3. user bisa mengubah nilai dan menyimpan kembali.
>> Untuk memudahkan proses menyimpan data kembali, maka disusunlah
kolom-kolom berurutan di are input yang susunannya sama persis dengan
urutan kolom yang ada dalam data dasar (sheet sebelahnya). Dengan begitu,
maka proses copy paste values bisa dilakukan sekaligus sebagai sebuah
record atau bahkan sebagai sebuah dataset (kumpulan banyak record).
4. karakteristik penyimpanan data kembali adalah me-replace data yang lama
>> Langkah proses penyimpanan :
1. menghapus data lama yang ada di data dasar dengan nomor pass
terpilih
2. menyalin data baru dari area input ke data dasar (sheet database)
Demikianlah,
siapa tahu ada yang mau mengisi libur akhir tahun yang banyak hari terjepit
dengan belajar VBA... (wualah.. kaya kurang kerjaan aja, mending liburan
kale.. wakaka )
Wassalamu'alaikum Wr. Wb.
Kid.
2012/12/13 Ihsan Maulana <iisandesign@
> **
>
>
> assalamualaikum wr.wb ..
> selamat malam semuanya,
> salam kenal yah,
> semoga para master-master excel berkenan untuk memberikan bantuannya untuk
> pencerahan masalah yg sya dapatkan,
> saya mau menanyakan, bagaimana cara untuk bisa melihat hasil filter sebuah
> surat pengeluaran barang dengan kriteria yg kita inginkan, kemudian ketika
> terjadi keslahan dlm pengetikan, kita bisa langsung mencarinya kemudian
> meng-editnya kembali atau menghapusnya ?
> terimakasih
>
> mohon bantuannya yah para master-master.
>
> saya lampirkan datanya yah...
> terimakasih banyak sebelumnya,
> wasalamualaikum wr, wb
>
>
>
Thu Dec 13, 2012 7:51 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam Wr. Wb.
Makasih ms Jan.
Kasus beserta solusinya bisa menjadi bahan belajar buat BeExceller semuanya.
BeExceller yang lain juga kirim sesuatu untuk bisa dipelajari bersama dong.
Wassalamu'alaikum Wr. Wb.
Kid.
2012/12/13 Jan Raisin <miss.jan.raisin@gmail.com >
> **
>
>
> Dear Be-Exceler,
>
> Assalamu'alaikum wr. wb.,
>
> ada pertanyaan yang diajukan kepada Jan, bagaimana caranya memasukkan data
> ke tempatnya (baris dan kolom) dengan benar menggunakan vba
> sesuai dengan janji Jan kepada yang bertanya, maka Jan membuat thread ini
> untuk memberikan solusinya
>
> ini bukanlah script yang terbaik, tetapi Jan usahakan agar mudah
> dimengerti oleh member yang bersungguh-sungguh ingin mempelajari vba
>
> semoga file terlampir bermanfaat,
>
> Wassalamu'alaikum wr. wb.,
>
> -Ms. Jan Raisin-
>
>
>
>
Makasih ms Jan.
Kasus beserta solusinya bisa menjadi bahan belajar buat BeExceller semuanya.
BeExceller yang lain juga kirim sesuatu untuk bisa dipelajari bersama dong.
Wassalamu'alaikum Wr. Wb.
Kid.
2012/12/13 Jan Raisin <miss.jan.raisin@
> **
>
>
> Dear Be-Exceler,
>
> Assalamu'alaikum wr. wb.,
>
> ada pertanyaan yang diajukan kepada Jan, bagaimana caranya memasukkan data
> ke tempatnya (baris dan kolom) dengan benar menggunakan vba
> sesuai dengan janji Jan kepada yang bertanya, maka Jan membuat thread ini
> untuk memberikan solusinya
>
> ini bukanlah script yang terbaik, tetapi Jan usahakan agar mudah
> dimengerti oleh member yang bersungguh-sungguh ingin mempelajari vba
>
> semoga file terlampir bermanfaat,
>
> Wassalamu'alaikum wr. wb.,
>
> -Ms. Jan Raisin-
>
>
>
>
Thu Dec 13, 2012 8:28 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Tentang input dengan urutan kolom yang acak tetapi disimpan dengan urutan
kolom yang tetap.
Kasus dari ms Jan bisa digunakan untuk sedikit bermain-main seperti file
terlampir.
Urutan nama kolom yang akan di-input bisa dipilih pada range A8:A12,
sedangkan nilai inputan bisa diisikan ke range B8:B12.
Proses simpan akan dilakukan jika tombol biru ditekan.
Proses penyimpanan dilakukan berdasar cell cell bantu di kolom D dan E.
Proses dengan bantuan banyak cell seperti ini memang untuk tipe pemalas
buat script seperti saya. Untungnya, pengubahan bisa diawali dengan
mengubah formula sebelum mengubah script. Jadi gak terus-menerus sibuk
menyesuaikan script selama kolom bantu tetap pada posisi tersebut.
Wassalamu'alaikum Wr. Wb.
Kid.
2012/12/13 Jan Raisin <miss.jan.raisin@gmail.com >
> **
>
>
> Dear Be-Exceler,
>
> Assalamu'alaikum wr. wb.,
>
> ada pertanyaan yang diajukan kepada Jan, bagaimana caranya memasukkan data
> ke tempatnya (baris dan kolom) dengan benar menggunakan vba
> sesuai dengan janji Jan kepada yang bertanya, maka Jan membuat thread ini
> untuk memberikan solusinya
>
> ini bukanlah script yang terbaik, tetapi Jan usahakan agar mudah
> dimengerti oleh member yang bersungguh-sungguh ingin mempelajari vba
>
> semoga file terlampir bermanfaat,
>
> Wassalamu'alaikum wr. wb.,
>
> -Ms. Jan Raisin-
>
>
>
>
kolom yang tetap.
Kasus dari ms Jan bisa digunakan untuk sedikit bermain-main seperti file
terlampir.
Urutan nama kolom yang akan di-input bisa dipilih pada range A8:A12,
sedangkan nilai inputan bisa diisikan ke range B8:B12.
Proses simpan akan dilakukan jika tombol biru ditekan.
Proses penyimpanan dilakukan berdasar cell cell bantu di kolom D dan E.
Proses dengan bantuan banyak cell seperti ini memang untuk tipe pemalas
buat script seperti saya. Untungnya, pengubahan bisa diawali dengan
mengubah formula sebelum mengubah script. Jadi gak terus-menerus sibuk
menyesuaikan script selama kolom bantu tetap pada posisi tersebut.
Wassalamu'alaikum Wr. Wb.
Kid.
2012/12/13 Jan Raisin <miss.jan.raisin@
> **
>
>
> Dear Be-Exceler,
>
> Assalamu'alaikum wr. wb.,
>
> ada pertanyaan yang diajukan kepada Jan, bagaimana caranya memasukkan data
> ke tempatnya (baris dan kolom) dengan benar menggunakan vba
> sesuai dengan janji Jan kepada yang bertanya, maka Jan membuat thread ini
> untuk memberikan solusinya
>
> ini bukanlah script yang terbaik, tetapi Jan usahakan agar mudah
> dimengerti oleh member yang bersungguh-sungguh ingin mempelajari vba
>
> semoga file terlampir bermanfaat,
>
> Wassalamu'alaikum wr. wb.,
>
> -Ms. Jan Raisin-
>
>
>
>
Fri Dec 14, 2012 1:16 am (PST) . Posted by:
"Jan Raisin"
Assalamu'alaikum wr. wb.,
mr. Kid, terima kasih untuk pengembangan scriptnya, insya ALLAH akan Jan
pelajari lagi
baru baca emailnya xixixix :)
Wassalamu'alaikum wr. wb.,
-Ms Jan Raisin-
Pada 14 Desember 2012 11:28, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Tentang input dengan urutan kolom yang acak tetapi disimpan dengan urutan
> kolom yang tetap.
> Kasus dari ms Jan bisa digunakan untuk sedikit bermain-main seperti file
> terlampir.
>
> Urutan nama kolom yang akan di-input bisa dipilih pada range A8:A12,
> sedangkan nilai inputan bisa diisikan ke range B8:B12.
> Proses simpan akan dilakukan jika tombol biru ditekan.
> Proses penyimpanan dilakukan berdasar cell cell bantu di kolom D dan E.
> Proses dengan bantuan banyak cell seperti ini memang untuk tipe pemalas
> buat script seperti saya. Untungnya, pengubahan bisa diawali dengan
> mengubah formula sebelum mengubah script. Jadi gak terus-menerus sibuk
> menyesuaikan script selama kolom bantu tetap pada posisi tersebut.
>
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
mr. Kid, terima kasih untuk pengembangan scriptnya, insya ALLAH akan Jan
pelajari lagi
baru baca emailnya xixixix :)
Wassalamu'alaikum wr. wb.,
-Ms Jan Raisin-
Pada 14 Desember 2012 11:28, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Tentang input dengan urutan kolom yang acak tetapi disimpan dengan urutan
> kolom yang tetap.
> Kasus dari ms Jan bisa digunakan untuk sedikit bermain-main seperti file
> terlampir.
>
> Urutan nama kolom yang akan di-input bisa dipilih pada range A8:A12,
> sedangkan nilai inputan bisa diisikan ke range B8:B12.
> Proses simpan akan dilakukan jika tombol biru ditekan.
> Proses penyimpanan dilakukan berdasar cell cell bantu di kolom D dan E.
> Proses dengan bantuan banyak cell seperti ini memang untuk tipe pemalas
> buat script seperti saya. Untungnya, pengubahan bisa diawali dengan
> mengubah formula sebelum mengubah script. Jadi gak terus-menerus sibuk
> menyesuaikan script selama kolom bantu tetap pada posisi tersebut.
>
>
> Wassalamu'alaikum Wr. Wb.
> Kid.
>
>
>
>
Thu Dec 13, 2012 8:19 pm (PST) . Posted by:
"Jan Raisin"
Dear mbak/mas Dian,
untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah
menggunakan VBA
script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan
tombol ALT F11 >> Insert >> Module
Option Explicit
' -------------------------------------- '
' prosedur input data dan sort otomatis '
' sort Descending berdasarkan : '
' Golongan, Tahun & Bulan masa kerja '
' code by: Ms Jan Raisin '
' untuk millis Belajar Excel '
' 14 Desember 2012 '
' -------------------------------------- '
' ini adalah nama prosedurnya
Sub InputAndSort()
' deklarasikan variabel bertipe String untuk mencari NIP pada data
Dim sCari As String
' deklarasikan variabel bertipe Range untuk menyimpan data berupa objek
range
' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau belum
Dim Cari As Range
' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data
yang paling akhir
Dim idxRow As Long
' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data
atau belum
' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari
sCari = Range("c2").Value
' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang
paling bawah
' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8
' jika berbeda maka sesuaikan lokasinya
Set Cari = Range(Range("c8"), Range("c8").End(xlDown)).Find(sCari)
' jika ditemukan maka
If Not Cari Is Nothing Then
' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data
MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation,
"Validasi Data"
' karena sudah ada maka keluar dari prosedur
Exit Sub
' ini adalah akhir dari pengecekan keberadaan NIP pada data
End If
' jika sampai ke sini berarti data belum ada
' bikin 2 baris bantu, 1 sebagai header di baris 8
' dan di baris 9 adalah lokasi penulisan data
' Perhatian!!! insert baris dimulai dari baris data pertama
' jika lokasinya berbeda maka lakukan penyesuaian
Range("a8:a9").EntireRow.Insert
' bikin header di setiap kolom baris bantu yang tadi sudah dibuat
Range("a8").Value = "No"
Range("b8:r8").Value = Range("b1:r1").Value
' copas data input ke tabel
Range("b2:r2").Copy
Range("b9").PasteSpecial xlPasteValuesAndNumberFormats
Application.CutCopyMode = False
' sekarang saatnya melakukan sortir data
' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").Select
' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.SortFields.Clear
' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
Key:=Range("h8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add
Key:=Range("i8"), _
SortOn:=xlSortOnValues, Order:=xlDescending,
DataOption:=xlSortNormal
' sekarang bekerja pada proses sort di sheet KS dan Guru
With Sheets("ks dan guru").Sort
' atur range data yang akan disort, mulai dari aktif cell (B8) ke
arah kanan dan bawah
.SetRange Range(ActiveCell, ActiveCell.End(xlToRight).End(xlDown))
' baris pertama adalah header data
.Header = xlYes
' sort bukan berdasarkan case sensitif
.MatchCase = False
' sort dilakukan dari atas ke bawah
.Orientation = xlTopToBottom
' defaultnya adalah xlPinYin
.SortMethod = xlPinYin
' terapkan sort berdasarkan kriteria yang telah ditentukan
.Apply
' akhir bekerja dengan proses sort pada sheet KS dan Guru
End With
' cari nomor baris data terakhir dan simpan di variabel idxRow
idxRow = ActiveCell.End(xlDown).Row
' bikin nomor urut
Range("a9").Value = 1
Range("a10").Value = 2
Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
' hapus baris bantu
Range("b8").EntireRow.Delete
' pergi ke cell A1, biar keliatan lebih cantik aja
Range("a1").Select
' ini adalah akhir dari prosedur input dan simpan
End Sub
untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin
kalo mau sedikit narsis boleh lah pakai foto xixixi :D
assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada objek
tersebut
setelah itu setiap selesai input data klik objek tersebut
file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran
file, semoga OP bersedia mempelajari script tersebut sehingga untuk
penerapan ke sheet yang lain akan lebih mudah
Best Regard,
-Ms. Jan Raisin-
Pada 13 Desember 2012 15:03, Mr. Kid <mr.nmkid@gmail.com > menulis:
> **
>
>
> Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file
> asli yang telah dikurangi jumlah datanya.
>
> Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas
> maksimal ukuran file yang ditentukan dalam peraturan milis.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/13 Dian Anas <anassheva20@yahoo.com >
>
>> **
>>
>>
>> para master excel yang budiman.
>> saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan
>> ketika kita memasukan data baru contohnya kalau kita memasukkan data
>> golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a
>> yang masa kerjanya 22 tahun. terima kasih pencerahannya.
>>
>> --- Mods ---
>> File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file
>> yang lebih sesuai peraturan milis (<250KB) dari sdr/i Dian.
>> ------------
>>
>>
>
>
untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah
menggunakan VBA
script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan
tombol ALT F11 >> Insert >> Module
Option Explicit
' ------------
' prosedur input data dan sort otomatis '
' sort Descending berdasarkan : '
' Golongan, Tahun & Bulan masa kerja '
' code by: Ms Jan Raisin '
' untuk millis Belajar Excel '
' 14 Desember 2012 '
' ------------
' ini adalah nama prosedurnya
Sub InputAndSort(
' deklarasikan variabel bertipe String untuk mencari NIP pada data
Dim sCari As String
' deklarasikan variabel bertipe Range untuk menyimpan data berupa objek
range
' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau belum
Dim Cari As Range
' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data
yang paling akhir
Dim idxRow As Long
' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data
atau belum
' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari
sCari = Range("c2").
' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang
paling bawah
' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8
' jika berbeda maka sesuaikan lokasinya
Set Cari = Range(Range(
' jika ditemukan maka
If Not Cari Is Nothing Then
' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data
MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation,
"Validasi Data"
' karena sudah ada maka keluar dari prosedur
Exit Sub
' ini adalah akhir dari pengecekan keberadaan NIP pada data
End If
' jika sampai ke sini berarti data belum ada
' bikin 2 baris bantu, 1 sebagai header di baris 8
' dan di baris 9 adalah lokasi penulisan data
' Perhatian!!! insert baris dimulai dari baris data pertama
' jika lokasinya berbeda maka lakukan penyesuaian
Range("a8:a9"
' bikin header di setiap kolom baris bantu yang tadi sudah dibuat
Range("a8").
Range("b8:r8"
' copas data input ke tabel
Range("b2:r2"
Range("b9").
Application.
' sekarang saatnya melakukan sortir data
' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").
' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.
' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.
SortOn:=xlSortOnVal
DataOption:=
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.
Key:=Range("
SortOn:=xlSortOnVal
DataOption:=
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.
Key:=Range("
SortOn:=xlSortOnVal
DataOption:=
' sekarang bekerja pada proses sort di sheet KS dan Guru
With Sheets("ks dan guru").Sort
' atur range data yang akan disort, mulai dari aktif cell (B8) ke
arah kanan dan bawah
.SetRange Range(ActiveCell, ActiveCell.End(
' baris pertama adalah header data
.Header = xlYes
' sort bukan berdasarkan case sensitif
.MatchCase = False
' sort dilakukan dari atas ke bawah
.Orientation = xlTopToBottom
' defaultnya adalah xlPinYin
.SortMethod = xlPinYin
' terapkan sort berdasarkan kriteria yang telah ditentukan
.Apply
' akhir bekerja dengan proses sort pada sheet KS dan Guru
End With
' cari nomor baris data terakhir dan simpan di variabel idxRow
idxRow = ActiveCell.End(
' bikin nomor urut
Range("a9").
Range("a10")
Range("a9:a10"
' hapus baris bantu
Range("b8").
' pergi ke cell A1, biar keliatan lebih cantik aja
Range("a1").
' ini adalah akhir dari prosedur input dan simpan
End Sub
untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin
kalo mau sedikit narsis boleh lah pakai foto xixixi :D
assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada objek
tersebut
setelah itu setiap selesai input data klik objek tersebut
file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran
file, semoga OP bersedia mempelajari script tersebut sehingga untuk
penerapan ke sheet yang lain akan lebih mudah
Best Regard,
-Ms. Jan Raisin-
Pada 13 Desember 2012 15:03, Mr. Kid <mr.nmkid@gmail.
> **
>
>
> Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file
> asli yang telah dikurangi jumlah datanya.
>
> Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas
> maksimal ukuran file yang ditentukan dalam peraturan milis.
>
> Wassalam,
> Kid.
>
>
>
> 2012/12/13 Dian Anas <anassheva20@
>
>> **
>>
>>
>> para master excel yang budiman.
>> saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan
>> ketika kita memasukan data baru contohnya kalau kita memasukkan data
>> golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a
>> yang masa kerjanya 22 tahun. terima kasih pencerahannya.
>>
>> --- Mods ---
>> File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file
>> yang lebih sesuai peraturan milis (<250KB) dari sdr/i Dian.
>> ------------
>>
>>
>
>
Fri Dec 14, 2012 1:43 am (PST) . Posted by:
"Dian Anas" anassheva20
terima kasih atas pencerahannya semoga bermanfaat. amin. keep smiling
--- On Fri, 12/14/12, Jan Raisin <miss.jan.raisin@gmail.com > wrote:
From: Jan Raisin <miss.jan.raisin@gmail.com >
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@yahoogroups.com
Date: Friday, December 14, 2012, 4:19 AM
Dear mbak/mas Dian,
untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah menggunakan VBA
script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan tombol ALT F11 >> Insert >> Module
Option Explicit
' -------------------------------------- '
' prosedur input data dan sort otomatis '' sort Descending berdasarkan : '
' Golongan, Tahun & Bulan masa kerja '' code by: Ms Jan Raisin '
' untuk millis Belajar Excel '' 14 Desember 2012 '
' -------------------------------------- '
' ini adalah nama prosedurnya
Sub InputAndSort()
' deklarasikan variabel bertipe String untuk mencari NIP pada data
Dim sCari As String ' deklarasikan variabel bertipe Range untuk menyimpan data berupa objek range
' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau belum Dim Cari As Range
' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data yang paling akhir
Dim idxRow As Long
' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data atau belum
' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari sCari = Range("c2").Value
' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang paling bawah
' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8 ' jika berbeda maka sesuaikan lokasinya
Set Cari = Range(Range("c8"), Range("c8").End(xlDown)).Find(sCari)
' jika ditemukan maka If Not Cari Is Nothing Then
' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data
MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation, "Validasi Data"
' karena sudah ada maka keluar dari prosedur Exit Sub
' ini adalah akhir dari pengecekan keberadaan NIP pada data End If
' jika sampai ke sini berarti data belum ada ' bikin 2 baris bantu, 1 sebagai header di baris 8
' dan di baris 9 adalah lokasi penulisan data ' Perhatian!!! insert baris dimulai dari baris data pertama
' jika lokasinya berbeda maka lakukan penyesuaian Range("a8:a9").EntireRow.Insert
' bikin header di setiap kolom baris bantu yang tadi sudah dibuat
Range("a8").Value = "No" Range("b8:r8").Value = Range("b1:r1").Value
' copas data input ke tabel Range("b2:r2").Copy
Range("b9").PasteSpecial xlPasteValuesAndNumberFormats Application.CutCopyMode = False
' sekarang saatnya melakukan sortir data ' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").Select ' blok seluruh data ke arah kanan dan ke arah bawah
Range(Selection, Selection.End(xlToRight).End(xlDown)).Select
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.SortFields.Clear ' sort descending berdasarkan Golongan, headernya ada di cell D8
Sheets("ks dan guru").Sort.SortFields.Add Key:=Range("d8"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add Key:=Range("h8"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.Worksheets("ks dan guru").Sort.SortFields.Add Key:=Range("i8"), _ SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
' sekarang bekerja pada proses sort di sheet KS dan Guru With Sheets("ks dan guru").Sort
' atur range data yang akan disort, mulai dari aktif cell (B8) ke arah kanan dan bawah .SetRange Range(ActiveCell, ActiveCell.End(xlToRight).End(xlDown))
' baris pertama adalah header data .Header = xlYes ' sort bukan berdasarkan case sensitif
.MatchCase = False ' sort dilakukan dari atas ke bawah .Orientation = xlTopToBottom
' defaultnya adalah xlPinYin .SortMethod = xlPinYin ' terapkan sort berdasarkan kriteria yang telah ditentukan
.Apply ' akhir bekerja dengan proses sort pada sheet KS dan Guru
End With ' cari nomor baris data terakhir dan simpan di variabel idxRow
idxRow = ActiveCell.End(xlDown).Row ' bikin nomor urut
Range("a9").Value = 1 Range("a10").Value = 2 Range("a9:a10").AutoFill Range(Cells(9, 1), Cells(idxRow, 1))
' hapus baris bantu Range("b8").EntireRow.Delete
' pergi ke cell A1, biar keliatan lebih cantik aja Range("a1").Select
' ini adalah akhir dari prosedur input dan simpanEnd Sub
untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin kalo mau sedikit narsis boleh lah pakai foto xixixi :D
assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada objek tersebut
setelah itu setiap selesai input data klik objek tersebut
file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran file, semoga OP bersedia mempelajari script tersebut sehingga untuk penerapan ke sheet yang lain akan lebih mudah
Best Regard,
-Ms. Jan Raisin-
Pada 13 Desember 2012 15:03, Mr. Kid <mr.nmkid@gmail.com > menulis:
Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file asli yang telah dikurangi jumlah datanya.
Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas maksimal ukuran file yang ditentukan dalam peraturan milis.
Wassalam,
Kid.
2012/12/13 Dian Anas <anassheva20@yahoo.com >
para master excel yang budiman.
saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan ketika kita memasukan data baru contohnya kalau kita memasukkan data golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a yang masa kerjanya 22 tahun. terima kasih pencerahannya.
--- Mods ---
File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file yang lebih sesuai peraturan milis (<250KB) dari sdr/i Dian.
------------
--- On Fri, 12/14/12, Jan Raisin <miss.jan.raisin@
From: Jan Raisin <miss.jan.raisin@
Subject: Re: [belajar-excel] membuat duk pns otomatis
To: belajar-excel@
Date: Friday, December 14, 2012, 4:19 AM
Dear mbak/mas Dian,
untuk kasus ini jika ingin otomatis, maka satu-satunya cara adalah menggunakan VBA
script berikut ditulis dalam sebuah modul VBE, untuk menampilkannya tekan tombol ALT F11 >> Insert >> Module
Option Explicit
' ------------
' prosedur input data dan sort otomatis '' sort Descending berdasarkan : '
' Golongan, Tahun & Bulan masa kerja '' code by: Ms Jan Raisin '
' untuk millis Belajar Excel '' 14 Desember 2012 '
' ------------
' ini adalah nama prosedurnya
Sub InputAndSort(
' deklarasikan variabel bertipe String untuk mencari NIP pada data
Dim sCari As String ' deklarasikan variabel bertipe Range untuk menyimpan data berupa objek range
' variabel ini untuk menunjukkan apakah NIP sudah ada di data atau belum Dim Cari As Range
' deklarasikan variabel bertipe Long untuk menyimpan nomor baris data yang paling akhir
Dim idxRow As Long
' ini adalah proses pengecekan apakah NIP tersebut sudah ada di data atau belum
' simpan NIP dari cell C2 ke dalam variabel yang bernama sCari sCari = Range("c2").
' lakukan pencarian NIP mulai dari cell C8 sampai baris data yang paling bawah
' perhatian!!! pada contoh ini data pertama NIP ada pada cell C8 ' jika berbeda maka sesuaikan lokasinya
Set Cari = Range(Range(
' jika ditemukan maka If Not Cari Is Nothing Then
' tampilkan pesan kepada user bahwa NIP tersebut sudah ada di data
MsgBox "NIP tersebut sudah ada", vbOKOnly + vbExclamation, "Validasi Data"
' karena sudah ada maka keluar dari prosedur Exit Sub
' ini adalah akhir dari pengecekan keberadaan NIP pada data End If
' jika sampai ke sini berarti data belum ada ' bikin 2 baris bantu, 1 sebagai header di baris 8
' dan di baris 9 adalah lokasi penulisan data ' Perhatian!!! insert baris dimulai dari baris data pertama
' jika lokasinya berbeda maka lakukan penyesuaian Range("a8:a9"
' bikin header di setiap kolom baris bantu yang tadi sudah dibuat
Range("a8").
' copas data input ke tabel Range("b2:r2"
Range("b9").
' sekarang saatnya melakukan sortir data ' pergi ke cell B8, ini adalah header dari baris bantu yang sudah dibuat
Range("B8").
Range(Selection, Selection.End(
' jika ada sort sebelumnya, maka hapus dahulu sort tersebut
Sheets("ks dan guru").Sort.
Sheets("ks dan guru").Sort.
' sort descending berdasarkan Tahun tugas, headernya ada di cell H8
ActiveWorkbook.
' sort Descending berdasarkan Bulan tugas, headernya ada di cell I8
ActiveWorkbook.
' sekarang bekerja pada proses sort di sheet KS dan Guru With Sheets("ks dan guru").Sort
' atur range data yang akan disort, mulai dari aktif cell (B8) ke arah kanan dan bawah .SetRange Range(ActiveCell, ActiveCell.End(
' baris pertama adalah header data .Header = xlYes ' sort bukan berdasarkan case sensitif
.MatchCase = False ' sort dilakukan dari atas ke bawah .Orientation = xlTopToBottom
' defaultnya adalah xlPinYin .SortMethod = xlPinYin ' terapkan sort berdasarkan kriteria yang telah ditentukan
.Apply ' akhir bekerja dengan proses sort pada sheet KS dan Guru
End With ' cari nomor baris data terakhir dan simpan di variabel idxRow
idxRow = ActiveCell.End(
Range("a9").
' hapus baris bantu Range("b8").
' pergi ke cell A1, biar keliatan lebih cantik aja Range("a1").
' ini adalah akhir dari prosedur input dan simpanEnd Sub
untuk menjalankannya, buat sebuah objek berupa tombol, shape, atau mungkin kalo mau sedikit narsis boleh lah pakai foto xixixi :D
assign macro tersebut ke dalam objek tadi dengan cara klik kanan pada objek tersebut
setelah itu setiap selesai input data klik objek tersebut
file terlampir hanya disisakan 1 buah sheet saja, untuk mengurangi ukuran file, semoga OP bersedia mempelajari script tersebut sehingga untuk penerapan ke sheet yang lain akan lebih mudah
Best Regard,
-Ms. Jan Raisin-
Pada 13 Desember 2012 15:03, Mr. Kid <mr.nmkid@gmail.
Berhubung belum ada file susulan sebagai contoh datanya, dilampirkan file asli yang telah dikurangi jumlah datanya.
Mohon hati-hati bagi yang ne-reply, karena file sudah mendekati batas maksimal ukuran file yang ditentukan dalam peraturan milis.
Wassalam,
Kid.
2012/12/13 Dian Anas <anassheva20@
para master excel yang budiman.
saya mau tanya, apakah sorting otomatis pada excel itu bisa dilakukan ketika kita memasukan data baru contohnya kalau kita memasukkan data golongan IV/a dengan masa kerja 23 tahun maka akan diatas golongan IV/a yang masa kerjanya 22 tahun. terima kasih pencerahannya.
--- Mods ---
File lampiran yang sebesar 492KB tersandera. Kita tunggu kiriman file yang lebih sesuai peraturan milis (<250KB) dari sdr/i Dian.
------------
Thu Dec 13, 2012 8:46 pm (PST) . Posted by:
"Tony Bexcel"
Dear Mr.Kid & Miss Jan,
Terimakasih banyak atas support nya yang sangat membantu..pekerjaan 1 jam bisa diselesaikan dalam waktu 3 menit berkat Pakar2 di Milis ini..
Sekali lagi salam Kompak..
Tony
--- Pada Kam, 13/12/12, Mr. Kid <mr.nmkid@gmail.com > menulis:
Dari: Mr. Kid <mr.nmkid@gmail.com >
Judul: Re: [belajar-excel] Memberi warna pada blok yang ditentukan
Kepada: belajar-excel@yahoogroups.com
Tanggal: Kamis, 13 Desember, 2012, 6:51 PM
ikutan ya...
Coba formula dalam conditional formatting-nya dibuat seperti formula yang ada digambar dari ms Jan ini :
bunyinya :
(--Mid(F$4 , 2, 2) >= --$A6) * (--Mid(F$4 , 2, 2) <= --$B6)
Yang di kuning yang perlu ditambahkan jika di formula CF Anda belum ada.
Wassalam,
Kid.
2012/12/13 Tony Bexcel <tonybexcel@yahoo.co.id >
Dear Miss Jan,
Terimakasih atas bantuan nya lagi..saya sudah pelajari maksud dari keterngan disandingkan dengan hasil dari File nya langsung dan itu jadi lebih mudah dimengerti.
Akan tetapi saya masih bingung pada Blok warna nya, contoh pada row 5 disitu dijelaskan Activity dari Wk 14 sampai Wk 18 akan tetapi yang ke blok warna dari Wk 14 sampai mentok dan tidak berhenti di Wk 18.
Apakah saya salah rumusan ya Miss?
Mohon bantuan pencerahan nya lagi ya..
Salam,
Tony
--- Pada Kam, 13/12/12, Jan Raisin <miss.jan.raisin@gmail.com > menulis:
Dari: Jan Raisin <miss.jan.raisin@gmail.com >
Judul: Re: [belajar-excel] Memberi warna pada blok yang ditentukan
Kepada: belajar-excel@yahoogroups.com
Tanggal: Kamis, 13 Desember, 2012, 3:13 PM
Dear Tony,
coba pelajari file terlampir.. dan penjelasan dari Jan pada email sebelumnya
maaf datanya Jan potong ya.. niat Jan baik lho.. supaya pak Tony bisa mengetahui step-step pembuatannya.. tidak hanya terima jadi :)
Best Regard,
-Ms. Jan Raisin-
Pada 13 Desember 2012 14:44, Tony Bexcel <tonybexcel@yahoo.co.id > menulis:
Dear Miss Jan,
Bisa minta bantuan nya langsung pada File nya kah? :)
Sudah berapa jam belum dapat juga yang dimaksud.. :(
Salam,Tony
--- Pada Kam, 13/12/12, miss.jan.raisin <miss.jan.raisin@gmail.com > menulis:
Terimakasih banyak atas support nya yang sangat membantu..pekerjaan 1 jam bisa diselesaikan dalam waktu 3 menit berkat Pakar2 di Milis ini..
Sekali lagi salam Kompak..
Tony
--- Pada Kam, 13/12/12, Mr. Kid <mr.nmkid@gmail.
Dari: Mr. Kid <mr.nmkid@gmail.
Judul: Re: [belajar-excel] Memberi warna pada blok yang ditentukan
Kepada: belajar-excel@
Tanggal: Kamis, 13 Desember, 2012, 6:51 PM
ikutan ya...
Coba formula dalam conditional formatting-nya dibuat seperti formula yang ada digambar dari ms Jan ini :
bunyinya :
(--Mid(F$4 , 2, 2) >= --$A6) * (--Mid(F$4 , 2, 2) <= --$B6)
Yang di kuning yang perlu ditambahkan jika di formula CF Anda belum ada.
Wassalam,
Kid.
2012/12/13 Tony Bexcel <tonybexcel@yahoo.
Dear Miss Jan,
Terimakasih atas bantuan nya lagi..saya sudah pelajari maksud dari keterngan disandingkan dengan hasil dari File nya langsung dan itu jadi lebih mudah dimengerti.
Akan tetapi saya masih bingung pada Blok warna nya, contoh pada row 5 disitu dijelaskan Activity dari Wk 14 sampai Wk 18 akan tetapi yang ke blok warna dari Wk 14 sampai mentok dan tidak berhenti di Wk 18.
Apakah saya salah rumusan ya Miss?
Mohon bantuan pencerahan nya lagi ya..
Salam,
Tony
--- Pada Kam, 13/12/12, Jan Raisin <miss.jan.raisin@
Dari: Jan Raisin <miss.jan.raisin@
Judul: Re: [belajar-excel] Memberi warna pada blok yang ditentukan
Kepada: belajar-excel@
Tanggal: Kamis, 13 Desember, 2012, 3:13 PM
Dear Tony,
coba pelajari file terlampir.. dan penjelasan dari Jan pada email sebelumnya
maaf datanya Jan potong ya.. niat Jan baik lho.. supaya pak Tony bisa mengetahui step-step pembuatannya.
Best Regard,
-Ms. Jan Raisin-
Pada 13 Desember 2012 14:44, Tony Bexcel <tonybexcel@yahoo.
Dear Miss Jan,
Bisa minta bantuan nya langsung pada File nya kah? :)
Sudah berapa jam belum dapat juga yang dimaksud.. :(
Salam,Tony
--- Pada Kam, 13/12/12, miss.jan.raisin <miss.jan.raisin@
Thu Dec 13, 2012 8:56 pm (PST) . Posted by:
"Tony Bexcel"
Dear All Pakar yang budiman,
Terlampir adalah file sebelum nya namun disini masih ada kasus yang butuh bantuan untuk menghitung rata2 di 3 bulan kedepan akhir dari activity.
Dalam penyampaian kasus mungkin saya kurang baik, untuk itu saya lampirkan file terlampir.
Atas bantuan dan waktunya saya ucapkan terimakasih.
Salam,
Tony
Terlampir adalah file sebelum nya namun disini masih ada kasus yang butuh bantuan untuk menghitung rata2 di 3 bulan kedepan akhir dari activity.
Dalam penyampaian kasus mungkin saya kurang baik, untuk itu saya lampirkan file terlampir.
Atas bantuan dan waktunya saya ucapkan terimakasih.
Salam,
Tony
Fri Dec 14, 2012 12:18 am (PST) . Posted by:
"Rachmad HIDAYAT"
Dear Pakar Bexcel,
Saya punya case begini nih, mohon bisa dibantu ya..,
- Saya punya dua atau lebih file Absensi dengan format tabel yang sama, namun nama data nama,materi, absensi berbeda. (dalam case ini saya jadikan satu file saja, tapi faktanya ada 3 file xlsx, FILE-01.xlxs(di Sheet File-01),FILE-02(di sheet File-02).xlsx, GABUNG DATA.xlsx (Gabung data File-01dan File02)
- Setiap akhir pekan saya pingin mengetahui berapa total keseluruhan yang hadir(H), tidak hadir(X)dari orang-orang tersebut
- Ohya,Data orang bisa bertambah jadi nanti secara otomatis akan tergabung juga di file gabung
- Bagaimana cara menggabungkan 2 file ini menjadi satu file gabungan ya ?
Lebih jelasnya bisa di lihat di lampiran Saya cob pake concolidate, namun masih bingung cara pake dan error
Terim kasih atas bantuannya ya
Terima Kasih,
Rachmad Hidayat
Inspection Method
3487
Saya punya case begini nih, mohon bisa dibantu ya..,
- Saya punya dua atau lebih file Absensi dengan format tabel yang sama, namun nama data nama,materi, absensi berbeda. (dalam case ini saya jadikan satu file saja, tapi faktanya ada 3 file xlsx, FILE-01.xlxs(
- Setiap akhir pekan saya pingin mengetahui berapa total keseluruhan yang hadir(H), tidak hadir(X)dari orang-orang tersebut
- Ohya,Data orang bisa bertambah jadi nanti secara otomatis akan tergabung juga di file gabung
- Bagaimana cara menggabungkan 2 file ini menjadi satu file gabungan ya ?
Lebih jelasnya bisa di lihat di lampiran Saya cob pake concolidate, namun masih bingung cara pake dan error
Terim kasih atas bantuannya ya
Terima Kasih,
Rachmad Hidayat
Inspection Method
3487
Fri Dec 14, 2012 2:17 am (PST) . Posted by:
"ghozi alkatiri" ghozialkatiri
tulis formula pertama di A7
=IF(ROW(1:1)<=COUNTA('File-01'!$A$7:$A$40);OFFSET('File-01'!$A$6;MOD(ROW(1:1)-1;COUNTA('File-01'!$A$7:$A$40))+1;COLUMN()-1);OFFSET('File-02'!$A$6;ROW(1:1)-COUNTA('File-01'!$A$7:$A$40)+1;COLUMN()-1))
copy ke kanan dan ke bawah
pada cell berisi 0 (nol) dari tabel yang kosong dihilangkan dengan conditional formating opsi font no colour.
selanjutnya lihat langsung di attachment sheet solusi
wassalam
Ghozi Alkatiri
________________________________
Dari: Rachmad HIDAYAT <rachmad.hidayat@external.total.com >
Kepada: "belajar-excel@yahoogroups.com " <belajar-excel@yahoogroups.com >
Dikirim: Jumat, 14 Desember 2012 15:17
Judul: [belajar-excel] Menggabungkan 2 Data absensi ke dalam 1 File gabung absensi
Dear Pakar Bexcel,
Saya punya case begini nih, mohon bisa dibantu ya..,
- Saya punya dua atau lebih file Absensi dengan format tabel yang sama, namun nama data nama,materi, absensi berbeda. (dalam case ini saya jadikan satu file saja, tapi faktanya ada 3 file xlsx, FILE-01.xlxs(di Sheet File-01),FILE-02(di sheet File-02).xlsx, GABUNG DATA.xlsx (Gabung data File-01dan File02)
- Setiap akhir pekan saya pingin mengetahui berapa total keseluruhan yang hadir(H), tidak hadir(X)dari orang-orang tersebut
- Ohya,Data orang bisa bertambah jadi nanti secara otomatis akan tergabung juga di file gabung
- Bagaimana cara menggabungkan 2 file ini menjadi satu file gabungan ya ?
Lebih jelasnya bisa di lihat di lampiran Saya cob pake concolidate, namun masih bingung cara pake dan error
Terim kasih atas bantuannya ya
Terima Kasih,
Rachmad Hidayat
Inspection Method
3487
=IF(ROW(1:1)
copy ke kanan dan ke bawah
pada cell berisi 0 (nol) dari tabel yang kosong dihilangkan dengan conditional formating opsi font no colour.
selanjutnya lihat langsung di attachment sheet solusi
wassalam
Ghozi Alkatiri
____________
Dari: Rachmad HIDAYAT <rachmad.hidayat@
Kepada: "belajar-excel@
Dikirim: Jumat, 14 Desember 2012 15:17
Judul: [belajar-excel] Menggabungkan 2 Data absensi ke dalam 1 File gabung absensi
Dear Pakar Bexcel,
Saya punya case begini nih, mohon bisa dibantu ya..,
- Saya punya dua atau lebih file Absensi dengan format tabel yang sama, namun nama data nama,materi, absensi berbeda. (dalam case ini saya jadikan satu file saja, tapi faktanya ada 3 file xlsx, FILE-01.xlxs(
- Setiap akhir pekan saya pingin mengetahui berapa total keseluruhan yang hadir(H), tidak hadir(X)dari orang-orang tersebut
- Ohya,Data orang bisa bertambah jadi nanti secara otomatis akan tergabung juga di file gabung
- Bagaimana cara menggabungkan 2 file ini menjadi satu file gabungan ya ?
Lebih jelasnya bisa di lihat di lampiran Saya cob pake concolidate, namun masih bingung cara pake dan error
Terim kasih atas bantuannya ya
Terima Kasih,
Rachmad Hidayat
Inspection Method
3487
Fri Dec 14, 2012 4:14 am (PST) . Posted by:
"Risnaldi" risnaldi
Dear Master Excel,
Mohon bantuannya rumus apa yang digunakan untuk table range. Dimana pada saat mengisi harga dan tahun perakitan akan keluar hasil (RATE) berdasarkan table harga dan tahun perakitan.
Sebelumnya sudah coba pakai vlookup tapi masih belum berhasil, mungkin para master excel disini ada yang bisa bantu. file terlampir.
Atas waktu dan bantuannya saya ucapkan banyak terimakasih.
Salam,
Ris naldi
Mohon bantuannya rumus apa yang digunakan untuk table range. Dimana pada saat mengisi harga dan tahun perakitan akan keluar hasil (RATE) berdasarkan table harga dan tahun perakitan.
Sebelumnya sudah coba pakai vlookup tapi masih belum berhasil, mungkin para master excel disini ada yang bisa bantu. file terlampir.
Atas waktu dan bantuannya saya ucapkan banyak terimakasih.
Salam,
Ris naldi
Fri Dec 14, 2012 4:56 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Ris,
Setiap kriteria berupa interval sebaiknya dipisah menjadi 2 kolom yaitu
titik start dan titik end. Misal Price Start dan Price End.
Kriteria yang digunakan untuk kasus ini adalah :
>> price start (dibuat baru di kolom B)
>> price end (dibuat baru di kolom C)
>> years start (dibuat baru di kolom D)
>> years end (dibuat baru di kolom E)
Sedangkan nilai yang akan diambil adalah persentase (jika 0%, maka tulis 0%
daripada menggunakan dash) diletakkan pada kolom H
Semua referensi di atas ada dalam sheet bernama rating.
Data input ada dalam sheet data berupa :
>> price input di cell E3
>> tahun perakitan di cell E4
Data tahun perakitan harus dihitung usianya terhadap tahun sekarang dengan
formula :
Year( Today() ) - E4
Formula rate :
=SUMPRODUCT((Rating!B3:B17<=E3)*(Rating!C3:C17>=E3)*(Rating!D3:D17<=YEAR(TODAY())-E4)*(Rating!E3:E17>=YEAR(TODAY())-E4)*Rating!H3:H17)
*dengan penjelasan :*
(Rating!B3:B17<=E3) Price Start <= Price Input (Rating!C3:C17>=E3) Price
End >= Price Input (Rating!D3:D17<=YEAR(TODAY())-E4) Years Start <=
selisih tahun input (Rating!E3:E17>=YEAR(TODAY())-E4) Years End >= selisih
tahun input Rating!H3:H17 Nilai yang diambil * seluruh kriteria harus
terpenuhi, maka menggunakan operator AND yang setara perkalian
File terlampir.
Wassalam,
Kid.
2012/12/14 Risnaldi <risnaldi@yahoo.com >
> **
>
>
> Dear Master Excel,
> Mohon bantuannya rumus apa yang digunakan untuk table range. Dimana pada
> saat mengisi harga dan tahun perakitan akan keluar hasil (RATE)
> berdasarkan table harga dan tahun perakitan.
> Sebelumnya sudah coba pakai vlookup tapi masih belum berhasil, mungkin
> para master excel disini ada yang bisa bantu. file terlampir.
> Atas waktu dan bantuannya saya ucapkan banyak terimakasih.
>
> Salam,
> Ris naldi
>
>
>
Setiap kriteria berupa interval sebaiknya dipisah menjadi 2 kolom yaitu
titik start dan titik end. Misal Price Start dan Price End.
Kriteria yang digunakan untuk kasus ini adalah :
>> price start (dibuat baru di kolom B)
>> price end (dibuat baru di kolom C)
>> years start (dibuat baru di kolom D)
>> years end (dibuat baru di kolom E)
Sedangkan nilai yang akan diambil adalah persentase (jika 0%, maka tulis 0%
daripada menggunakan dash) diletakkan pada kolom H
Semua referensi di atas ada dalam sheet bernama rating.
Data input ada dalam sheet data berupa :
>> price input di cell E3
>> tahun perakitan di cell E4
Data tahun perakitan harus dihitung usianya terhadap tahun sekarang dengan
formula :
Year( Today() ) - E4
Formula rate :
=SUMPRODUCT(
*dengan penjelasan :*
(Rating!B3:B17<
End >= Price Input (Rating!D3:D17<
selisih tahun input (Rating!E3:E17>
tahun input Rating!H3:H17 Nilai yang diambil * seluruh kriteria harus
terpenuhi, maka menggunakan operator AND yang setara perkalian
File terlampir.
Wassalam,
Kid.
2012/12/14 Risnaldi <risnaldi@yahoo.
> **
>
>
> Dear Master Excel,
> Mohon bantuannya rumus apa yang digunakan untuk table range. Dimana pada
> saat mengisi harga dan tahun perakitan akan keluar hasil (RATE)
> berdasarkan table harga dan tahun perakitan.
> Sebelumnya sudah coba pakai vlookup tapi masih belum berhasil, mungkin
> para master excel disini ada yang bisa bantu. file terlampir.
> Atas waktu dan bantuannya saya ucapkan banyak terimakasih.
>
> Salam,
> Ris naldi
>
>
>
Fri Dec 14, 2012 4:30 am (PST) . Posted by:
"Pahoton S." pakhoton
Halo semua,
mohon bantuannya, bagaimana mengambil data untuk dipisahkan per-kolom, sementara data berada disatu cell.
Didalam cell tersebut (contoh A1), kalau saya kelompokkan adalah sbb:
Supplier_bahan_Apa Nama_pic_nya (kode_id), nama_perusahaan, kota_atau_wilayah,
Nah tujuannya adalah, bagaimana membuatnya agar masing-masing menjadi ada di kolom baru.
Lebih jelasnya saya sertakan file contoh 10 baris, dengan hasil akhir disebelah kanannya (saya kerjakan manual/ diketik, yaitu kolom B, C, D, E, F)
Kalau bisa pakai function, kalau harus kombinasi macro juga tidak masalah yaa..
Terimakasih
mohon bantuannya, bagaimana mengambil data untuk dipisahkan per-kolom, sementara data berada disatu cell.
Didalam cell tersebut (contoh A1), kalau saya kelompokkan adalah sbb:
Supplier_bahan_
Nah tujuannya adalah, bagaimana membuatnya agar masing-masing menjadi ada di kolom baru.
Lebih jelasnya saya sertakan file contoh 10 baris, dengan hasil akhir disebelah kanannya (saya kerjakan manual/ diketik, yaitu kolom B, C, D, E, F)
Kalau bisa pakai function, kalau harus kombinasi macro juga tidak masalah yaa..
Terimakasih
Fri Dec 14, 2012 6:37 am (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Pahoton,
Untuk format teks :
'Supplier_bahan_Apa Nama_pic_nya (kode_id), nama_perusahaan,
kota_atau_wilayah,'
Data di A4
1. 'Supplier_bahan_Apa ' -> di B4
>> diakhiri dengan *spasi *ke-2
>> *spasi *ke-2 selalu setelah karakter ke-*10*
=LEFT(A4,FIND(*" "*,A4,*10*)-1)
Bahasa manusia :
"Ambil dari kiri (Left) pada data A4 sebanyak jumlah tepat 1 karakter
sebelum (-1) karakter ditemukannya (Find) spasi (" ") pada data A4 yang
dicari mulai karakter ke-10"
2. 'Nama_pic_nya' -> di C4
>> setelah 'Supplier_bahan_Apa ' atau hasil B4
>> sebelum '(' pada '(kode_id)'
=MID(LEFT(A4,FIND("(",A4)-1),LEN(B4)+2,99)
Bahasa manusia :
"Ambil potongan teks (Mid) dari data hasil proses, yaitu pengambilan dari
kiri (left) sebanyak tepat 1 karakter sebelum (-1) ditemukannya buka kurung
["("], yang potongannya mulai 2 karakter setelah (+2) jumlah karakter
potongan supplier (B4), yang dipotong sebanyak 99 karakter"
3. 'kode_id' -> di D4
>> diawali '('
>> diakhiri ')' yang artinya, setelah karakter ')' bisa dihapus
=MID(REPLACE(A4,FIND(")",A4),999,""),FIND("(",A4)+1,9)
Bahasa manusia :
"Ambil potongan teks (Mid) mulai dari 1 karakter setelah ditemukannya
karakter '(' pada data [FIND("(",A4)+1], yang diambil sebanyak 9 karakter,
dimana data teks yang diambil potongannya adalah hasil proses penggantian
berdasar posisi karakter (Replace) dari data A4, mulai ditemukannya
karakter ')' [FIND(")",A4)], dengan jumlah karakter yang diganti adalah
sebanyak 999 karakter dan digantikan oleh NULLSTRING atau karakter kosong [
""]"
Jika kode_id pasti selalu 5 karakter, maka bisa menggunakan formula :
=RIGHT(REPLACE(A4,FIND(")",A4),999,""),5) -> jika suka dengan replace
atau
=MID(A4,FIND("(",A4)+1,5)
4. 'nama_perusahaan' -> di E4
>> setelah teks '),' pada kode_id, maka ambil data mulai teks tersebut
>> diakhiri karakter ',' yang artinya seluruh ',' bisa diganti dengan spasi
yang banyak (Reptetition karakter spasi) agar bisa dipotong
=TRIM(LEFT(SUBSTITUTE(MID(A4,FIND("),",A4)+3,9^9),",",REPT(" ",99)),99))
Bahasa manusia :
"Ambil teks pada 3 karakter setelah bunyi '),' [Mid blabla], kemudian
seluruh karakter ',' diubah (Substitute) menjadi banyak spasi (Rept blabla)
dilanjutkan dengan mengambil dari kiri (Left) hasil proses tersebut
sebanyak 99 karakter disertai pemotongan spasi (Trim)"
5. 'kota_atau_wilayah,' -> di F4
>> asumsi selalu diakhiri ',' [jika berbeda dengan asumsi, maka
sesuaikan lagi formulanya]
>> bagian terkanan dari format
>> diawali karakter ',' milik 'nama_perusahaan'
=TRIM(RIGHT(SUBSTITUTE(TRIM(A4),",",REPT(" ",99)),99*2))
Bahasa manusia :
"Pada data A4 yang telah dipotong spasi luar atau spasi gandanya
[Trim(A4)], diubah seluruh karakter ',' nya menjadi banyak spasi
[Substitute(blabla)] dan diambil dari kanan [Right] sebanyak 2 kali jumlah
spasi banyak pengganti [99*2] yang diakhiri dengan pemotongan spasi ganda
atau spasi terluarnya [Trim]"
File terlampir.
Wassalam,
Kid.
2012/12/14 Pahoton S. <pahoton.sianturi@yahoo.com >
> **
>
>
> Halo semua,
> mohon bantuannya, bagaimana mengambil data untuk dipisahkan per-kolom,
> sementara data berada disatu cell.
> Didalam cell tersebut (contoh A1), kalau saya kelompokkan adalah sbb:
>
> Supplier_bahan_Apa Nama_pic_nya (kode_id), nama_perusahaan,
> kota_atau_wilayah,
>
> Nah tujuannya adalah, bagaimana membuatnya agar masing-masing menjadi ada
> di kolom baru.
> Lebih jelasnya saya sertakan file contoh 10 baris, dengan hasil akhir
> disebelah kanannya (saya kerjakan manual/ diketik, yaitu kolom B, C, D, E,
> F)
>
> Kalau bisa pakai function, kalau harus kombinasi macro juga tidak masalah
> yaa..
>
> Terimakasih
>
> _
>
Untuk format teks :
'Supplier_bahan_
kota_atau_wilayah,
Data di A4
1. 'Supplier_bahan_
>> diakhiri dengan *spasi *ke-2
>> *spasi *ke-2 selalu setelah karakter ke-*10*
=LEFT(A4,FIND(
Bahasa manusia :
"Ambil dari kiri (Left) pada data A4 sebanyak jumlah tepat 1 karakter
sebelum (-1) karakter ditemukannya (Find) spasi (" ") pada data A4 yang
dicari mulai karakter ke-10"
2. 'Nama_pic_nya' -> di C4
>> setelah 'Supplier_bahan_
>> sebelum '(' pada '(kode_id)'
=MID(LEFT(A4,
Bahasa manusia :
"Ambil potongan teks (Mid) dari data hasil proses, yaitu pengambilan dari
kiri (left) sebanyak tepat 1 karakter sebelum (-1) ditemukannya buka kurung
["("], yang potongannya mulai 2 karakter setelah (+2) jumlah karakter
potongan supplier (B4), yang dipotong sebanyak 99 karakter"
3. 'kode_id' -> di D4
>> diawali '('
>> diakhiri ')' yang artinya, setelah karakter ')' bisa dihapus
=MID(REPLACE(
Bahasa manusia :
"Ambil potongan teks (Mid) mulai dari 1 karakter setelah ditemukannya
karakter '(' pada data [FIND("(",A4)
dimana data teks yang diambil potongannya adalah hasil proses penggantian
berdasar posisi karakter (Replace) dari data A4, mulai ditemukannya
karakter ')' [FIND(")",A4)
sebanyak 999 karakter dan digantikan oleh NULLSTRING atau karakter kosong [
""]"
Jika kode_id pasti selalu 5 karakter, maka bisa menggunakan formula :
=RIGHT(REPLACE(
atau
=MID(A4,FIND(
4. 'nama_perusahaan' -> di E4
>> setelah teks '),' pada kode_id, maka ambil data mulai teks tersebut
>> diakhiri karakter ',' yang artinya seluruh ',' bisa diganti dengan spasi
yang banyak (Reptetition karakter spasi) agar bisa dipotong
=TRIM(LEFT(SUBSTITU
Bahasa manusia :
"Ambil teks pada 3 karakter setelah bunyi '),' [Mid blabla], kemudian
seluruh karakter ',' diubah (Substitute) menjadi banyak spasi (Rept blabla)
dilanjutkan dengan mengambil dari kiri (Left) hasil proses tersebut
sebanyak 99 karakter disertai pemotongan spasi (Trim)"
5. 'kota_atau_wilayah,
>> asumsi selalu diakhiri ',' [jika berbeda dengan asumsi, maka
sesuaikan lagi formulanya]
>> bagian terkanan dari format
>> diawali karakter ',' milik 'nama_perusahaan'
=TRIM(RIGHT(
Bahasa manusia :
"Pada data A4 yang telah dipotong spasi luar atau spasi gandanya
[Trim(A4)], diubah seluruh karakter ',' nya menjadi banyak spasi
[Substitute(
spasi banyak pengganti [99*2] yang diakhiri dengan pemotongan spasi ganda
atau spasi terluarnya [Trim]"
File terlampir.
Wassalam,
Kid.
2012/12/14 Pahoton S. <pahoton.sianturi@
> **
>
>
> Halo semua,
> mohon bantuannya, bagaimana mengambil data untuk dipisahkan per-kolom,
> sementara data berada disatu cell.
> Didalam cell tersebut (contoh A1), kalau saya kelompokkan adalah sbb:
>
> Supplier_bahan_
> kota_atau_wilayah,
>
> Nah tujuannya adalah, bagaimana membuatnya agar masing-masing menjadi ada
> di kolom baru.
> Lebih jelasnya saya sertakan file contoh 10 baris, dengan hasil akhir
> disebelah kanannya (saya kerjakan manual/ diketik, yaitu kolom B, C, D, E,
> F)
>
> Kalau bisa pakai function, kalau harus kombinasi macro juga tidak masalah
> yaa..
>
> Terimakasih
>
> _
>
Fri Dec 14, 2012 5:17 am (PST) . Posted by:
"odhyz83_assasaky" odhyz83_assasaky
Dear Master,
Saya mempunyai khayalan, kira-kira bisa gak dengan excel untuk membuat aplikasi
Absensi seperti finger print, jd misalx kita msukkan ID dan kita tekan sebuah tombol di keyboard maka akan langsung di simpan tanggal dan jam saat itu,.
Sekiranya bisa mohon pencerahannya.
Salam
Odhy.
Terkirim dari tablet Samsung
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