Messages In This Digest (8 Messages)

1a.: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai perio From: rian Bass
1b.: Re: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai p From: Kid Mr.
1c.: Re: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai p From: rian Bass

2a.: Re: Cara ambil data dari File lain From: rodhy hakim
2b.: Re: Cara ambil data dari File lain From: Kid Mr.
2c.: Re: Cara ambil data dari File lain From: rodhy hakim

3.: Script VBA Save As to PDF From: lapendosol opik

4a.: Re: menge-print di printer yang berbeda From: Purnomo Sidi

View All Topics | Create New Topic

Messages

1a.: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai perio

Posted by: "rian Bass" bass_rian@yahoo.com bass_rian

Thu Jun 14, 2012 7:01 pm (PDT)

Kepada para master excel,
bagaimana membuat agar schedule
pembayaran angsuran pinjaman karyawan secara otomatis, sesuai dengan
periode akuntansi, saya agak bingung kata-katanya maaf ya. saya sertakan file terlampirnya. makasih atas bantuannya

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
1b.: Re: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai p

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Thu Jun 14, 2012 8:08 pm (PDT)

Silakan dicoba :

header tanggal :
kolom ke-1 ( i4 ) :
=F1-DAY(F1)+1

kolom ke-2 dst (mulai j4 ke kanan) :
=I4+34-DAY(I4+33)

schedule angsuran ( i5 ) :
=IF(N($E5),(COUNTIF($H5:H5,">0")<INDEX(ANGG!$G$2:$G$8,$F5))*(I$4>$E5-DAY($E5))*(I$4-1+DAY($E5)),0)
kemudian :
>> klik kanan i5 -> format cells -> number -> custom -> isi di textbox :
d;;

>> copy ke cell lain di kanan dan bawahnya
>> buat conditional formatting berdasar *nilai cell lebih dari 0*

Wassalam,
Kid.

2012/6/15 rian Bass <bass_rian@yahoo.com>

> **
>
>
> Kepada para master excel,
> bagaimana membuat agar schedule pembayaran angsuran pinjaman karyawan
> secara otomatis, sesuai dengan periode akuntansi, saya agak bingung
> kata-katanya maaf ya. saya sertakan file terlampirnya. makasih atas
> bantuannya
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (3)
1c.: Re: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai p

Posted by: "rian Bass" bass_rian@yahoo.com bass_rian

Thu Jun 14, 2012 11:06 pm (PDT)

thanks pa akan saya lakukan

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 15, 2012 10:08 AM
Subject: Re: [belajar-excel] Mohon pencerahannya "membuat schedule angsuran otomatis sesuai periode akuntansi"

Silakan dicoba :

header tanggal :
kolom ke-1 ( i4 ) :
=F1-DAY(F1)+1

kolom ke-2 dst (mulai j4 ke kanan) :
=I4+34-DAY(I4+33)

schedule angsuran ( i5 ) :
=IF(N($E5),(COUNTIF($H5:H5,">0")<INDEX(ANGG!$G$2:$G$8,$F5))*(I$4>$E5-DAY($E5))*(I$4-1+DAY($E5)),0)
kemudian :
>> klik kanan i5 -> format cells -> number -> custom -> isi di textbox :
d;;

>> copy ke cell lain di kanan dan bawahnya
>> buat conditional formatting berdasar nilai cell lebih dari 0

Wassalam,
Kid.

2012/6/15 rian Bass <bass_rian@yahoo.com>

>
>Kepada para master excel,
>bagaimana membuat agar schedule
pembayaran angsuran pinjaman karyawan secara otomatis, sesuai dengan
periode akuntansi, saya agak bingung kata-katanya maaf ya. saya sertakan file terlampirnya. makasih atas bantuannya
>

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

2a.: Re: Cara ambil data dari File lain

Posted by: "rodhy hakim" odhyz83_assasaky@yahoo.com odhyz83_assasaky

Thu Jun 14, 2012 7:01 pm (PDT)

Dear Master,

File yang dilampirkan tidak bisa saya buka karena di proteksi,
maaf maksud saya untuk kategori ke- 2 apabila lebih dari 12  bulan atau 1 th. makan notifikasinya material sudah expired.
________________________________
Notifikasi berdasarkan Kategori,
Apabila:
1. Kategorinya : DST, EVENT, GAMES, POC,PPOSM maka notifikasinya/ Keterangannya > 4 bln makan notifikasinya Material sudah Exiperd, apabila < 4 bln makan Notifikasinya; Material Normal.

2. Kategorinya : CIGARETE, MERHANDISE, REWARD, TEMPORARY BRANDING, TPOSM maka notifikasinya/ Keterangannya > 12bln makan notifikasinya Material sudah Exiperd, apabila < 12 bln makan Notifikasinya; Material Normal.

From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 14, 2012 6:41 PM
Subject: Re: [belajar-excel] Cara ambil data dari File lain

Coba file terlampir.
Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula penyusun keterangan.

Wassalam,
Kid.

2012/6/14 rodhy hakim <odhyz83_assasaky@yahoo.com>

>Dear Master,
>
>Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg dijelaskan sebelumnya sudah fix.
>sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa kategori itu bagaimana caranya?
>note: file terlampir
>
>
>From: Kid Mr. <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Tuesday, June 12, 2012 12:59 PM
>
>Subject: Re: [belajar-excel] Cara ambil data dari File lain
>
>
>
>Tambahkan script berikut sebelum End Sub
>
>    Dim lRec As Long
>    Dim rng As Range
>
>    lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
>    If lRec < 1 Then
>        Exit Sub
>    End If
>
>    Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range data baru
>    With rng
>        .Formula = "=row()-3"                               'formula nomor urut
>        .Offset(0, 3).Value = Date                          'tanggal sekarang
>        .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&"" bulan""&datedif(b4,d4,""md"")&"" hari."""
>        .Offset(0, 6).Formula = "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>
>        'divalueskan
>        Sheets(1).Calculate
>        .Value = .Value
>        .Offset(0, 5).Value = .Offset(0, 5).Value
>        .Offset(0, 6).Value = .Offset(0, 6).Value
>
>        'atur format number
>        .Offset(0, 6).NumberFormat = "[red]""Material sudah Expired"";;""Material normal"""
>        With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
>            .Font.Bold = True
>        End With
>    End With
>
>Kid.
>
>
>2012/6/12 rodhy hakim <odhyz83_assasaky@yahoo.com>
>
>
>>Dear Master,
>>
>>Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
>>Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
>>kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
>>Mohon Pencerahannya Para Master.
>>
>>Regards,
>>Odhy_
>>
>>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
2b.: Re: Cara ambil data dari File lain

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Thu Jun 14, 2012 7:30 pm (PDT)

Silakan dicoba.

Kid.

2012/6/15 rodhy hakim <odhyz83_assasaky@yahoo.com>

> **
>
>
> Dear Master,
>
> File yang dilampirkan tidak bisa saya buka karena di proteksi,
> maaf maksud saya untuk kategori ke- 2 apabila lebih dari 12 bulan atau 1
> th. makan notifikasinya material sudah expired.
> ________________________________
> Notifikasi berdasarkan Kategori,
> Apabila:
> 1. Kategorinya : DST, EVENT, GAMES, POC,PPOSM maka notifikasinya/
> Keterangannya *> 4 bln* makan notifikasinya Material sudah Exiperd,
> apabila *< 4 bln* makan Notifikasinya; Material Normal.
>
> 2. Kategorinya : CIGARETE, MERHANDISE, REWARD, TEMPORARY BRANDING, TPOSM
> maka notifikasinya/ Keterangannya *> 12 bln* makan notifikasinya Material
> sudah Exiperd, apabila *< 12 bln* makan Notifikasinya; Material Normal.
>
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Thursday, June 14, 2012 6:41 PM
>
> *Subject:* Re: [belajar-excel] Cara ambil data dari File lain
>
>
> Coba file terlampir.
> Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula
> penyusun keterangan.
>
> Wassalam,
> Kid.
>
>
> 2012/6/14 rodhy hakim <odhyz83_assasaky@yahoo.com>
>
> **
>
> Dear Master,
>
> Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg
> dijelaskan sebelumnya sudah fix.
> sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa
> kategori itu bagaimana caranya?
> *note: file terlampir*
>
> *From:* Kid Mr. <mr.nmkid@gmail.com>
> *To:* belajar-excel@yahoogroups.com
> *Sent:* Tuesday, June 12, 2012 12:59 PM
>
> *Subject:* Re: [belajar-excel] Cara ambil data dari File lain
>
>
> Tambahkan script berikut sebelum End Sub
>
> Dim lRec As Long
> Dim rng As Range
>
> lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
> If lRec < 1 Then
> Exit Sub
> End If
>
> Set rng = Sheets(1).Range("a4").Resize(lRec, 1) 'init range
> data baru
> With rng
> .Formula = "=row()-3" 'formula nomor
> urut
> .Offset(0, 3).Value = Date 'tanggal
> sekarang
> .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&""
> bulan""&datedif(b4,d4,""md"")&"" hari."""
> .Offset(0, 6).Formula =
> "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>
> 'divalueskan
> Sheets(1).Calculate
> .Value = .Value
> .Offset(0, 5).Value = .Offset(0, 5).Value
> .Offset(0, 6).Value = .Offset(0, 6).Value
>
> 'atur format number
> .Offset(0, 6).NumberFormat = "[red]""Material sudah
> Expired"";;""Material normal"""
> With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
> .Font.Bold = True
> End With
> End With
>
> Kid.
>
> 2012/6/12 rodhy hakim <odhyz83_assasaky@yahoo.com>
>
> **
>
> Dear Master,
>
> Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
> Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang
> sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
> kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
> Mohon Pencerahannya Para Master.
>
> Regards,
> Odhy_
> **
>
>
>
>
>
>
>
>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (9)
2c.: Re: Cara ambil data dari File lain

Posted by: "rodhy hakim" odhyz83_assasaky@yahoo.com odhyz83_assasaky

Thu Jun 14, 2012 7:51 pm (PDT)

Dear Mr. Kid,

Terima Kasih yg sebesar-besarnya saya ucapkan, semoga intelektualitas generasi Indonesia semakin Maju.

Best Regards,
Odhy.

From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Friday, June 15, 2012 9:22 AM
Subject: Re: [belajar-excel] Cara ambil data dari File lain

Silakan dicoba.

Kid.

2012/6/15 rodhy hakim <odhyz83_assasaky@yahoo.com>

>Dear Master,
>
>File yang dilampirkan tidak bisa saya buka karena di proteksi,
>maaf maksud saya untuk kategori ke- 2 apabila lebih dari 12  bulan atau 1 th. makan notifikasinya material sudah expired.
>________________________________
>Notifikasi berdasarkan Kategori,
>Apabila:
>1. Kategorinya : DST, EVENT, GAMES, POC,PPOSM maka notifikasinya/ Keterangannya > 4 bln makan notifikasinya Material sudah Exiperd, apabila < 4 bln makan Notifikasinya; Material Normal.
>
>2. Kategorinya : CIGARETE, MERHANDISE, REWARD, TEMPORARY BRANDING, TPOSM maka notifikasinya/ Keterangannya > 12bln makan notifikasinya Material sudah Exiperd, apabila < 12 bln makan Notifikasinya; Material Normal.
>
>
>
>From: Kid Mr. <mr.nmkid@gmail.com>
>To: belajar-excel@yahoogroups.com
>Sent: Thursday, June 14, 2012 6:41 PM
>
>Subject: Re: [belajar-excel] Cara ambil data dari File lain
>
>
>
>
>Coba file terlampir.
>Yang diubah adalah formulanya, beserta seluruh yang dibutuhkan formula penyusun keterangan.
>
>Wassalam,
>Kid.
>
>
>
>2012/6/14 rodhy hakim <odhyz83_assasaky@yahoo.com>
>
>
>>Dear Master,
>>
>>Sebelumnya saya ucapkan banyak Terima kasih atas penjelasannya, dan yg dijelaskan sebelumnya sudah fix.
>>sedangnkan kalau mw memberikan notifikasi/keterangan berdasarkan beberapa kategori itu bagaimana caranya?
>>note: file terlampir
>>
>>
>>From: Kid Mr. <mr.nmkid@gmail.com>
>>To: belajar-excel@yahoogroups.com
>>Sent: Tuesday, June 12, 2012 12:59 PM
>>
>>Subject: Re: [belajar-excel] Cara ambil data dari File lain
>>
>>
>>
>>Tambahkan script berikut sebelum End Sub
>>
>>    Dim lRec As Long
>>    Dim rng As Range
>>
>>    lRec = Sheets(2).Range("a1").CurrentRegion.Rows.Count - 1
>>    If lRec < 1 Then
>>        Exit Sub
>>    End If
>>
>>    Set rng = Sheets(1).Range("a4").Resize(lRec, 1)         'init range data baru
>>    With rng
>>        .Formula = "=row()-3"                               'formula nomor urut
>>        .Offset(0, 3).Value = Date                          'tanggal sekarang
>>        .Offset(0, 5).Formula = "=datedif(b4,d4,""m"")&"" bulan""&datedif(b4,d4,""md"")&"" hari."""
>>        .Offset(0, 6).Formula = "=(datedif(b4,d4,""m"")+datedif(b4,d4,""md"")/100>4)*1"
>>
>>        'divalueskan
>>        Sheets(1).Calculate
>>        .Value = .Value
>>        .Offset(0, 5).Value = .Offset(0, 5).Value
>>        .Offset(0, 6).Value = .Offset(0, 6).Value
>>
>>        'atur format number
>>        .Offset(0, 6).NumberFormat = "[red]""Material sudah Expired"";;""Material normal"""
>>        With .Offset(0, 6).FormatConditions.Add(xlCellValue, xlEqual, 1)
>>            .Font.Bold = True
>>        End With
>>    End With
>>
>>Kid.
>>
>>
>>2012/6/12 rodhy hakim <odhyz83_assasaky@yahoo.com>
>>
>>
>>>Dear Master,
>>>
>>>Sebelumnya saya ucapkan banyak terima kasih atas penjelasannya.
>>>Setelah saya mencoba masukkan listing ke dalam vba dan jalan, namun yang sebelumnya pd kolom : Tgl. sekarang, Kolom lama simpan
>>>kolom Keterangan Muncul otomatis, tapi sekarang tidk bisa muncul otomatis.
>>>Mohon Pencerahannya Para Master.
>>>
>>>Regards,
>>>Odhy_
>>>
>>>
>>
>>
>>
>
>
>

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

3.: Script VBA Save As to PDF

Posted by: "lapendosol opik" lapendosol@yahoo.com lapendosol

Thu Jun 14, 2012 11:05 pm (PDT)

Master2 excel, saya baru belajar tentang VBA, mau tanya kalo mau buat tombol save otomatis gimana scriptnya ya.
Mohon bantuannya para master suhu.
Begini kondisinya. Tombol ini ada di Sheet1, sementara file (halaman) yang mau di Save ada di Sheet2. Nantinya file pdf diberi nama dengan nama yg di cell A5

Private Sub cmdTombolSave_Click()
'Pencet tombol ini fungsinya men-Save As to PDF or XPS file yang ada di Sheet2 dengan nama dari cell ("A5".pdf) di Sheet1

End Sub

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

4a.: Re: menge-print di printer yang berbeda

Posted by: "Purnomo Sidi" pysa_2605@yahoo.com pysa_2605

Thu Jun 14, 2012 11:42 pm (PDT)

terima kasih atas tanggapan dari Mr Kid

masih ada yang ingin saya tanyakan seperti ini ceritanya (terima kasih mau menbaca cerita ini)

saya mendapatkan kode dengan menggunakan Record Macro kemudian saya masukkan kedalam kode Command Button hasilnya kurang lebih seperti ini :

Private Sub CommandButton1_Click()

Application.ActivePrinter = "\\NARDI\Epson LQ-2180 ESC/P 2 on Ne07:"
ExecuteExcel4Macro _
"PRINT(2,1,1,1,,,,,,,,2,""\\NARDI\Epson LQ-2180 ESC/P 2 on Ne07 & :"",,TRUE,,FALSE)"

End Sub

yang jadi masalah saat saya membuka file tersebut di lain waktu ternyata kode tersebut tidak bekerja dan muncul pesan seperti ini :

Run-time error '1004':

Method 'ActivePrinter' of object'_Application' failed

kemudian saya pilih End aja

selanjutnya saya menggunakan Record Macro lagi untuk mendapatkan kode baru dan ternyata ada perbedaan dengan kode yang sudah saya tulis dan perbedan tersebut terletak pada portnya.

Private Sub CommandButton1_Click()

Application.ActivePrinter = "\\NARDI\Epson LQ-2180 ESC/P 2 on Ne04:"
ExecuteExcel4Macro _
"PRINT(2,1,1,1,,,,,,,,2,""\\NARDI\Epson LQ-2180 ESC/P 2 on Ne04 & :"",,TRUE,,FALSE)"

End Sub
sekian

terima kasih
PYSA2605

________________________________
From: Kid Mr. <mr.nmkid@gmail.com>
To: belajar-excel@yahoogroups.com
Sent: Thursday, June 14, 2012 6:46 PM
Subject: Re: [belajar-excel] menge-print di printer yang berbeda

Untuk set printer mana yang akan digunakan, gunakan properti activeprinter milik application.
Contoh :
application.activeprinter="\\alamat_komputer\nama printer on portnya"

setelah itu baru lakukan print out dengan :
sheet1.printout 'misalnya akan print sheet1 pada printer di komputer bernama alamat_komputer dengan nama printer adalah nama printer yang terhubung melalui port bernama portnya

Wassalam,
Kid.

2012/6/14 Purnomo Sidi <pysa_2605@yahoo.com>

>
>
>salam persahabat, beExcel mohon bantuannya nih
>
>
>saya mempunyai dua printer yang berbeda jenis yang pertama berjenis tinta laser dan yang kedua priter DOT Matrix yang ingin saya tanyakan adalah :
>bagaimana kodenya jika saya ingin menge-Print di printer yang berbeda. Anggap saja command button "Print lampiran" untuk ngeprint sheet "lampiran" di printer 1 dan command button "Print permohonan" untuk menge-print Sheet "permohonan" di printer 2 untuk lebih jelasnya bisa dilihat di lampiran
>terima kasih atas bantuannya
>PYSA2605
>

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

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, 15 Juni 2012

[belajar-excel] Digest Number 1650

Messages In This Digest (8 Messages)

Messages

Mohon pencerahannya "membuat schedule angsuran otomatis sesuai perio

Posted by: "rian Bass" bass_rian@yahoo.com bass_rian

Thu Jun 14, 2012 7:01 pm (PDT)

Re: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai p

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Thu Jun 14, 2012 8:08 pm (PDT)

Re: Mohon pencerahannya "membuat schedule angsuran otomatis sesuai p

Posted by: "rian Bass" bass_rian@yahoo.com bass_rian

Thu Jun 14, 2012 11:06 pm (PDT)

Re: Cara ambil data dari File lain

Posted by: "rodhy hakim" odhyz83_assasaky@yahoo.com odhyz83_assasaky

Thu Jun 14, 2012 7:01 pm (PDT)

Re: Cara ambil data dari File lain

Posted by: "Kid Mr." mr.nmkid@gmail.com nmkid.family@ymail.com

Thu Jun 14, 2012 7:30 pm (PDT)

Re: Cara ambil data dari File lain

Posted by: "rodhy hakim" odhyz83_assasaky@yahoo.com odhyz83_assasaky

Thu Jun 14, 2012 7:51 pm (PDT)

Script VBA Save As to PDF

Posted by: "lapendosol opik" lapendosol@yahoo.com lapendosol

Thu Jun 14, 2012 11:05 pm (PDT)

Re: menge-print di printer yang berbeda

Posted by: "Purnomo Sidi" pysa_2605@yahoo.com pysa_2605

Thu Jun 14, 2012 11:42 pm (PDT)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me