Senin, 22 Juni 2015

[belajar-excel] Digest Number 3484

11 Messages

Digest #3484
2a
Re: Kode VBA by "Toby kenzo" tobykenzo
2b
Re: Kode VBA by danny_06791
3c
Re: SaveAs file pdf by "Toby kenzo" tobykenzo
4a
Re: Mencari baris by "Mr. Kid" nmkid.family@ymail.com
5a
Re: analis secara otomatis by "Mr. Kid" nmkid.family@ymail.com

Messages

Sun Jun 21, 2015 11:20 pm (PDT) . Posted by:

"Andreas And"

Dear Para Master,

Mohon bantuannya dibuatkan rumus di excel untuk mencari sisa utang
pinjaman periode tertentu dengan bunga anuitas, sebenarnya saya sdh
menemukan rumusnya (belum dicoba kebenaran hasilnya) namun kesulitan
penerapannya di excel (ada ∑).
Lebih jelasnya pada attachment.
Mohon bantuannya. Terima kasih.

Salam,
Andreas

Mon Jun 22, 2015 1:51 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Sambil nunggu yang biasa hitung bunga-bunga an ya..
coba pakai fungsi FV (future value)
=FV( rate_per_bulan , jumlah_bulan_dicari , jumlah_total_bulan_pelunasan ,
-pinjaman )
Pinjaman = 100juta
Dilunasi dalam 120 bulan
rate per tahun adalah 12% berarti rate per bulan = 1%
ingin tahu sisa utang bulan ke 10
=FV( 1% , 10 , 120 , - 100juta )

gitu kali ya

Wassalam,
Kid

2015-06-22 15:31 GMT+10:00 Andreas And andreas.and.q4@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
>
> Dear Para Master,
>
> Mohon bantuannya dibuatkan rumus di excel untuk mencari sisa utang
> pinjaman periode tertentu dengan bunga anuitas, sebenarnya saya sdh
> menemukan rumusnya (belum dicoba kebenaran hasilnya) namun kesulitan
> penerapannya di excel (ada ∑).
> Lebih jelasnya pada attachment.
> Mohon bantuannya. Terima kasih.
>
> Salam,
> Andreas
>
>
>

Mon Jun 22, 2015 2:33 am (PDT) . Posted by:

"Andreas And"

Thanks Mr. Kid atas bantuannya
Namun hasil pake formula FV tidak sesuai dengan yg saya maksud.
On Jun 22, 2015 3:51 PM, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <
belajar-excel@yahoogroups.com> wrote:

>
>
> Sambil nunggu yang biasa hitung bunga-bunga an ya..
> coba pakai fungsi FV (future value)
> =FV( rate_per_bulan , jumlah_bulan_dicari , jumlah_total_bulan_pelunasan ,
> -pinjaman )
> Pinjaman = 100juta
> Dilunasi dalam 120 bulan
> rate per tahun adalah 12% berarti rate per bulan = 1%
> ingin tahu sisa utang bulan ke 10
> =FV( 1% , 10 , 120 , - 100juta )
>
> gitu kali ya
>
> Wassalam,
> Kid
>
>
>
>
>
>
> 2015-06-22 15:31 GMT+10:00 Andreas And andreas.and.q4@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com>:
>
>>
>>
>>
>> Dear Para Master,
>>
>> Mohon bantuannya dibuatkan rumus di excel untuk mencari sisa utang
>> pinjaman periode tertentu dengan bunga anuitas, sebenarnya saya sdh
>> menemukan rumusnya (belum dicoba kebenaran hasilnya) namun kesulitan
>> penerapannya di excel (ada ∑).
>> Lebih jelasnya pada attachment.
>> Mohon bantuannya. Terima kasih.
>>
>> Salam,
>> Andreas
>>
>>
>
>

Sun Jun 21, 2015 11:38 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

Dear Dany,

Untuk R dan MYRANGE belum kamu tentukan penggunaan variablenya, apakah string,integer atau yg lainnya.
contoh seperti ini

Dim MYRANGE As Range
Dim R As integer

dari situ baru bisa di tentukan MYRANGE mengacu ke mana dan R berapa nilainya
misal
set MYRANGE = sheet1.Range("B1:B2")
R = 1

TerimaKasih.
Sent from Yahoo Mail on Android

Mon Jun 22, 2015 2:03 am (PDT) . Posted by:

danny_06791

Terima kasih mas Toby atas penjelasannya

Sun Jun 21, 2015 11:39 pm (PDT) . Posted by:

"Dede"

Ok Mr Toby,

Tak jajal, terima kasih.

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 13:14
To: belajar-excel@yahoogroups.com
Subject: Re: RE: RE: RE: [belajar-excel] SaveAs file pdf

Berarti tinggal di download aja di microsoft support, gratis...
udah gitu baru bisa buat program vba untuk save to PDF.

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: RE: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 6:07:43 AM

Dear Mr Toby,

Tidak ada mr...

Trus kalau ndak ada pilihan Save to PDF itu berarti gak bisa yah ?

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 12:31
To: belajar-excel@yahoogroups.com
Subject: Re: RE: RE: [belajar-excel] SaveAs file pdf

di pastikan saja dulu apa sudah benar2 terinstall.
Caranya,buka workbook,klik file,liaht ke bawah apakah sudah ada Save to PDF.

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 3:21:18 AM

NAH INI....., saya gak tau Mr.....

Yang pasti selama ini kalau saya mau SaveAs file excel ke file pdf saya harus tekan Ctrl+P. Seolah-olah mau printout gitu..

Tapi kayaknya sih udah terinstall deh Mr Toby...

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 10:15
To: belajar-excel@yahoogroups.com
Subject: Re: RE: [belajar-excel] SaveAs file pdf

sudah install SavePdfandXPS nya..

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 3:07:35 AM

Dear Mr Toby,

Office 2007 Mr....

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 10:02
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] SaveAs file pdf

Dear DD,

Pake Office berapa..?

TerimaKasih.

Pada Senin, 22 Juni 2015 8:49, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Dear Be Exceller,

Mohon bantuan dan koreksi atas script warna merah dbi :

Private Sub CommandButton1_Click()

Dim a As String

a = Sheet4.Range("b3").Value

Dim p As String

p = Sheet4.Range("s2").Value 'Cell nama file

Dim m As String

m = Sheet2.Range("g2").Value 'Cell nama file

On Error Resume Next

Worksheet.Active

ActiveSheet.Unprotect Password:="a"

Range("A3:B3").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A6").Select

Sheet5.Visible = True

SheetVisible = Sheets("Persetujuan Pemusnahan BS").Visible = True

Sheets("Persetujuan Pemusnahan BS").Select

Range("B4:D4").Select

Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("B4:D4").Select

'Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=True, Transpose:=True

'Application.CutCopyMode = False

Range("a6").Select

ActiveWorkbook.Save

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & a & ".xlsb" _

, FileFormat:=xlExcel12, CreateBackup:=False

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Sheets("Monitoring BS").Select

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & p & ".pdf" _

, FileFormat:=xlExcel12, CreateBackup:=False

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Sheets("Persetujuan Pemusnahan BS").Select

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & m & ".pdf" _

, FileFormat:=xlExcel12, CreateBackup:=False

ActiveWindow.Close

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWorkbook.Save

ActiveWindow.Close

End Sub

Script merah saya dapat dengan copy paste record makro yang bertujuan untuk SaveAs ke file pdf, dengan lokasi penyimpanan file di "D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\Persetujuan Pemusnahan BS.pdf" dan satu file lagi dengan nama file "Monitoring BS.pdf" dilokasi yang sama.

Masalah yang muncul adalah pada saat saya klik commandbutton tersebut hanya file excelnya saja yang terSaveAs otomatis, sedangkan kedua file pdf tidak. Mohon solusinya.

Salam,

Dede Sulaeman

Logistic Staff PT. Pinus Merah Abadi

_____

This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.

Mon Jun 22, 2015 12:22 am (PDT) . Posted by:

"Dede"

Oh iya Mr Toby, satu lagi mau tanya.

Agar tombol CommandButton tidak bisa di klik saat sheet terprotect bagaimana caranya yah?

Salam,

DD

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 13:39
To: belajar-excel@yahoogroups.com
Subject: RE: RE: RE: RE: [belajar-excel] SaveAs file pdf

Ok Mr Toby,

Tak jajal, terima kasih.

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 13:14
To: belajar-excel@yahoogroups.com
Subject: Re: RE: RE: RE: [belajar-excel] SaveAs file pdf

Berarti tinggal di download aja di microsoft support, gratis...
udah gitu baru bisa buat program vba untuk save to PDF.

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: RE: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 6:07:43 AM

Dear Mr Toby,

Tidak ada mr...

Trus kalau ndak ada pilihan Save to PDF itu berarti gak bisa yah ?

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 12:31
To: belajar-excel@yahoogroups.com
Subject: Re: RE: RE: [belajar-excel] SaveAs file pdf

di pastikan saja dulu apa sudah benar2 terinstall.
Caranya,buka workbook,klik file,liaht ke bawah apakah sudah ada Save to PDF.

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 3:21:18 AM

NAH INI....., saya gak tau Mr.....

Yang pasti selama ini kalau saya mau SaveAs file excel ke file pdf saya harus tekan Ctrl+P. Seolah-olah mau printout gitu..

Tapi kayaknya sih udah terinstall deh Mr Toby...

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 10:15
To: belajar-excel@yahoogroups.com
Subject: Re: RE: [belajar-excel] SaveAs file pdf

sudah install SavePdfandXPS nya..

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 3:07:35 AM

Dear Mr Toby,

Office 2007 Mr....

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 10:02
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] SaveAs file pdf

Dear DD,

Pake Office berapa..?

TerimaKasih.

Pada Senin, 22 Juni 2015 8:49, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Dear Be Exceller,

Mohon bantuan dan koreksi atas script warna merah dbi :

Private Sub CommandButton1_Click()

Dim a As String

a = Sheet4.Range("b3").Value

Dim p As String

p = Sheet4.Range("s2").Value 'Cell nama file

Dim m As String

m = Sheet2.Range("g2").Value 'Cell nama file

On Error Resume Next

Worksheet.Active

ActiveSheet.Unprotect Password:="a"

Range("A3:B3").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A6").Select

Sheet5.Visible = True

SheetVisible = Sheets("Persetujuan Pemusnahan BS").Visible = True

Sheets("Persetujuan Pemusnahan BS").Select

Range("B4:D4").Select

Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("B4:D4").Select

'Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=True, Transpose:=True

'Application.CutCopyMode = False

Range("a6").Select

ActiveWorkbook.Save

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & a & ".xlsb" _

, FileFormat:=xlExcel12, CreateBackup:=False

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Sheets("Monitoring BS").Select

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & p & ".pdf" _

, FileFormat:=xlExcel12, CreateBackup:=False

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Sheets("Persetujuan Pemusnahan BS").Select

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & m & ".pdf" _

, FileFormat:=xlExcel12, CreateBackup:=False

ActiveWindow.Close

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWorkbook.Save

ActiveWindow.Close

End Sub

Script merah saya dapat dengan copy paste record makro yang bertujuan untuk SaveAs ke file pdf, dengan lokasi penyimpanan file di "D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\Persetujuan Pemusnahan BS.pdf" dan satu file lagi dengan nama file "Monitoring BS.pdf" dilokasi yang sama.

Masalah yang muncul adalah pada saat saya klik commandbutton tersebut hanya file excelnya saja yang terSaveAs otomatis, sedangkan kedua file pdf tidak. Mohon solusinya.

Salam,

Dede Sulaeman

Logistic Staff PT. Pinus Merah Abadi

_____

This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.

Mon Jun 22, 2015 12:34 am (PDT) . Posted by:

"Toby kenzo" tobykenzo

di buat disabled
contoh
commandBotton1.Enabled= false

Sent from Yahoo Mail on Android

Mon Jun 22, 2015 1:07 am (PDT) . Posted by:

"Dede"

Ok Mr terima kasih banyak atas masukannya.

Salam

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 14:35
To: belajar-excel@yahoogroups.com
Subject: Re: RE: RE: RE: RE: [belajar-excel] SaveAs file pdf

di buat disabled
contoh
commandBotton1.Enabled= false

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: RE: RE: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 7:22:14 AM

Oh iya Mr Toby, satu lagi mau tanya.

Agar tombol CommandButton tidak bisa di klik saat sheet terprotect bagaimana caranya yah?

Salam,

DD

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 13:39
To: belajar-excel@yahoogroups.com
Subject: RE: RE: RE: RE: [belajar-excel] SaveAs file pdf

Ok Mr Toby,

Tak jajal, terima kasih.

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 13:14
To: belajar-excel@yahoogroups.com
Subject: Re: RE: RE: RE: [belajar-excel] SaveAs file pdf

Berarti tinggal di download aja di microsoft support, gratis...
udah gitu baru bisa buat program vba untuk save to PDF.

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: RE: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 6:07:43 AM

Dear Mr Toby,

Tidak ada mr...

Trus kalau ndak ada pilihan Save to PDF itu berarti gak bisa yah ?

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 12:31
To: belajar-excel@yahoogroups.com
Subject: Re: RE: RE: [belajar-excel] SaveAs file pdf

di pastikan saja dulu apa sudah benar2 terinstall.
Caranya,buka workbook,klik file,liaht ke bawah apakah sudah ada Save to PDF.

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 3:21:18 AM

NAH INI....., saya gak tau Mr.....

Yang pasti selama ini kalau saya mau SaveAs file excel ke file pdf saya harus tekan Ctrl+P. Seolah-olah mau printout gitu..

Tapi kayaknya sih udah terinstall deh Mr Toby...

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 10:15
To: belajar-excel@yahoogroups.com
Subject: Re: RE: [belajar-excel] SaveAs file pdf

sudah install SavePdfandXPS nya..

Sent from Yahoo Mail on Android <http://overview.mail.yahoo.com/mobile/?.src=Android>

_____

From: Dede pmaho_log4@nabatisnack.co.id [belajar-excel] <belajar-excel@yahoogroups.com>;
To: <belajar-excel@yahoogroups.com>;
Subject: RE: [belajar-excel] SaveAs file pdf
Sent: Mon, Jun 22, 2015 3:07:35 AM

Dear Mr Toby,

Office 2007 Mr....

Salam,

DD

From: Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] [mailto:belajar-excel@yahoogroups.com]
Sent: 22 Juni 2015 10:02
To: belajar-excel@yahoogroups.com
Subject: Bls: [belajar-excel] SaveAs file pdf

Dear DD,

Pake Office berapa..?

TerimaKasih.

Pada Senin, 22 Juni 2015 8:49, "Dede pmaho_log4@nabatisnack.co.id [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:

Dear Be Exceller,

Mohon bantuan dan koreksi atas script warna merah dbi :

Private Sub CommandButton1_Click()

Dim a As String

a = Sheet4.Range("b3").Value

Dim p As String

p = Sheet4.Range("s2").Value 'Cell nama file

Dim m As String

m = Sheet2.Range("g2").Value 'Cell nama file

On Error Resume Next

Worksheet.Active

ActiveSheet.Unprotect Password:="a"

Range("A3:B3").Select

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("A6").Select

Sheet5.Visible = True

SheetVisible = Sheets("Persetujuan Pemusnahan BS").Visible = True

Sheets("Persetujuan Pemusnahan BS").Select

Range("B4:D4").Select

Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Range("B4:D4").Select

'Application.CutCopyMode = False

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=True, Transpose:=True

'Application.CutCopyMode = False

Range("a6").Select

ActiveWorkbook.Save

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & a & ".xlsb" _

, FileFormat:=xlExcel12, CreateBackup:=False

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Sheets("Monitoring BS").Select

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & p & ".pdf" _

, FileFormat:=xlExcel12, CreateBackup:=False

ExecuteExcel4Macro "PRINT(1,,,1,,,,,,,,2,,,TRUE,,FALSE)"

Sheets("Persetujuan Pemusnahan BS").Select

ChDir _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian"

ActiveWorkbook.SaveAs Filename:= _

"D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\" & m & ".pdf" _

, FileFormat:=xlExcel12, CreateBackup:=False

ActiveWindow.Close

Selection.Copy

Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _

:=False, Transpose:=False

Application.CutCopyMode = False

ActiveWorkbook.Save

ActiveWindow.Close

End Sub

Script merah saya dapat dengan copy paste record makro yang bertujuan untuk SaveAs ke file pdf, dengan lokasi penyimpanan file di "D:\BAD STOCK\2015&#92;06 Juni 2015\Persetujuan Pemusnahan BS PMA GT-MT Nasional Juni 2015\Email Kirim ke Mr. Tian\Persetujuan Pemusnahan BS.pdf" dan satu file lagi dengan nama file "Monitoring BS.pdf" dilokasi yang sama.

Masalah yang muncul adalah pada saat saya klik commandbutton tersebut hanya file excelnya saja yang terSaveAs otomatis, sedangkan kedua file pdf tidak. Mohon solusinya.

Salam,

Dede Sulaeman

Logistic Staff PT. Pinus Merah Abadi

_____

This e-mail and any files transmitted with it are confidential and intended solely for the use of the individual to whom it is addressed. If you have received this email in error please send it back to the person that sent it to you. Any views or opinions presented are solely those of its author and do not necessarily represent those of NABATI or any of its subsidiary companies. Unauthorized publication, use, dissemination, forwarding, printing or copying of this email and its associated attachments is strictly prohibited.

Mon Jun 22, 2015 12:05 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

WorksheetFunction digunakan untuk bisa menggunakan fungsi-fungsi yang
dimiliki oleh Excel.
Formula adalah penggunaan fungsi-fungsi dalam Excel pada suatu cells.

Kalau yang Anda maksud* dengan formula *adalah dengan methods
worksheetfunction, berarti disebabkan oleh lamanya kerja VBA dalam
mengakses object dan properties atau methods si object.

Kalau yang Anda maksud *tanpa formula* adalah tidak menggunakan
Worksheetfunction, berarti lebih cepat karena tidak mengerjakan proses yang
menyita waktu.

File terlampir memanfaatkan bunyo formulasi dalam cells yang dikomputasi
menggunakan methods evaluate.
Setidaknya di kompi i5 1st gen 8GB RAM bisa dibawah 5 detik untuk 900ribu
records.

Wassalam,
Kid

2015-06-22 3:29 GMT+10:00 lkm jktind lkmjktind@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Pak Kid.
>
> dengan data sebanyak 646.784 row di sheet 1.
>
> dengan data berurutan.
>
> xlCalculationManual xlCalculationAutomatic
> looping , tanpa formula : 22.09 23.98
> looping , dengan formula : 139.29 139.18
>
> module 1 dan 2 (memang di buat khusus untuk data yg berurutan)
>
> looping, tanpa formula : 5.448.84 5.560.52
> lopping, dengan formula : 139.87 139.89
>
> module 3 dan 4 ( khusus di buat untuk data tak berurutan)
>
> sebelumnya dengan template di cells aktif : dibawah 1 detik (manual) :
> 25 detik (automatic)
>
> dan saya lebih memilih memakai looping tanpa formula. dapat saya kerjakan
> sendiri.
> Modul 1.
> apalagi dengan hasilnya lebih cepat
>
> adapun apa sebabnya looping tanpa formula bisa lebih cepat ?
>
>
> salam
>
> Lukman
>
>
>
>
> 2015-06-22 0:10 GMT+07:00 lkm jktind <lkmjktind@gmail.com>:
>
>> Pak Kid.
>>
>> dengan data sebanyak 646.784 row di sheet 1.
>>
>> dengan data berurutan.
>>
>>
>> xlCalculationManual xlCalculationAutomatic
>> looping , tanpa formula :
>> looping , dengan formula :
>>
>>
>>
>>
>>
>>
>>
>> 2015-06-21 15:57 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
>> belajar-excel@yahoogroups.com>:
>>
>>>
>>>
>>> hehehe...
>>> lebih cepat daripada pakai methods worksheetfunction kan ?
>>> imho,
>>> data yang terurut jauh lebih baik daripada tidak terurut.
>>> Jadi, proses bisa diawali dengan sort terhadap isi tabel data sumber.
>>> Kemudian, evaluate bisa dimanfaatkan untuk mengkomputasi match pencari
>>> baris awal dan countif jumlah record nya. Dengan demikian, maka proses
>>> komputasi array oleh lookup bisa dihindari.
>>>
>>> Akan lebih baik lagi bila tabel data menggunakan fitur Excel Table.
>>> Dengan begitu, bunyi formula akan merujuk ke nama kolom tanpa peduli sudah
>>> sampai baris berapa adanya si record. Artinya, proses evaluate bisa
>>> dilakukan dengan bunyi formula yang tetap pada jumlah baris yang relatif
>>> sebanyak data yang ada.
>>>
>>> Andai tidak menggunakan fitur Excel Table, evaluate perlu merujuk ke
>>> banyak baris (misal sampai merujuk ke baris 500ribu) walaupun saat ini
>>> datanya baru ada 10ribu karena dikhawatirkan suatu saat akan mencapai
>>> 500ribu. Artinya, proses formula akan mengkomputasi data sebanyak 500ribu
>>> tersebut.
>>> Sedangkan dengan fitur Excel table, formulasi untuk evaluate merujuk ke
>>> nama kolom. Jika record baru ada 5 bijik, maka komputasi hanya terhadap 5
>>> bijik tersebut. Jika data sudah bertambah banyak sampai 1juta, maka
>>> komputasi akan merujuk ke 1juta baris TANPA perlu mengubah bunyi baris kode
>>> di bagian formulasi dalam evaluate nya.
>>>
>>> Tanpa fitur Excel Table, bisa juga dibuatkan suatu bunyi formula yang
>>> mengikuti jumlah baris yang ada. Jadi harus membuat baris kode untuk :
>>> a. tahu baris terakhir data saat itu
>>> b. menyusun bunyi formula untuk evaluate
>>> baru deh hasil b dipakai oleh evaluate.
>>> Proses a dan b tersebut akan terasa singkat jika dikerjakan oleh VBA,
>>> TETAPI waktu untuk 2 proses tersebut bisa digunakan untuk proses kompleks
>>> lainnya daripada sekedar untuk tahu dan menyusun bunyi formula sajah alias
>>> 2 proses ini termasuk proses yang kebanyakan gaya n bikin ruwet baris kode
>>> sajah...
>>> Ingat, kebanyakan gaya akan menjadi tekanan bertambah.... P = F / A
>>> Jadi, kalau mau banyak gaya, perluas area kekompleksitasannya (A) supaya
>>> tekanannya relatif tetap.
>>>
>>> ;)
>>>
>>> met berbuka puasa bagi BeExceller yang berpuasa...
>>>
>>> Wassalam,
>>> Kid
>>>
>>>
>>>
>>> 2015-06-21 16:52 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>
>>>>
>>>>
>>>> sudah bisa .
>>>> Soh2.Cells(rx, 16) = Evaluate("=LookUp( 9^9 , Row(OHLC!$A$1:$A$1159) /
>>>> (OHLC!$A$1:$A$1159=$A25) )")
>>>>
>>>> terima kasih
>>>>
>>>> salam
>>>>
>>>> Lukman
>>>>
>>>> 2015-06-21 12:41 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>
>>>>>
>>>>>
>>>>> Pakai evaluate saja...
>>>>> http://b-excel.blogspot.com/2013/09/ngobrolin-evaluate-di-vba-yuk.html
>>>>>
>>>>> 2015-06-21 15:35 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>
>>>>>>
>>>>>>
>>>>>> Pak
>>>>>> Formula itu sudah sesuai. (cocok)
>>>>>>
>>>>>> Tapi bila untuk di gunakan dalam VBA . nga bisa.
>>>>>>
>>>>>> For rx = 2 To Soh2.Cells(Rows.Count, 1).End(xlUp).Row
>>>>>> Soh2.Cells(rx, 6) = .CountIfs(Voh, Cells(rx, 1))
>>>>>> Soh2.Cells(rx, 7) = .Match(Cells(rx, 1), Voh, False)
>>>>>> If Cells(rx, 6) <> 0 Then
>>>>>>
>>>>>> 'Soh2.Cells(rx, 8) = .Match(Cells(rx, 1), Voh, True)
>>>>>> Soh2.Cells(rx, 8) = .Lookup(1000000000, Voh,
>>>>>> /Voh=Soh2.Cells(rx, 1))
>>>>>>
>>>>>>
>>>>>> End If
>>>>>> Next
>>>>>>
>>>>>> Salam
>>>>>>
>>>>>> Lukman
>>>>>>
>>>>>> NB:
>>>>>> Sheet 1 = sumber data
>>>>>> Sheet 2 = sheet bantu .
>>>>>> Bila : ada data baru --- dicari di sheet 2 apakah datanya sudah
>>>>>> ada
>>>>>> Bila : data hendak di pakai tinggal dicari tglnya -- dan di ambil
>>>>>> dari baris awal dan baris akhir.
>>>>>>
>>>>>> didalam file ada 4 modul :
>>>>>> modul 1 : looping , tanpa formula, data berurutan.
>>>>>> modul 2 : looping , dengan formula, data berurutan.
>>>>>> modul 3 : lopping , tanpa formula , data acak.
>>>>>> modul 4 : rencananya . Lopping , dengan formula , data acak.
>>>>>>
>>>>>> untuk melihat pengaruh dari xlCalculationManual /
>>>>>> xlCalculationAutomatic
>>>>>>
>>>>>>
>>>>>>
>>>>>>
>>>>>> 2015-06-21 10:59 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> =LookUp( 9^9 ; Row(OHLC!$A$1:$A$1159) / (OHLC!$A$1:$A$1159=$A25) )
>>>>>>>
>>>>>>> Wassalam,
>>>>>>> Kid
>>>>>>>
>>>>>>>
>>>>>>>
>>>>>>> 2015-06-21 13:22 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> dalam contoh . mencari data tgl 24 AGT 2009.
>>>>>>>>
>>>>>>>> baris awal =MATCH($A25;OHLC!$A$1:$A$1159;FALSE)
>>>>>>>> baris akhir =*MATCH*($A25;OHLC!$A$1:$A$1159;*TRUE*) --- kalau
>>>>>>>> sumber data nya tidak berurutan hasilnya salah.
>>>>>>>>
>>>>>>>> seharusnya pakai formula apa ? bila sumber datanya berurutan atau
>>>>>>>> tidak berurutan .
>>>>>>>>
>>>>>>>> salam
>>>>>>>>
>>>>>>>>
>>>>>>>> Lukman
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>>
>>>>>>>> 2015-06-21 3:54 GMT+07:00 'Mr. Kid' mr.nmkid@gmail.com
>>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> Untuk data terurut (sorted),
>>>>>>>>> baris akhir = baris awal + jumlah item - 1
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>>
>>>>>>>>> 2015-06-21 3:16 GMT+10:00 lkm jktind lkmjktind@gmail.com
>>>>>>>>> [belajar-excel] <belajar-excel@yahoogroups.com>:
>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> Saya hendak mencari baris pertama dan baris terakhir dari sheet 1
>>>>>>>>>>
>>>>>>>>>> hasilnya di kolom O dan P
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>> Salam
>>>>>>>>>>
>>>>>>>>>> Lukman
>>>>>>>>>>
>>>>>>>>>> NB formula yg saya gunakan itu abal -abal
>>>>>>>>>>
>>>>>>>>>>
>>>>>>>>>
>>>>>>>>
>>>>>>>
>>>>>>
>>>>>
>>>>
>>>
>>
>
>

Mon Jun 22, 2015 2:01 am (PDT) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Gini kali ya : (pinjem formulanya mas Nang Agus)
=IF(AND(G$8>=$E9-day($e9)+1,G$8<=$F9-day($f9)+1),1,0)

atau disingkat begini :
=(G$8>=$E9-day($e9)+1)*(G$8<=$F9-day($f9)+1)

Wassalam,
Kid

2015-06-22 10:41 GMT+10:00 wong_camp15@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com>:

>
>
> Terima kasih banyak buat Bapak/Mas Nang Agus.,, tpi bln novembernya ndak
> berilai 1 ya,,, kn tgl pemesanan bln nov so seharusnya kolom analis dibulan
> nov terisi angka 1 mas,,,,, intinya pgnx berdasarkan bulan dan tahun saja
> mas,,, so tglx ndak usah dilht.... mohon pencerahan dan solusi dari mas
> Nang Agus or master2 excle yg lain... terima kasih
>
>
> salam
> "Archa
>
>
>
>
>
> On 6/20/2015 3:44 PM, Nang Agus nangagus@gmail.com [belajar-excel] wrote:
>
>
> Coba di G9 diketik formula:
> =IF(AND(G$8>=$E9,G$8<=$F9),1,0)
> kemudian kopi ke semua area.
> Jangan lupa mengubah karakter , menjadi ; jika komputer anda berbahasa
> Indonesia
>
> 2015-06-20 8:11 GMT+07:00 wong_camp15@yahoo.com [belajar-excel] <
> belajar-excel@yahoogroups.com>:
>
>>
>>
>> Selamat pagi
>> para ahli excel semua, saya mau bertanya nie.
>> pertanyaan saya tentang analis pemesanan agar secara otomatis
>>
>> Untuk selengkapnya ada di file terlampir.
>>
>> Terima kasih
>> "archa
>>
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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:

Poskan Komentar