Messages In This Digest (9 Messages)

1a.: Re: filter degan macro From: gilang romadhon
1b.: Re: filter degan macro From: Rara Wilis

2a.: Fw: [belajar-excel] filter degan macro From: hendrik karnadi

3a.: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi ver From: hartini_80@yahoo.co.id
3b.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi From: hendrik karnadi
3c.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi From: hartini_80@yahoo.co.id
3d.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi From: hendrik karnadi
3e.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi From: hartini_80@yahoo.co.id

4.: Insert Foto di Excel dari Folder pake Macro From: Jufri Devis

View All Topics | Create New Topic

Messages

1a.: Re: filter degan macro

Posted by: "gilang romadhon" kampul1212@gmail.com

Thu Apr 19, 2012 12:44 am (PDT)

terimasih bapak kid,.. #alah

saya mau iseng2 berhadiah lagi.. mungkin nanti ada pertanyaan lagi,.

salam...

2012/4/19 Kid Mr. <mr.nmkid@gmail.com>

> **
>
>
> Waalaikumussalam Wr. Wb.
>
> Pak Gilang yang baik,
>
> Sambil menunggu penjelasan resmi dan detil dari yang nyusun script dapat
> jam istirahat ngesot,
> kira-kira seperti ini :
> Private Sub Worksheet_Change(ByVal Target As Range) 'ipen ketika ada
> isi cell (namanya target) yang berubah isinya
> Dim dTabel As Range, Tampil As Range 'deklarasi variabel range,
> dtabel untuk data, tampil untuk area nulis hasil pilter
> Dim r As Long, n As Long 'deklarasi
> variabel r untuk index baris si dtabel, n untuk jumlah item hasil filter
> equal index baris hasil filter
>
> ' siti Vi / 30 May 2011 / beExcel case 'yang nyusun
> script :)
> ' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN 'gambaran
> singkat tujuan script
> '----------------------------------------------- 'sekedar batas
> biar rada enak dibaca
> Application.Calculation = xlCalculationManual ' set setting
> kalkulasi excel jadi manual
> Application.EnableEvents = False ' set supaya
> excel gak ngerjain ipen yang lain jika terjadi ipen
> On Error GoTo AKHIR ' jebakan
> maut untuk si error kalau si error muncul langsung ke blok yang namanya
> AKHIR
> If Target.Count = 1 Then 'cek
> jumlah cacah cell yang berubah isi (count)
> If Target.Address = "$F$11" Then 'cek alamat si
> cell yang berubah isi (address) -> sampai sini, pasti cuma ada 1 cell yang
> berubah isi
> Set dTabel = Cells(1, 1).CurrentRegion 'alamatnya gak
> palsu, maka set area range data ke dtabel mulai dari a1 blok semua yang
> bersinggungan
> Set Tampil = Cells(13, 6).CurrentRegion 'set juga lokasi
> hasil mulai f13 blok semua yang bersinggungan (current region)
> Tampil.ClearContents 'hapus
> area range tampil (hasil filter) -> hasil yang lalu di hapus dulu
> For r = 2 To dTabel.Rows.Count 'kerjakan mulai
> index baris dtabel 2 sampai jumlah cacah record si dtabel satu per satu
> If dTabel(r, 1) = Target Then 'cek
> isinya kolom ke-1 di baris yang lagi aktif diproses (mulai 2 kan ya) apa
> sama dengan isi yang berubah
> 'kalau punya kriteria lain, susun disini juga
> n = n + 1
> 'sampe sini, semua kriteria mesti terpenuhi, maka didapat hasil filter
> baru, diinget-inget jumlah cacah hasil baru
> Tampil(n, 1) = dTabel(r, 1) 'di
> kolom ke-1 baris ke-n (jumlah cacah hasil filter) ditulis nilainya, yaitu
> nilai si data dtabel kolom ke-1
> Tampil(n, 2) = dTabel(r, 2) 'kolom
> ke-2 hasil isi dengan kolom ke-2 dtabel
> 'kalau mau tulis kolom baru, tambahkan disini
> 'misal :
> 'tampil(n,3)=dtabel(r,4) ' kolom ke-3 hasil isi
> dengan kolom ke-4 dtabel
> End
> If 'blok urusan
> kriteria filter selesai
> Next
> 'menuju index baris (r) berikutnya (kalau tadi 2, maka sekarang proses
> untuk r=3 dst)
> End If 'urusan
> di alamat yang gak palse dah selesai
> End If 'urusan tentang jumlah cell yang
> berubah isi juga selesai disini
>
>
> AKHIR: 'nama sebuah blok (sub blok) ->
> ini dituju langsung kalau si bengal error mak bedunduk muncul mau
> bercerewet ria
> Application.Calculation = xlCalculationAutomatic
> 'kembalikan setting kalkulasi excel ke automatic
> Application.EnableEvents = True 'ijinkan kembali si excel
> ngerjain ipen lainnya (kasihan, si excel udah mau nangis dari tadi gak
> boleh kerjain ipen lain)
> End Sub 'satu blok selesai disini, dan excel bebas
> berkeliaran kemana saja sekarang
>
>
> Wassalamualaikum Wr. Wb.
> Kid.
>
> On Thu, Apr 19, 2012 at 13:36, gilang romadhon <kampul1212@gmail.com>wrote:
>
>> **
>>
>>
>> asslamualaikum warohmatullohi wabarokatuh,...
>> langsung aja teman2,..
>>
>>
>> http://milis-belajar-excel.1048464.n5.nabble.com/template/NamlServlet.jtp?macro=search_page&node=4337517&query=filter+dengan+macro
>>
>> menyambung trit diatas, pada awalnya saya pingin memodifikasi kode macro
>> nya menjadi kolom yang lebih banyak ,...
>> Namun karena keterbatasan dengkul saya,. sampe sekarang tetep aja belum
>> bisa membongkar rumusan macro yang dibuat oleh mbak siti V...
>>
>> (2)
>> Private Sub Worksheet_Change(ByVal Target As Range)
>> Dim dTabel As Range, Tampil As Range
>> Dim r As Long, n As Long
>> ' siti Vi / 30 May 2011 / beExcel case
>> ' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN
>> '-----------------------------------------------
>> Application.Calculation = xlCalculationManual
>> Application.EnableEvents = False
>> On Error GoTo AKHIR
>> If Target.Count = 1 Then
>> If Target.Address = "$F$11" Then
>> Set dTabel = Cells(1, 1).CurrentRegion
>> Set Tampil = Cells(13, 6).CurrentRegion
>> Tampil.ClearContents
>> For r = 2 To dTabel.Rows.Count
>> If dTabel(r, 1) = Target Then
>> n = n + 1
>> Tampil(n, 1) = dTabel(r, 1)
>> Tampil(n, 2) = dTabel(r, 2)
>> End If
>> Next
>> End If
>> End If
>> AKHIR:
>> Application.Calculation = xlCalculationAutomatic
>> Application.EnableEvents = True
>> End Sub
>>
>> untuk itu mohon,. teman2 bisa menjelaskan perintah perbarisnya sekaligus
>> ngasih tw begemana rumus macro untuk 3 kolom (supaya tw bedanya)
>>
>> sekian terimakasih,mohon maaf apabila ada salah kata,.. wassalamualaikum
>> warahmatullohiwabarokatuh
>>
>>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
1b.: Re: filter degan macro

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Thu Apr 19, 2012 3:20 pm (PDT)

Alaikumussalam Wr. Wb. ...

Perlu adanya 3 perubahan
* perubahan karena adanya penggeseran range TARGET (kriteria filter)
* perubahan karena adanya penggeseran range HASIL (dimana hasil akan MULAI
ditulis)
* penambahan perintah menulis kolom ke tiga pada Range HASIL

Perubahan 1 dan 2 sebenarnya dapat ditiadakan kalau setting *Range Target, *
dan
*Range Hasil (Tampil)* dilakukan dengan softcode misalnya OFSETT dari Range
dTabel
dengan mengikutkan* faktor lebar dTabel *(dTabel.Columns.Count).
Misal:
Set Tampil = dTabel.Cells(13, 4 + *dTabel.Columns.Count*).CurrentRegion
Dengan cara itu SisiKiri Tabel hasil akan selalu berjarak 4 kolom dari
SisiKanan Tabel Sumber
walaupun tabel sumber ditambah (ataupun dikurangi) jumlah kolomnya
Demikian juga jika POSISI tabel HASIL ditempatkan di BAWAH Tabel Sumber.
dTabel.Rows.Count akan medinamiskan LETAK Tabel Hasil

(Sudah banyak contohnya di milis, khususnya pada makro-makro yg melibatkan
2 tabel (atau lebih)
Tabel Sumber & Tabel Hasil dalam 1 sheet )
Cara itu dimaksudkan agar tabel Sumber boleh berubah-ubah Dimensinya tanpa
harus
tertimpa oleh tabel Hasil yg dibuat belakangan di KANANNYA maupun DI
BAWAHNYA.

[image: Inline image 3]
Penulisan 3 kolom (cell-by-cell)
Tampil(n, 1) = dTabel(r, 1)
Tampil(n, 2) = dTabel(r, 2)
Tampil(n, 3) = dTabel(r, 3)

Jika ternyata kolom yg ingin ditampilkan bukan hanya 3 tetapi misalnya *13
kolom*
tentunya harus memperpanjang baris peritah spt di atas menjadi 13 baris
Pengulangan 13 perintah (untuk 13 kolom) spt itu kelihatan "kurang cerdas"
maka dapat dibuat LOOP lagi (nested loop; loop di dalam loop)

For r....
If .....
For iCol = 1 to 13
Tampil(n, iCol) = dTabel(r, iCol)
Next iCol
End if
Next r

Begitu... titipan pesan dari mbak siti...., sekalian menyampaikan terima
kasih
kepada Mas Kid atas uraian dan tafsiran yang 'oke'
kepada Pak Hendrik yg telah membuatkan modifikasinya
pesan itu ditutup dengan "Tararengku and luv you all"

~Rr

On Thu, Apr 19, 2012 at 1:36 PM, gilang romadhon <kampul1212@gmail.com>wrote:
>
> asslamualaikum warohmatullohi wabarokatuh,...
> langsung aja teman2,..
>
>
> http://milis-belajar-excel.1048464.n5.nabble.com/template/NamlServlet.jtp?macro=search_page&node=4337517&query=filter+dengan+macro
>
> menyambung trit diatas, pada awalnya saya pingin memodifikasi kode macro
> nya menjadi kolom yang lebih banyak ,...
> Namun karena keterbatasan dengkul saya,. sampe sekarang tetep aja belum
> bisa membongkar rumusan macro yang dibuat oleh mbak siti V...
>
> (2)
> Private Sub Worksheet_Change(ByVal Target As Range)
> Dim dTabel As Range, Tampil As Range
> Dim r As Long, n As Long
> ' siti Vi / 30 May 2011 / beExcel case
> ' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN
> '-----------------------------------------------
> Application.Calculation = xlCalculationManual
> Application.EnableEvents = False
> On Error GoTo AKHIR
> If Target.Count = 1 Then
> If Target.Address = "$F$11" Then
> Set dTabel = Cells(1, 1).CurrentRegion
> Set Tampil = Cells(13, 6).CurrentRegion
> Tampil.ClearContents
> For r = 2 To dTabel.Rows.Count
> If dTabel(r, 1) = Target Then
> n = n + 1
> Tampil(n, 1) = dTabel(r, 1)
> Tampil(n, 2) = dTabel(r, 2)
> End If
> Next
> End If
> End If
> AKHIR:
> Application.Calculation = xlCalculationAutomatic
> Application.EnableEvents = True
> End Sub
>
> untuk itu mohon,. teman2 bisa menjelaskan perintah perbarisnya sekaligus
> ngasih tw begemana rumus macro untuk 3 kolom (supaya tw bedanya)
> sekian terimakasih,mohon maaf apabila ada salah kata,.. wassalamualaikum
> warahmatullohiwabarokatuh
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

2a.: Fw: [belajar-excel] filter degan macro

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Apr 19, 2012 12:59 am (PDT)

Sedikit nambahin, ketika anda menambahkan satu kolom maka kunci si Mbak pindah dari sel $F$11 ke $G$11.

Jadi untuk menjalankan Macro pada sheet "Dengkol Panas" kuncinya harus dikembalikan ke tempat semula (sel $F$11) dan untuk menampilkan 3 kolom tambahkan code Tampil(n, 3) = dTabel(r, 3) pada Macro yang ada pada sheet 4(Dengkol Panas) sesuai penjelasan Mr.Kid.

Berikut hasil tangkapannya.

Salam,
Hendrik Karnadi

----- Forwarded Message -----
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 19 April 2012, 14:10
Subject: Re: [belajar-excel] filter degan macro

Waalaikumussalam Wr. Wb.

Pak Gilang yang baik,

Sambil menunggu penjelasan resmi dan detil dari yang nyusun script dapat jam istirahat ngesot,
kira-kira seperti ini :
Private Sub Worksheet_Change(ByVal Target As Range)    'ipen ketika ada isi cell (namanya target) yang berubah isinya
Dim dTabel As Range, Tampil As Range
'deklarasi variabel range, dtabel untuk data, tampil untuk area nulis hasil pilter
Dim r As Long, n As Long                              'deklarasi variabel r untuk index baris si dtabel, n untuk jumlah item hasil filter equal index baris hasil filter

' siti Vi / 30 May 2011 / beExcel case                  'yang nyusun script :)
' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN
'gambaran singkat tujuan script
'-----------------------------------------------
'sekedar batas biar rada enak dibaca
Application.Calculation = xlCalculationManual
' set setting kalkulasi excel jadi manual
Application.EnableEvents = False
' set supaya excel gak ngerjain ipen yang lain jika terjadi ipen
On Error GoTo AKHIR    ' jebakan maut untuk si error kalau si error muncul langsung ke blok yang namanya AKHIR
If Target.Count = 1 Then
'cek jumlah cacah cell yang berubah isi (count)
If Target.Address = "$F$11" Then 'cek alamat si cell yang berubah isi (address) -> sampai sini, pasti cuma ada 1 cell yang berubah isi
Set dTabel = Cells(1, 1).CurrentRegion 'alamatnya gak palsu, maka set area range data ke dtabel mulai dari a1 blok semua yang bersinggungan
Set Tampil = Cells(13, 6).CurrentRegion
'set juga lokasi hasil mulai f13 blok semua yang bersinggungan (current region)
Tampil.ClearContents 'hapus area range tampil (hasil filter) -> hasil yang lalu di hapus dulu
For r = 2 To dTabel.Rows.Count    'kerjakan mulai index baris dtabel 2 sampai jumlah cacah record si dtabel satu per satu
If dTabel(r, 1) = Target Then    'cek isinya kolom ke-1 di baris yang lagi aktif diproses (mulai 2 kan ya) apa sama dengan isi yang berubah
            'kalau punya kriteria lain, susun disini juga
n = n + 1    'sampe sini, semua kriteria mesti terpenuhi, maka didapat hasil filter baru, diinget-inget jumlah cacah hasil baru
Tampil(n, 1) = dTabel(r, 1) 'di kolom ke-1 baris ke-n (jumlah cacah hasil filter) ditulis nilainya, yaitu nilai si data dtabel kolom ke-1
Tampil(n, 2) = dTabel(r, 2)    'kolom ke-2 hasil isi dengan kolom ke-2 dtabel
               'kalau mau tulis kolom baru, tambahkan disini
   'misal :
   'tampil(n,3)=dtabel(r,4) ' kolom ke-3 hasil isi dengan kolom ke-4 dtabel
End If
'blok urusan kriteria filter selesai
Next    'menuju index baris (r) berikutnya (kalau tadi 2, maka sekarang proses untuk r=3 dst)
End If    'urusan di alamat yang gak palse dah selesai
End If    'urusan tentang jumlah cell yang berubah isi juga selesai disini

AKHIR: 'nama sebuah blok (sub blok) -> ini dituju langsung kalau si bengal error mak bedunduk muncul mau bercerewet ria
Application.Calculation = xlCalculationAutomatic 'kembalikan setting kalkulasi excel ke automatic
Application.EnableEvents = True    'ijinkan kembali si excel ngerjain ipen lainnya (kasihan, si excel udah mau nangis dari tadi gak boleh kerjain ipen lain)
End Sub 'satu blok selesai disini, dan excel bebas berkeliaran kemana saja sekarang

Wassalamualaikum Wr. Wb.
Kid.

On Thu, Apr 19, 2012 at 13:36, gilang romadhon <kampul1212@gmail.com> wrote:

>
>asslamualaikum warohmatullohi wabarokatuh,...
>langsung aja teman2,..
>
>http://milis-belajar-excel.1048464.n5.nabble.com/template/NamlServlet.jtp?macro=search_page&node=4337517&query=filter+dengan+macro
>
>menyambung trit diatas, pada awalnya saya pingin memodifikasi kode macro nya menjadi kolom yang lebih banyak ,...
>Namun karena keterbatasan dengkul saya,. sampe sekarang tetep aja belum bisa membongkar rumusan macro yang dibuat oleh mbak siti V...
>
>(2)
>Private Sub Worksheet_Change(ByVal Target As Range)
> Dim dTabel As Range, Tampil As Range
> Dim r As Long, n As Long
> ' siti Vi / 30 May 2011 / beExcel case
> ' FILTER DGN MENGOPY data YG LOLOS ke RANGE LAIN
> '-----------------------------------------------
> Application.Calculation = xlCalculationManual
> Application.EnableEvents = False
> On Error GoTo AKHIR
> If Target.Count = 1 Then
> If Target.Address = "$F$11" Then
> Set dTabel = Cells(1, 1).CurrentRegion
> Set Tampil = Cells(13, 6).CurrentRegion
> Tampil.ClearContents
> For r = 2 To dTabel.Rows.Count
> If dTabel(r, 1) = Target Then
> n = n + 1
> Tampil(n, 1) = dTabel(r, 1)
> Tampil(n, 2) = dTabel(r, 2)
> End If
> Next
> End If
> End If
>AKHIR:
> Application.Calculation = xlCalculationAutomatic
> Application.EnableEvents = True
>End Sub
>
>untuk itu mohon,. teman2 bisa menjelaskan perintah perbarisnya sekaligus ngasih tw begemana rumus macro untuk 3 kolom (supaya tw bedanya)
>
>sekian terimakasih,mohon maaf apabila ada salah kata,.. wassalamualaikum warahmatullohiwabarokatuh
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

3a.: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi ver

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 19, 2012 1:52 am (PDT)

Dear all,
Tolong dibantu dong, saya ingin merubah absensi menjadi sesuai dgn jam kerja dr model horizontal menjadi vertikal. Data yg ingin dirubah ada 700 baris, saya mengalami kesulitan dan hanya memiliki sedikit waktu.
Adakah yang bersedia membantu, dgn menggunakan rumus excel ataupun macro
Thanks before, sangat diharapkan bantuannya :)
Salam
Tini
Powered by Telkomsel BlackBerry�

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3b.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Apr 19, 2012 9:29 am (PDT)

Dear Hartini,
File terlampir menggunakan VBA (Macro) buatan Mbak Hapsari dengan beberapa modifikasi.

Cara kerjanya :
- Buat tabel pada Sheet1(warna kuning), untuk yang ada jamnya diisi jamnya dan untuk yang tidak ada jamnya (OFF, CT, S, A) diisi dengan karakter kosong (space bar)
- Buat Data Validation pada sel A1 Sheet1 (dalam contoh ada delapan record)

- Buat Macro pada Sheet1 (bukan pada Module) dengan memanfaatkan event WorkSheet_Change.

Catatan:
P10 dan P20 saya hilangkan karena saya menafsirkannya sebagai Jam masuk dan pulang

Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 19 April 2012, 15:50
Subject: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear all,
Tolong dibantu dong, saya ingin merubah absensi menjadi sesuai dgn jam kerja dr model horizontal menjadi vertikal. Data yg ingin dirubah ada 700 baris, saya mengalami kesulitan dan hanya memiliki sedikit waktu.
Adakah yang bersedia membantu, dgn menggunakan rumus excel ataupun macro
Thanks before, sangat diharapkan bantuannya :)
Salam
Tini
Powered by Telkomsel BlackBerry®

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3c.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 19, 2012 4:13 pm (PDT)

Dear pak hendrik,
Terima kasih pak atas bantuannya, benar untuk P10 dan P20 adalah kode untuk masuk dan keluar, tetapi posisi yg diinginkan tetap seperti itu untuk yang ditunjuk dgn anak panah ya pak, karena nanti data itu yg harus di copy ke sistem, jika menggunakan data yg bapak berikan saya tetap harus memisahkannya kembali menjadi vertikal semua dan menambahkan P10 dan P20, sistem hanya membaca yg ada P itu pak.
Begitu kira2 penjelasannya pak.
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 19 Apr 2012 09:29:39
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear Hartini,
File terlampir menggunakan VBA (Macro) buatan Mbak Hapsari dengan beberapa modifikasi.

Cara kerjanya :
- Buat tabel pada Sheet1(warna kuning), untuk yang ada jamnya diisi jamnya dan untuk yang tidak ada jamnya (OFF, CT, S, A) diisi dengan karakter kosong (space bar)
- Buat Data Validation pada sel A1 Sheet1 (dalam contoh ada delapan record)

- Buat Macro pada Sheet1 (bukan pada Module) dengan memanfaatkan event WorkSheet_Change.

Catatan:
P10 dan P20 saya hilangkan karena saya menafsirkannya sebagai Jam masuk dan pulang

Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 19 April 2012, 15:50
Subject: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear all,
Tolong dibantu dong, saya ingin merubah absensi menjadi sesuai dgn jam kerja dr model horizontal menjadi vertikal. Data yg ingin dirubah ada 700 baris, saya mengalami kesulitan dan hanya memiliki sedikit waktu.
Adakah yang bersedia membantu, dgn menggunakan rumus excel ataupun macro
Thanks before, sangat diharapkan bantuannya :)
Salam
Tini
Powered by Telkomsel BlackBerry®

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3d.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Apr 19, 2012 11:39 pm (PDT)

Dear Hartini,

Terlampir adalah file revisinya.
Mudah2an sesuai keinginan anda.

Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Friday, 20 April 2012, 6:13
Subject: Re: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear pak hendrik,
Terima kasih pak atas bantuannya, benar untuk P10 dan P20 adalah kode untuk masuk dan keluar, tetapi posisi yg diinginkan tetap seperti itu untuk yang ditunjuk dgn anak panah ya pak, karena nanti data itu yg harus di copy ke sistem, jika menggunakan data yg bapak berikan saya tetap harus memisahkannya kembali menjadi vertikal semua dan menambahkan P10 dan P20, sistem hanya membaca yg ada P itu pak.
Begitu kira2 penjelasannya pak.
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________

From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 19 Apr 2012 09:29:39 -0700 (PDT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear Hartini,
File terlampir menggunakan VBA (Macro) buatan Mbak Hapsari dengan beberapa modifikasi.

Cara kerjanya :
- Buat tabel pada Sheet1(warna kuning), untuk yang ada jamnya diisi jamnya dan untuk yang tidak ada jamnya (OFF, CT, S, A) diisi dengan karakter kosong (space bar)
- Buat Data Validation pada sel A1 Sheet1 (dalam contoh ada delapan record)

- Buat Macro pada Sheet1 (bukan pada Module) dengan memanfaatkan event WorkSheet_Change.

Catatan:
P10 dan P20 saya hilangkan karena saya menafsirkannya sebagai Jam masuk dan pulang

Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 19 April 2012, 15:50
Subject: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear all,
Tolong dibantu dong, saya ingin merubah absensi menjadi sesuai dgn jam kerja dr model horizontal menjadi vertikal. Data yg ingin dirubah ada 700 baris, saya mengalami kesulitan dan hanya memiliki sedikit waktu.
Adakah yang bersedia membantu, dgn menggunakan rumus excel ataupun macro
Thanks before, sangat diharapkan bantuannya :)
Salam
Tini
Powered by Telkomsel BlackBerry®

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)
3e.: Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 19, 2012 11:53 pm (PDT)

Bener pak, makasih banyak ya, wuih 700kary jd dlm 1 klikan, thanks banget pak hendrik
Salam
Tiny
Powered by Telkomsel BlackBerry®

-----Original Message-----
From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 19 Apr 2012 23:39:20
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
Reply-To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear Hartini,

Terlampir adalah file revisinya.
Mudah2an sesuai keinginan anda.

Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Friday, 20 April 2012, 6:13
Subject: Re: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear pak hendrik,
Terima kasih pak atas bantuannya, benar untuk P10 dan P20 adalah kode untuk masuk dan keluar, tetapi posisi yg diinginkan tetap seperti itu untuk yang ditunjuk dgn anak panah ya pak, karena nanti data itu yg harus di copy ke sistem, jika menggunakan data yg bapak berikan saya tetap harus memisahkannya kembali menjadi vertikal semua dan menambahkan P10 dan P20, sistem hanya membaca yg ada P itu pak.
Begitu kira2 penjelasannya pak.
Terima kasih
Salam
Tiny
Powered by Telkomsel BlackBerry®
________________________________

From: hendrik karnadi <hendrikkarnadi@yahoo.com>
Sender: belajar-excel@yahoogroups.com
Date: Thu, 19 Apr 2012 09:29:39 -0700 (PDT)
To: belajar-excel@yahoogroups.com<belajar-excel@yahoogroups.com>
ReplyTo: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear Hartini,
File terlampir menggunakan VBA (Macro) buatan Mbak Hapsari dengan beberapa modifikasi.

Cara kerjanya :
- Buat tabel pada Sheet1(warna kuning), untuk yang ada jamnya diisi jamnya dan untuk yang tidak ada jamnya (OFF, CT, S, A) diisi dengan karakter kosong (space bar)
- Buat Data Validation pada sel A1 Sheet1 (dalam contoh ada delapan record)

- Buat Macro pada Sheet1 (bukan pada Module) dengan memanfaatkan event WorkSheet_Change.

Catatan:
P10 dan P20 saya hilangkan karena saya menafsirkannya sebagai Jam masuk dan pulang

Salam,
Hendrik Karnadi

________________________________
From: "hartini_80@yahoo.co.id" <hartini_80@yahoo.co.id>
To: belajar-excel@yahoogroups.com
Sent: Thursday, 19 April 2012, 15:50
Subject: [belajar-excel] Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi vertikal

Dear all,
Tolong dibantu dong, saya ingin merubah absensi menjadi sesuai dgn jam kerja dr model horizontal menjadi vertikal. Data yg ingin dirubah ada 700 baris, saya mengalami kesulitan dan hanya memiliki sedikit waktu.
Adakah yang bersedia membantu, dgn menggunakan rumus excel ataupun macro
Thanks before, sangat diharapkan bantuannya :)
Salam
Tini
Powered by Telkomsel BlackBerry®

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (5)

4.: Insert Foto di Excel dari Folder pake Macro

Posted by: "Jufri Devis" kuok_bevel@yahoo.com kuok_bevel

Thu Apr 19, 2012 10:45 pm (PDT)

Dear All,
Mohon bantuannya membuatkan Macro Insert foto langsung dari folder "FotoAnak" (file terlampir).
Maklum blom ngerti cara penulisan macro. (sdh saya coba otak atik macro Mbak Siti tetapi gak bisa jalan)

Atas Bantuannya saya ucapkan terimakasih.
Wasalam
Jufri

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (1)

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
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
---------------------------------------------------------------------

Change settings via the Web (Yahoo! ID required)
Change settings via email: Switch delivery to Individual | Switch format to Traditional
Visit Your Group | Yahoo! Groups Terms of Use | Unsubscribe

EXCEL FEED

Jumat, 20 April 2012

[belajar-excel] Digest Number 1589

Messages In This Digest (9 Messages)

Messages

Re: filter degan macro

Posted by: "gilang romadhon" kampul1212@gmail.com

Thu Apr 19, 2012 12:44 am (PDT)

Re: filter degan macro

Posted by: "Rara Wilis" ra2wilis@gmail.com rr_wilis

Thu Apr 19, 2012 3:20 pm (PDT)

Fw: [belajar-excel] filter degan macro

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Apr 19, 2012 12:59 am (PDT)

Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi ver

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 19, 2012 1:52 am (PDT)

Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Apr 19, 2012 9:29 am (PDT)

Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 19, 2012 4:13 pm (PDT)

Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hendrik karnadi" hendrikkarnadi@yahoo.com hendrikkarnadi

Thu Apr 19, 2012 11:39 pm (PDT)

Re: Merubah posisi absen berdasarkan jam kerja dr horizontal menjadi

Posted by: "hartini_80@yahoo.co.id" hartini_80@yahoo.co.id hartini_80

Thu Apr 19, 2012 11:53 pm (PDT)

Insert Foto di Excel dari Folder pake Macro

Posted by: "Jufri Devis" kuok_bevel@yahoo.com kuok_bevel

Thu Apr 19, 2012 10:45 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me