Minggu, 21 Juni 2015

[belajar-excel] Digest Number 3483

15 Messages

Digest #3483
2a
Re: Mencari baris by "lkm jktind" lkmjkt
2b
Re: Mencari baris by "lkm jktind" lkmjkt
3a
3b
Bls: [belajar-excel] SaveAs file pdf by "Toby kenzo" tobykenzo
3d
Re: SaveAs file pdf by "Toby kenzo" tobykenzo
3f
Re: SaveAs file pdf by "Toby kenzo" tobykenzo
3h
Re: SaveAs file pdf by "Toby kenzo" tobykenzo
6a
Kode VBA by "Danny Prasetyo" danny_06791

Messages

Sun Jun 21, 2015 3:25 am (PDT) . Posted by:

shenly_excelmania

Terima kasih mas.Toby kenzo, rumusnya good sekali :D

Sun Jun 21, 2015 3:59 am (PDT) . Posted by:

shenly_excelmania

terima kasih mr.kid, sudah di buatkan perbandingannya, saya pelajari dulu

Sun Jun 21, 2015 10:10 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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

Sun Jun 21, 2015 10:29 am (PDT) . Posted by:

"lkm jktind" lkmjkt

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

Sun Jun 21, 2015 6:49 pm (PDT) . Posted by:

"Dede"

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.

Sun Jun 21, 2015 8:04 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

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 filepdf, dengan lokasi penyimpanan file di"D:&#92;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.
#yiv0977845493 #yiv0977845493 -- #yiv0977845493ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv0977845493 #yiv0977845493ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv0977845493 #yiv0977845493ygrp-mkp #yiv0977845493hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv0977845493 #yiv0977845493ygrp-mkp #yiv0977845493ads {margin-bottom:10px;}#yiv0977845493 #yiv0977845493ygrp-mkp .yiv0977845493ad {padding:0 0;}#yiv0977845493 #yiv0977845493ygrp-mkp .yiv0977845493ad p {margin:0;}#yiv0977845493 #yiv0977845493ygrp-mkp .yiv0977845493ad a {color:#0000ff;text-decoration:none;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ygrp-lc {font-family:Arial;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ygrp-lc #yiv0977845493hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ygrp-lc .yiv0977845493ad {margin-bottom:10px;padding:0 0;}#yiv0977845493 #yiv0977845493actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv0977845493 #yiv0977845493activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv0977845493 #yiv0977845493activity span {font-weight:700;}#yiv0977845493 #yiv0977845493activity span:first-child {text-transform:uppercase;}#yiv0977845493 #yiv0977845493activity span a {color:#5085b6;text-decoration:none;}#yiv0977845493 #yiv0977845493activity span span {color:#ff7900;}#yiv0977845493 #yiv0977845493activity span .yiv0977845493underline {text-decoration:underline;}#yiv0977845493 .yiv0977845493attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv0977845493 .yiv0977845493attach div a {text-decoration:none;}#yiv0977845493 .yiv0977845493attach img {border:none;padding-right:5px;}#yiv0977845493 .yiv0977845493attach label {display:block;margin-bottom:5px;}#yiv0977845493 .yiv0977845493attach label a {text-decoration:none;}#yiv0977845493 blockquote {margin:0 0 0 4px;}#yiv0977845493 .yiv0977845493bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv0977845493 .yiv0977845493bold a {text-decoration:none;}#yiv0977845493 dd.yiv0977845493last p a {font-family:Verdana;font-weight:700;}#yiv0977845493 dd.yiv0977845493last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv0977845493 dd.yiv0977845493last p span.yiv0977845493yshortcuts {margin-right:0;}#yiv0977845493 div.yiv0977845493attach-table div div a {text-decoration:none;}#yiv0977845493 div.yiv0977845493attach-table {width:400px;}#yiv0977845493 div.yiv0977845493file-title a, #yiv0977845493 div.yiv0977845493file-title a:active, #yiv0977845493 div.yiv0977845493file-title a:hover, #yiv0977845493 div.yiv0977845493file-title a:visited {text-decoration:none;}#yiv0977845493 div.yiv0977845493photo-title a, #yiv0977845493 div.yiv0977845493photo-title a:active, #yiv0977845493 div.yiv0977845493photo-title a:hover, #yiv0977845493 div.yiv0977845493photo-title a:visited {text-decoration:none;}#yiv0977845493 div#yiv0977845493ygrp-mlmsg #yiv0977845493ygrp-msg p a span.yiv0977845493yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv0977845493 .yiv0977845493green {color:#628c2a;}#yiv0977845493 .yiv0977845493MsoNormal {margin:0 0 0 0;}#yiv0977845493 o {font-size:0;}#yiv0977845493 #yiv0977845493photos div {float:left;width:72px;}#yiv0977845493 #yiv0977845493photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv0977845493 #yiv0977845493photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv0977845493 #yiv0977845493reco-category {font-size:77%;}#yiv0977845493 #yiv0977845493reco-desc {font-size:77%;}#yiv0977845493 .yiv0977845493replbq {margin:4px;}#yiv0977845493 #yiv0977845493ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv0977845493 #yiv0977845493ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv0977845493 #yiv0977845493ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv0977845493 #yiv0977845493ygrp-mlmsg select, #yiv0977845493 input, #yiv0977845493 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv0977845493 #yiv0977845493ygrp-mlmsg pre, #yiv0977845493 code {font:115% monospace;}#yiv0977845493 #yiv0977845493ygrp-mlmsg * {line-height:1.22em;}#yiv0977845493 #yiv0977845493ygrp-mlmsg #yiv0977845493logo {padding-bottom:10px;}#yiv0977845493 #yiv0977845493ygrp-msg p a {font-family:Verdana;}#yiv0977845493 #yiv0977845493ygrp-msg p#yiv0977845493attach-count span {color:#1E66AE;font-weight:700;}#yiv0977845493 #yiv0977845493ygrp-reco #yiv0977845493reco-head {color:#ff7900;font-weight:700;}#yiv0977845493 #yiv0977845493ygrp-reco {margin-bottom:20px;padding:0px;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ov li a {font-size:130%;text-decoration:none;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv0977845493 #yiv0977845493ygrp-sponsor #yiv0977845493ov ul {margin:0;padding:0 0 0 8px;}#yiv0977845493 #yiv0977845493ygrp-text {font-family:Georgia;}#yiv0977845493 #yiv0977845493ygrp-text p {margin:0 0 1em 0;}#yiv0977845493 #yiv0977845493ygrp-text tt {font-size:120%;}#yiv0977845493 #yiv0977845493ygrp-vital ul li:last-child {border-right:none !important;}#yiv0977845493

Sun Jun 21, 2015 8:07 pm (PDT) . Posted by:

"Dede"

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.

Sun Jun 21, 2015 8:14 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

sudah install SavePdfandXPS nya..

Sent from Yahoo Mail on Android

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

"Dede"

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.

Sun Jun 21, 2015 10:31 pm (PDT) . Posted by:

"Toby kenzo" tobykenzo

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

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

"Dede"

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.

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

"Toby kenzo" tobykenzo

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

Sun Jun 21, 2015 6:55 pm (PDT) . Posted by:

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
> <mailto:wong_camp15@yahoo.com> [belajar-excel]
> <belajar-excel@yahoogroups.com <mailto: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
>
>
>

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

"Ristanto Ristanto" ristanto1111

OOh sip... thanks berhasil ganMakasih solusinya :)

Pada Minggu, 21 Juni 2015 3:36, "'Mr. Kid' mr.nmkid@gmail.com [belajar-excel]" <belajar-excel@yahoogroups.com> menulis:


  Coba settingannya begini :
1. Semua macro di-disable (lihat di security macro)
-> office button (xl2007) atau File (xl2010 ke atas) -> Excel Options (xl2007) atau Options (xl2010 ke atas) -> Trust center
-> klik trust center setting -> macro settings -> disable blabla with notification -> OK -> OK

2. turn off semua addin
-> office button (xl2007) atau File (xl2010 ke atas) -> Excel Options (xl2007) atau Options (xl2010 ke atas) -> Addins
-> di bagian manage, pilih Excel add in -> klik go -> hilangkan centang semua -> OK
-> di bagian manage, pilih COM -> klik go -> hilangkan centang semua atau pilih dan klik remove -> OK

3. calculation option jadi automatic
-> office button (xl2007) atau File (xl2010 ke atas) -> Excel Options (xl2007) atau Options (xl2010 ke atas) -> Formulas
-> bagian Calculation options -> area workbook calculation -> pilih automatic (tanpa embel-embel) -> OK

4. turn off show formula insted result
-> office button (xl2007) atau File (xl2010 ke atas) -> Excel Options (xl2007) atau Options (xl2010 ke atas) -> Advanced
-> bagian Display options for this worksheet -> hilangkan centang dari item Show formulas blablabla -> OK

5. set format cells number ke general
-> blok seluruh cells dalam worksheet -> klik kanan sebuah cell -> format cells -> tab Number -> pilih opsi General -> OK

6. Ganti formula yang terinput sebagai text menjadi sebuah Excel Formula
-> blok seluruh cells dalam worksheet -> replace (CTRL H) -> find : isi = -> replace : isi = -> klik replace all -> close (x kecil pojok)

7. cek setiap worksheet dan bila perlu lakukan nomor 4 bila belum terkena dampaknya

8. save workbook

9. moga-moga bisa

Andaikan setiap kali membuat file baru (new workbook) terjadi perubahan setting di atas menjadi setting jahiliyah, cari folder XLSTART di windows explorer (bisa jadi butuh admin kompi) dan hapus semua file berekstensi xlt atau xltx (tipe Excel Template).

Wassalam,
Kid

On Fri, Jun 19, 2015 at 5:19 PM, Danu Purboyo danu.purboyo@yahoo.com [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

  Iyah saya juga sering begitu...
Terkadang malah bukan angkanya yg muncul tapi malah rumusnya...
Pas ditunggu beberapa lama atau di save dia baru mengcalculate..

Bro Toby,
Settingannya sudah automatic bro..

Thx
Dn

--------------------------------------------
On Fri, 6/19/15, Toby kenzo tobykenzo@yahoo.co.id [belajar-excel] <belajar-excel@yahoogroups.com> wrote:

Subject: Bls: [belajar-excel] Gangguan refresh reaksi pada formula excel (virus atau error kah ? solusi ?)
To: "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
Date: Friday, June 19, 2015, 1:36 PM

 









Dear
Ristanto, Sudah coba
di aktifkan workbook calculation ke
Automatic.klick File
--> options --> formulas --> Workbook Calculation
--> klick Automatic TerimaKasih.




Pada Jumat, 19 Juni
2015 12:58, "Ristanto Ristanto ristanto1111@yahoo.com
[belajar-excel]" <belajar-excel@yahoogroups.com>
menulis:



 









halo
rekan rekan Excel
Entah apa
nama istilahnya ya saya ada kejadian kayak gini : Terkadang
saya menemui masalah pada beberapa file excel yang isinya
adalah formula dan lookup (seperti itulah misalnya) nah
ketika mengedit formula di dalam file tersebut reaksi nya
tidak seketika berubah, namun malah harus di pencet SAVE
baru dia ber-reaksi. 
Misal :

Ada formula =B1+5 --> menghasilkan 10
(di cell C1)
Ketika diganti menjadi = B1+6
--> hasilnya tetap 10, namun setelah di Save baru beraksi
menjadi 11 (di cell C1)
Pertanyaannya
:Yang
bermasalah ini apakah file excelnya atau system windows ?
apakah ada solusi yg bisa saya coba ?
Mohon
info dan solusinya bila ada yg pernah mengalami hal serupa,
ini penting bagi saya karena cukup berbahaya jika olah data
sangat berbahaya bila reaksinya menunggu pencet tombol

SAVE. terimakasih
rekan
Regards

RISTANTOFYI :
saya menggunakan MS excel 2010 dan 2013 







#yiv6596155550 #yiv6596155550 --
#yiv6596155550ygrp-mkp {
border:1px solid #d8d8d8;font-family:Arial;margin:10px
0;padding:0 10px;}

#yiv6596155550 #yiv6596155550ygrp-mkp hr {
border:1px solid #d8d8d8;}

#yiv6596155550 #yiv6596155550ygrp-mkp #yiv6596155550hd {

color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px
0;}

#yiv6596155550 #yiv6596155550ygrp-mkp #yiv6596155550ads {
margin-bottom:10px;}

#yiv6596155550 #yiv6596155550ygrp-mkp .yiv6596155550ad {
padding:0 0;}

#yiv6596155550 #yiv6596155550ygrp-mkp .yiv6596155550ad p {
margin:0;}

#yiv6596155550 #yiv6596155550ygrp-mkp .yiv6596155550ad a {
color:#0000ff;text-decoration:none;}
#yiv6596155550 #yiv6596155550ygrp-sponsor
#yiv6596155550ygrp-lc {
font-family:Arial;}

#yiv6596155550 #yiv6596155550ygrp-sponsor
#yiv6596155550ygrp-lc #yiv6596155550hd {
margin:10px

0px;font-weight:700;font-size:78%;line-height:122%;}

#yiv6596155550 #yiv6596155550ygrp-sponsor
#yiv6596155550ygrp-lc .yiv6596155550ad {
margin-bottom:10px;padding:0 0;}

#yiv6596155550 #yiv6596155550actions {
font-family:Verdana;font-size:11px;padding:10px 0;}

#yiv6596155550 #yiv6596155550activity {
background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}

#yiv6596155550 #yiv6596155550activity span {
font-weight:700;}

#yiv6596155550 #yiv6596155550activity span:first-child {
text-transform:uppercase;}

#yiv6596155550 #yiv6596155550activity span a {
color:#5085b6;text-decoration:none;}

#yiv6596155550 #yiv6596155550activity span span {
color:#ff7900;}

#yiv6596155550 #yiv6596155550activity span
.yiv6596155550underline {
text-decoration:underline;}

#yiv6596155550 .yiv6596155550attach {
clear:both;display:table;font-family:Arial;font-size:12px;padding:10px
0;width:400px;}

#yiv6596155550 .yiv6596155550attach div a {
text-decoration:none;}

#yiv6596155550 .yiv6596155550attach img {
border:none;padding-right:5px;}

#yiv6596155550 .yiv6596155550attach label {
display:block;margin-bottom:5px;}

#yiv6596155550 .yiv6596155550attach label a {
text-decoration:none;}

#yiv6596155550 blockquote {
margin:0 0 0 4px;}

#yiv6596155550 .yiv6596155550bold {
font-family:Arial;font-size:13px;font-weight:700;}

#yiv6596155550 .yiv6596155550bold a {
text-decoration:none;}

#yiv6596155550 dd.yiv6596155550last p a {
font-family:Verdana;font-weight:700;}

#yiv6596155550 dd.yiv6596155550last p span {
margin-right:10px;font-family:Verdana;font-weight:700;}

#yiv6596155550 dd.yiv6596155550last p
span.yiv6596155550yshortcuts {
margin-right:0;}

#yiv6596155550 div.yiv6596155550attach-table div div a {
text-decoration:none;}

#yiv6596155550 div.yiv6596155550attach-table {
width:400px;}

#yiv6596155550 div.yiv6596155550file-title a, #yiv6596155550
div.yiv6596155550file-title a:active, #yiv6596155550
div.yiv6596155550file-title a:hover, #yiv6596155550
div.yiv6596155550file-title a:visited {
text-decoration:none;}

#yiv6596155550 div.yiv6596155550photo-title a,
#yiv6596155550 div.yiv6596155550photo-title a:active,
#yiv6596155550 div.yiv6596155550photo-title a:hover,
#yiv6596155550 div.yiv6596155550photo-title a:visited {
text-decoration:none;}

#yiv6596155550 div#yiv6596155550ygrp-mlmsg
#yiv6596155550ygrp-msg p a span.yiv6596155550yshortcuts {
font-family:Verdana;font-size:10px;font-weight:normal;}

#yiv6596155550 .yiv6596155550green {
color:#628c2a;}

#yiv6596155550 .yiv6596155550MsoNormal {
margin:0 0 0 0;}

#yiv6596155550 o {
font-size:0;}

#yiv6596155550 #yiv6596155550photos div {
float:left;width:72px;}

#yiv6596155550 #yiv6596155550photos div div {
border:1px solid
#666666;height:62px;overflow:hidden;width:62px;}

#yiv6596155550 #yiv6596155550photos div label {
color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}

#yiv6596155550 #yiv6596155550reco-category {
font-size:77%;}

#yiv6596155550 #yiv6596155550reco-desc {
font-size:77%;}

#yiv6596155550 .yiv6596155550replbq {
margin:4px;}

#yiv6596155550 #yiv6596155550ygrp-actbar div a:first-child {
margin-right:2px;padding-right:5px;}

#yiv6596155550 #yiv6596155550ygrp-mlmsg {
font-size:13px;font-family:Arial, helvetica, clean,
sans-serif;}

#yiv6596155550 #yiv6596155550ygrp-mlmsg table {
font-size:inherit;font:100%;}

#yiv6596155550 #yiv6596155550ygrp-mlmsg select,
#yiv6596155550 input, #yiv6596155550 textarea {
font:99% Arial, Helvetica, clean, sans-serif;}

#yiv6596155550 #yiv6596155550ygrp-mlmsg pre, #yiv6596155550
code {
font:115% monospace;}

#yiv6596155550 #yiv6596155550ygrp-mlmsg * {
line-height:1.22em;}

#yiv6596155550 #yiv6596155550ygrp-mlmsg #yiv6596155550logo {
padding-bottom:10px;}


#yiv6596155550 #yiv6596155550ygrp-msg p a {
font-family:Verdana;}

#yiv6596155550 #yiv6596155550ygrp-msg
p#yiv6596155550attach-count span {
color:#1E66AE;font-weight:700;}

#yiv6596155550 #yiv6596155550ygrp-reco
#yiv6596155550reco-head {
color:#ff7900;font-weight:700;}

#yiv6596155550 #yiv6596155550ygrp-reco {
margin-bottom:20px;padding:0px;}

#yiv6596155550 #yiv6596155550ygrp-sponsor #yiv6596155550ov
li a {
font-size:130%;text-decoration:none;}

#yiv6596155550 #yiv6596155550ygrp-sponsor #yiv6596155550ov
li {
font-size:77%;list-style-type:square;padding:6px 0;}

#yiv6596155550 #yiv6596155550ygrp-sponsor #yiv6596155550ov
ul {
margin:0;padding:0 0 0 8px;}

#yiv6596155550 #yiv6596155550ygrp-text {
font-family:Georgia;}

#yiv6596155550 #yiv6596155550ygrp-text p {
margin:0 0 1em 0;}

#yiv6596155550 #yiv6596155550ygrp-text tt {
font-size:120%;}

#yiv6596155550 #yiv6596155550ygrp-vital ul li:last-child {
border-right:none !important;
}
#yiv6596155550



#yiv3409710722 #yiv3409710722 -- #yiv3409710722ygrp-mkp {border:1px solid #d8d8d8;font-family:Arial;margin:10px 0;padding:0 10px;}#yiv3409710722 #yiv3409710722ygrp-mkp hr {border:1px solid #d8d8d8;}#yiv3409710722 #yiv3409710722ygrp-mkp #yiv3409710722hd {color:#628c2a;font-size:85%;font-weight:700;line-height:122%;margin:10px 0;}#yiv3409710722 #yiv3409710722ygrp-mkp #yiv3409710722ads {margin-bottom:10px;}#yiv3409710722 #yiv3409710722ygrp-mkp .yiv3409710722ad {padding:0 0;}#yiv3409710722 #yiv3409710722ygrp-mkp .yiv3409710722ad p {margin:0;}#yiv3409710722 #yiv3409710722ygrp-mkp .yiv3409710722ad a {color:#0000ff;text-decoration:none;}#yiv3409710722 #yiv3409710722ygrp-sponsor #yiv3409710722ygrp-lc {font-family:Arial;}#yiv3409710722 #yiv3409710722ygrp-sponsor #yiv3409710722ygrp-lc #yiv3409710722hd {margin:10px 0px;font-weight:700;font-size:78%;line-height:122%;}#yiv3409710722 #yiv3409710722ygrp-sponsor #yiv3409710722ygrp-lc .yiv3409710722ad {margin-bottom:10px;padding:0 0;}#yiv3409710722 #yiv3409710722actions {font-family:Verdana;font-size:11px;padding:10px 0;}#yiv3409710722 #yiv3409710722activity {background-color:#e0ecee;float:left;font-family:Verdana;font-size:10px;padding:10px;}#yiv3409710722 #yiv3409710722activity span {font-weight:700;}#yiv3409710722 #yiv3409710722activity span:first-child {text-transform:uppercase;}#yiv3409710722 #yiv3409710722activity span a {color:#5085b6;text-decoration:none;}#yiv3409710722 #yiv3409710722activity span span {color:#ff7900;}#yiv3409710722 #yiv3409710722activity span .yiv3409710722underline {text-decoration:underline;}#yiv3409710722 .yiv3409710722attach {clear:both;display:table;font-family:Arial;font-size:12px;padding:10px 0;width:400px;}#yiv3409710722 .yiv3409710722attach div a {text-decoration:none;}#yiv3409710722 .yiv3409710722attach img {border:none;padding-right:5px;}#yiv3409710722 .yiv3409710722attach label {display:block;margin-bottom:5px;}#yiv3409710722 .yiv3409710722attach label a {text-decoration:none;}#yiv3409710722 blockquote {margin:0 0 0 4px;}#yiv3409710722 .yiv3409710722bold {font-family:Arial;font-size:13px;font-weight:700;}#yiv3409710722 .yiv3409710722bold a {text-decoration:none;}#yiv3409710722 dd.yiv3409710722last p a {font-family:Verdana;font-weight:700;}#yiv3409710722 dd.yiv3409710722last p span {margin-right:10px;font-family:Verdana;font-weight:700;}#yiv3409710722 dd.yiv3409710722last p span.yiv3409710722yshortcuts {margin-right:0;}#yiv3409710722 div.yiv3409710722attach-table div div a {text-decoration:none;}#yiv3409710722 div.yiv3409710722attach-table {width:400px;}#yiv3409710722 div.yiv3409710722file-title a, #yiv3409710722 div.yiv3409710722file-title a:active, #yiv3409710722 div.yiv3409710722file-title a:hover, #yiv3409710722 div.yiv3409710722file-title a:visited {text-decoration:none;}#yiv3409710722 div.yiv3409710722photo-title a, #yiv3409710722 div.yiv3409710722photo-title a:active, #yiv3409710722 div.yiv3409710722photo-title a:hover, #yiv3409710722 div.yiv3409710722photo-title a:visited {text-decoration:none;}#yiv3409710722 div#yiv3409710722ygrp-mlmsg #yiv3409710722ygrp-msg p a span.yiv3409710722yshortcuts {font-family:Verdana;font-size:10px;font-weight:normal;}#yiv3409710722 .yiv3409710722green {color:#628c2a;}#yiv3409710722 .yiv3409710722MsoNormal {margin:0 0 0 0;}#yiv3409710722 o {font-size:0;}#yiv3409710722 #yiv3409710722photos div {float:left;width:72px;}#yiv3409710722 #yiv3409710722photos div div {border:1px solid #666666;height:62px;overflow:hidden;width:62px;}#yiv3409710722 #yiv3409710722photos div label {color:#666666;font-size:10px;overflow:hidden;text-align:center;white-space:nowrap;width:64px;}#yiv3409710722 #yiv3409710722reco-category {font-size:77%;}#yiv3409710722 #yiv3409710722reco-desc {font-size:77%;}#yiv3409710722 .yiv3409710722replbq {margin:4px;}#yiv3409710722 #yiv3409710722ygrp-actbar div a:first-child {margin-right:2px;padding-right:5px;}#yiv3409710722 #yiv3409710722ygrp-mlmsg {font-size:13px;font-family:Arial, helvetica, clean, sans-serif;}#yiv3409710722 #yiv3409710722ygrp-mlmsg table {font-size:inherit;font:100%;}#yiv3409710722 #yiv3409710722ygrp-mlmsg select, #yiv3409710722 input, #yiv3409710722 textarea {font:99% Arial, Helvetica, clean, sans-serif;}#yiv3409710722 #yiv3409710722ygrp-mlmsg pre, #yiv3409710722 code {font:115% monospace;}#yiv3409710722 #yiv3409710722ygrp-mlmsg * {line-height:1.22em;}#yiv3409710722 #yiv3409710722ygrp-mlmsg #yiv3409710722logo {padding-bottom:10px;}#yiv3409710722 #yiv3409710722ygrp-msg p a {font-family:Verdana;}#yiv3409710722 #yiv3409710722ygrp-msg p#yiv3409710722attach-count span {color:#1E66AE;font-weight:700;}#yiv3409710722 #yiv3409710722ygrp-reco #yiv3409710722reco-head {color:#ff7900;font-weight:700;}#yiv3409710722 #yiv3409710722ygrp-reco {margin-bottom:20px;padding:0px;}#yiv3409710722 #yiv3409710722ygrp-sponsor #yiv3409710722ov li a {font-size:130%;text-decoration:none;}#yiv3409710722 #yiv3409710722ygrp-sponsor #yiv3409710722ov li {font-size:77%;list-style-type:square;padding:6px 0;}#yiv3409710722 #yiv3409710722ygrp-sponsor #yiv3409710722ov ul {margin:0;padding:0 0 0 8px;}#yiv3409710722 #yiv3409710722ygrp-text {font-family:Georgia;}#yiv3409710722 #yiv3409710722ygrp-text p {margin:0 0 1em 0;}#yiv3409710722 #yiv3409710722ygrp-text tt {font-size:120%;}#yiv3409710722 #yiv3409710722ygrp-vital ul li:last-child {border-right:none !important;}#yiv3409710722

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

"Danny Prasetyo" danny_06791

Selamat siang,saya mau minta tolong. saya memasukkan kode ini di dalam form saya.Kode VBA nya seperti di bawah ini

Option Explicit
Dim Berhenti As BooleanPrivate Sub UserForm_Activate()
Do Until Berhenti
    Label1 = FormatDateTime(Time, vbShortTime)
    DoEvents
Loop
End Sub
Private Sub UserForm_Terminate()
Berhenti = True
End Sub

Private Sub UserForm_Initialize()

Set MYRANGE = Sheet3.Range("D4")
Set MYRANGE = Range(MYRANGE, MYRANGE.End(xlDown))

For R = 1 To MYRANGE.Rows.Count
    ComboBox2.AddItem MYRANGE(R, 1)
Next REnd Sub

Nah, masalahnya adalah jika saya run form nya, terdapat "compile error : variable not defined" yang tertuju pada kata "MYRANGE DAN R"Kode VBA apa yang cocok untuk menggantikan masalah ini?Terima kasih sebelumnya.

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