Messages In This Digest (8 Messages)

1a.: Re: copy dan rename file From: him mah
1b.: Re: copy dan rename file From: o' Seno

2a.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: Liwu Florez
2b.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: siti Vi
2c.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: Liwu Florez
2d.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro From: Haps

3a.: Macro ngadat From: JR.Edi
3b.: Bls: [belajar-excel] Macro ngadat From: Juwono Radyanto Edi

View All Topics | Create New Topic

Messages

1a.: Re: copy dan rename file

Posted by: "him mah" himmah.mlg@gmail.com

Tue Dec 13, 2011 4:49 pm (PST)

iya, sudah bisa pak kid. makasih
ada tambahan lagi pak
misal combobox nya ada 2
cbofile1 dan cbofile2 cuma list file yang ditambilkan dimasing-masing
combobox berbeda
untuk cbofile1 list yang ditampilkan adalah daftar file dengan
karakter ke2 dan 3 = 03
untuk cbofile2 list yang ditampilkan adalah daftar file dengan
karakter ke2 dan 3 = 02

daftar filenya adalah sebagai berikut
A02A.CSV
B03B.CSV
C02C.CSV
D03D.CSV
E01E.CSV

terima kasih

Pada tanggal 12/12/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
> Pastikan jenis comboboxnya adalah activex combobox. Bukan form2 combobox
> yang biasanya di name box bernama drop down.
> Bila tetap error, coba sertakan filenya yang sederhana saja supaya size
> file tetap sesuai dengan peraturan milis.
>
> Wassalam,
> Kid.
>
> 2011/12/12 him mah <himmah.mlg@gmail.com>
>
>> **
>>
>>
>> sudah saya coba, tapi masih error dibagian ini (proses copy pastemya)
>>
>> If cboFile.ListIndex > -1 Then
>>
>> Pada tanggal 10/12/11, him mah <himmah.mlg@gmail.com> menulis:
>>
>> > terima kasih pak Kid, maksud saya juga seperti itu, file DATA.csv ini
>> > terkoneksi dengan link table yang ada di access, dan proses query nya
>> > ada di access, kemudian hasilnya ditampilkan (ditarik) kembali melalui
>> > file excel. maaf filenya belum saya coba, insya alloh hari senin
>> >
>> > Pada tanggal 09/12/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
>> >> Wa alaikumussalam Wr. Wb.
>> >>
>> >> Moga2 hal ini dimaksudkan untuk proses otomasi yang diawali dengan
>> >> menyiapkan data dengan nama file yang tetap sebagai bahan koneksi data.
>> >> 0. pada sheet pertama (misal sheet1), aktifkan mode design
>> >> 1. buat object combobox nya (pilih dari activex combo box -- blok bawah
>> >> dari insert object nya)
>> >> 2. klik kanan si object combo tadi, pilih properties (kalau gak ada
>> >> properties, berarti objectnya bukan activex, jadi ganti objectnya
>> >> dengan
>> >> combo jenis satunya lagi)
>> >> 3. properti Name diganti menjadi cboFile
>> >> 4. tulis di cell z1 : file1
>> >> 5. buat nama range di z1 itu, dengan
>> >> nama : myFile
>> >> refers to diisi :
>> >> =offset( $z$1,0,0,counta( $z:$z ) )
>> >>
>> >> 6. tekan OK
>> >>
>> >> 7. ke VBE
>> >>
>> >> 8. buat prosedur event open pada workbook
>> >> isinya :
>> >>
>> >> BuatDaftarFile
>> >>
>> >> 9. Insert module dan copas prosedur BuatDaftarFile berikut :
>> >> 'asumsi : sheet tempat daftar file ada di sheet pertama [ sheets(1) ]
>> >> rangenya di kolom z
>> >> public sub BuatDaftarFile()
>> >> Dim sFile As String
>> >> Dim lPos As Long
>> >> Dim shtAktif as worksheet
>> >>
>> >> set shtaktif=activesheet
>> >> sheets(1).activate
>> >>
>> >> with activesheet
>> >> 'hapus daftar yang lama
>> >> .cbofile.listfillrange=vbnullstring
>> >> .range("z1").currentregion.clearcontents
>> >>
>> >> 'buat list file yang baru
>> >> 'bagian ini bisa dipindah ke module general menjadi sebuah prosedur
>> >> ber-scope public dan diberi beberapa input parameter supaya re-useable
>> >> Application.DisplayAlerts = False
>> >> lpos=0
>> >> sFile = Dir$("C:\COBA\DATA\*.csv" )
>> >> Do While LenB(sFile) <> 0
>> >> .Range("z1").Offset(lPos).Value = sFile
>> >> sFile = Dir$
>> >> lPos = lPos + 1
>> >> Loop
>> >> Application.DisplayAlerts = True
>> >>
>> >> 'pasang daftar baru
>> >> .calculate
>> >> .cbofile.listfillrange="myFile"
>> >> end with
>> >> shtaktif.activate
>> >> end sub
>> >>
>> >> 10. kembali ke worksheet (tekan Alt F11)
>> >> 11. buat object activex commandbutton, bila perlu ganti namanya menjadi
>> >> cmdOK
>> >> 12. double click si commandbutton, dan isi prosedur event yang
>> >> terbentuk
>> >> dengan :
>> >>
>> >> if cbofile.listindex>-1 then
>> >> on error resume next
>> >> application.displayalerts=false
>> >> kill "C:\COBA\DATA.csv"
>> >> filecopy "C:\COBA\DATA\" & cbofile.text , "C:\COBA\DATA.csv"
>> >> err.clear
>> >> on error goto 0
>> >> application.displayalerts=true
>> >> endif
>> >>
>> >> 13. kembali ke worksheet (Alt F11), dan matikan mode design
>> >> 14. save file sebagai .xlsm atau .xls
>> >> 15. tutup file
>> >> 16. buka file lagi
>> >>
>> >> Wassalamualaikum Wr. Wb.
>> >> Kid.
>> >>
>> >>
>> >> 2011/12/9 him mah <himmah.mlg@gmail.com>
>> >>
>> >>> **
>> >>>
>> >>>
>> >>> Assalamu'alaikum Wr. Wb.
>> >>> mau tanya (karena internetnya lambat maaf kalau belum sempat search di
>> >>> arsip milis)
>> >>>
>> >>> kita punya beberapa file (dalam hal ini csv) yang ada di folder
>> >>> C:\COBA\DATA
>> >>> Misal nama file tersebut:
>> >>> 1. A.csv
>> >>> 2. B.csv
>> >>> 3. C.csv
>> >>> 4. D.csv
>> >>>
>> >>> kemudian daftar file tersebut akan masuk ke list yang ada di combobox
>> >>> (form control toolbox)
>> >>> setelah kita pilih file tersebut dari combobox, misal file B.csv
>> >>>
>> >>> maka file B.csv yang ada di folder C:\COBA\DATA akan di copy dan di
>> >>> paste ke folder C:\COBA dengan nama DATA.csv (rename)
>> >>>
>> >>> jika di folder C:\COBA sebelumnya sudah ada file DATA.csv maka file
>> >>> yang kita paste tadi akan mereplace file sebelumnya
>> >>>
>> >>> terima kasih
>> >>>
>> >>>
>> >>>
>> >>
>> >
>>
>>
>>
>

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (8)
1b.: Re: copy dan rename file

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Tue Dec 13, 2011 10:12 pm (PST)

mungkin Mr Kid masih sibuk...
maaf ikut 'nimbrung' meng-Code

Public Sub mBuatDaftarFile()
' pinjam coding dari Mr Kid
' dimodifikasi sedikit oleh o'Seno
'========================================
' bayangkan bahwa di path *F:\COBA\DATA\*
' ada beberapa file antara lain
' X02XX.CSV
' W03WC.CSV
' Q02QWERY.CSV
' P02PZZ.CSV
' D03D.CSV
' C02C.CSV
' B03B.CSV
' A02A.CSV
'========================================

Dim sFile As String
Dim lPos As Long, lPos2 As Long, i As Integer
Dim shtAktif As Worksheet
Dim *ArCbo(1 To 2)* As Object, *ListRng *As Range

Set shtAktif = ActiveSheet
Sheets(1).Activate

With ActiveSheet
Set ArCbo(1) = .cboFile ' <---!!
Set ArCbo(2) = .CboFile2 ' <---!!

.cboFile.ListFillRange = vbNullString
Set ListRng = .Range("z1").CurrentRegion ' <---!!
ListRng.ClearContents

' buat list file yang baru
' bagian ini bisa dipindah ke module general menjadi
' sebuah prosedur ber-scope public dan diberi beberapa
' input parameter supaya re-useable
Application.DisplayAlerts = False

For i = 2 To 3 '<<-- 2, 3 menunjukkan syarat nama file dari himmah
' ini perlu diperbaiki karena mngkin himmah berubah
' pikiran lagi : file X01XXXX.csv *DAN* X10XXXX.csv

Set ListRng = ListRng.Offset(0, i - 2) ' <---!!
lPos = 0
sFile = Dir$(*"F:\COBA\DATA*\?0" & i & "*.csv") '<-WildCard nya!!
' ~~~~~~~~~~~~~~~~~~
Do While LenB(sFile) <> 0
ListRng(1).Offset(lPos).Value = sFile
sFile = Dir$
lPos = lPos + 1
Loop

Set ListRng = .Range("z1").CurrentRegion.Offset(0, i - 2) ' <---!!
Application.DisplayAlerts = True
.Calculate
ArCbo(i - 1).ListFillRange = ListRng.Address '<<---!!
Next i
End With

shtAktif.Activate
End Sub

CMIIW, tks, br, & wassalamualailkum wr wb.
'oSeno

2011/12/14 him mah <himmah.mlg@gmail.com>

> **
>
> iya, sudah bisa pak kid. makasih
> ada tambahan lagi pak
> misal combobox nya ada 2
> cbofile1 dan cbofile2 cuma list file yang ditambilkan dimasing-masing
> combobox berbeda
> untuk cbofile1 list yang ditampilkan adalah daftar file dengan
> karakter ke2 dan 3 = 03
> untuk cbofile2 list yang ditampilkan adalah daftar file dengan
> karakter ke2 dan 3 = 02
>
> daftar filenya adalah sebagai berikut
> A02A.CSV
> B03B.CSV
> C02C.CSV
> D03D.CSV
> E01E.CSV
>
> terima kasih
>
> Pada tanggal 12/12/11, Kid Mr. <mr.nmkid@gmail.com> menulis:
> > Pastikan jenis comboboxnya adalah activex combobox. Bukan form2 combobox
> > yang biasanya di name box bernama drop down.
> > Bila tetap error, coba sertakan filenya yang sederhana saja supaya size
> > file tetap sesuai dengan peraturan milis.
> >
> > Wassalam,
> > Kid.
>

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

2a.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Liwu Florez" liwu_handoko@yahoo.com liwu_handoko

Tue Dec 13, 2011 7:32 pm (PST)

Bu Hapsari, kebetulan saya juga sdg mengolah raport sperti tsb, saya sdh download ttp klo saya coba mo print kog muncul error (terlampir). Mohon pencerahan Ibu, terima kasih.

Handoko

________________________________
From: Haps <hapsari.stlizbeth@gmail.com>
Sent: Monday, December 12, 2011 9:37 PM

Perbaikan perterjemahan nilai ke katakata, pada rumus yg
dikirim pertama: 10 diterjemahakn sbg "Satu Nol"
Jika hal ini tidak dikehendaki, rumusnya dapat diubah (bukan diRubah) dengan

=IF(--INT(G14)=0,"Nol ",IF(--(LEFT(TEXT(INT(G14),"000")))=1,"Seratus ",
IF(--(LEFT(TEXT(INT(G14),"000")))>1,INDEX(N,--(LEFT(TEXT(INT(G14),"000"))))&"Ratus ","")))&
IF(--(MID(TEXT(INT(G14),"000"),2,1))=0,"",IF(--(MID(TEXT(INT(G14),"000"),2,1))=1,
CHOOSE((--(RIGHT(TEXT(INT(G14),"0")))=0)*1+((--(RIGHT(TEXT(INT(G14),"0")))=1)*2)+
((--(RIGHT(TEXT(INT(G14),"0")))>1)*3),"Sepuluh ","Sebelas ",INDEX(N,--(RIGHT(TEXT(INT(G14),"0"))))&"Belas "),
IF(--(MID(TEXT(INT(G14),"000"),2,1))>1,INDEX(N,--(MID(TEXT(INT(G14),"000"),2,1)))&"Puluh ")))&
IF(OR(--(MID(TEXT(INT(G14),"000"),2,1))=1,--(RIGHT(TEXT(INT(G14),"0")))=0),"",
INDEX(N,--(RIGHT(TEXT(INT(G14),"0")))))&"Koma "&IF(--LEFT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol ",
INDEX(N,LEFT(TEXT(MOD(G14,1)*100,"00"))))&IF(--RIGHT(TEXT(MOD(G14,1)*100,"00"))=0,"Nol ",
INDEX(N,RIGHT(TEXT(MOD(G14,1)*100,"00"))))

rumus ini perlu bantuan sebuah 'Array Konstanta' yg disimpan dalam Defne Name / gambarnya spt ini :

File lengkap: dapat di unduh di :
http://www.box.com/s/299hjy4t95ccy17ntyhe

===========================================================
ModsNote:
Wadhuh.... penjelasan per GAMBAR hasil skrinsyut, kok
"sak windows-wondowsnya" di kirim semuah...
Mbok ya di-CROP dulu, supaya tidak boros bandwidth, dan
menjadi lebih jelas ketika dilihat
**Gambar yg telah di-crop akan disusulkan (oleh Moderator)

Request Pak Liwu 12 Des, berjudul "Mohon Bantuannya", juga
BELUM SELESAI (milis belum menerima "Gelengan" ataupun
"Anggukan" dari Pak Liwu, so Milis belum tahu apakan usul
/solusi yg diberikan oleh member itu diterima atau tidak.)
Lha ini malah sudah mengajukan request baru..??!
Ya ndak pa-pa, tapi sprti-nya ada yg kurang 'gimana..gitu..
===========================================================

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
2b.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "siti Vi" setiyowati.devi@gmail.com siti_vi

Tue Dec 13, 2011 7:58 pm (PST)

Gambar warning message dari pak Liwu setelah diCrop bagian yg perlu saja
mungkin pak Liwu belum mengikuti apa yg tertulis dlm msgBox tsb
- mengEnable Macro atau mengklik Tombol Helep)

[image: alert message kala makro belum di-Enabled.PNG]

Di dalam workbook kiriman suster Hapsari, ada makro kecil (untuk
mengotomatiskan
perintah PRINT, dengan TOMBOL), selain makro kecil itu; semua "otomatisasi"
dibangun
dengan RUMUS termasuk cara menterjemahkan [10 menjadi "Sepuluh"]

Jika ingin makro bisa BERJALAN (RUN) dalam workbook anda
Excel harus disiapkan untuk MAU menjalankan makro

*Excel 2003*
menu TOOLS > Macro > Security.. > Pilih MEDIUM LEVEL

Nantinya setiap membuka workbook bermakro akan ada Opsi
** Men-Disabled makro atau
** Meng-Enable makro

*Excel 2007*
Office Button > Excel Options > Trust Center > Trust Center Setting > Macro
Setting
pilih : Disable all macro with notifikaction

Nantinya setiap membuka workbook bermakro akan ada Bar OPTION dibawah
Ribbon
dan ketika diklik akan ada ppilihan
** Men-Disabled makro atau
** Meng-Enable makro
[image: disable enable macro.PNG]

2011/12/14 Liwu Florez <liwu_handoko@yahoo.com>

> **
>
> Bu Hapsari, kebetulan saya juga sdg mengolah raport sperti tsb, saya sdh
> download ttp klo saya coba mo print kog muncul error (terlampir). Mohon
> pencerahan Ibu, terima kasih.
> Handoko
>

*> ________________________________
> From: Haps <hapsari.stlizbeth@gmail.com>
> Sent: Monday, December 12, 2011 9:37 PM
> Perbaikan perterjemahan nilai ke katakata, pada rumus yg
> dikirim pertama: 10 diterjemahakn sbg "Satu Nol"
> Jika hal ini tidak dikehendaki, rumusnya dapat diubah (bukan diRubah)
dengan
> --- tedxt rumus bla bla bla ---*

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
2c.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Liwu Florez" liwu_handoko@yahoo.com liwu_handoko

Tue Dec 13, 2011 10:57 pm (PST)

saya sdh mengikuti petunjuk mbak siti (sy pke yg 2007), tp setelah buka lagi kog g muncul box Ms Office Excell security notice dan button cetak masih muncul seperti gbr pertama ya, mohon pencerahan... nuwun

________________________________
From: siti Vi <setiyowati.devi@gmail.com>
Sent: Tuesday, December 13, 2011 7:58 PM

Gambar warning message dari pak Liwu setelah diCrop bagian yg perlu saja
mungkin pak Liwu belum mengikuti apa yg tertulis dlm msgBox tsb
- mengEnable Macro atau mengklik Tombol Helep)

Di dalam workbook kiriman suster Hapsari, ada makro kecil (untuk mengotomatiskan
perintah PRINT, dengan TOMBOL), selain makro kecil itu; semua "otomatisasi" dibangun
dengan RUMUS termasuk cara menterjemahkan [10 menjadi "Sepuluh"]

Jika ingin makro bisa BERJALAN (RUN) dalam workbook anda
Excel harus disiapkan untuk MAU menjalankan makro

Excel 2007
Office Button > Excel Options > Trust Center > Trust Center Setting > Macro Setting
pilih : Disable all macro with notifikaction

Nantinya setiap membuka workbook bermakro akan ada Bar OPTION dibawah Ribbon dan ketika diklik akan ada pilihan
** Men-Disabled makro atau
** Meng-Enable makro

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (10)
2d.: Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Tue Dec 13, 2011 11:41 pm (PST)

dicoba lagi ya pak; gambar-gambar panduan sekedarnya ada di sheet lampiran

kalau bapak bekerja di jaringan, tanyakan juga kepada 'mas admin'-nya
apakah sistem jaringan yg dipakai mengijinkan makro enable...

selain itu baik juga menyempatkan diri ke:
http://constantcontact.custhelp.com/app/answers/detail/a_id/4868/~/enabling-macros-in-excel
http://office.microsoft.com/en-us/excel-help/enable-or-disable-macros-in-office-documents-HA010031071.aspx
http://office.microsoft.com/en-us/excel-help/change-macro-security-settings-in-excel-HP010096919.aspx
http://www.systems2win.com/c/macros.htm

dan masih banyak lagi (carilah melalui web-browser anda, misal dengan kata
kunci :
"enabling macro excel 2007"

Btw, thanks to Yu siti, yg menyempatkan menulis posting..
( sesama suster dilarang saling 'mleroki')

*2011/12/14 Liwu Florez <liwu_handoko@yahoo.com>
*
>
> * *
>
> *saya sdh mengikuti petunjuk mbak siti (sy pke yg 2007), tp setelah buka
> lagi kog g muncul box Ms Office Excell security notice dan button cetak
> masih muncul seperti gbr pertama ya, mohon pencerahan... nuwun
> *
> ________________________________
> From: siti Vi <setiyowati.devi@gmail.com>
> Sent: Tuesday, December 13, 2011 7:58 PM
>
> Gambar warning message dari pak Liwu setelah diCrop bagian yg perlu saja
> mungkin pak Liwu belum mengikuti apa yg tertulis dlm msgBox tsb
> - mengEnable Macro atau mengklik Tombol Helep)
>
> Di dalam workbook kiriman suster Hapsari, ada makro kecil (untuk
> mengotomatiskan
> perintah PRINT, dengan TOMBOL), selain makro kecil itu; semua
> "otomatisasi" dibangun
> dengan RUMUS termasuk cara menterjemahkan [10 menjadi "Sepuluh"]
>
> Jika ingin makro bisa BERJALAN (RUN) dalam workbook anda
> Excel harus disiapkan untuk MAU menjalankan makro
>
> Excel 2007
> Office Button > Excel Options > Trust Center > Trust Center Setting >
> Macro Setting
> pilih : Disable all macro with notifikaction
>
> Nantinya setiap membuka workbook bermakro akan ada Bar OPTION dibawah
> Ribbon dan ketika diklik akan ada pilihan
>
> ** Men-Disabled makro atau
> ** Meng-Enable makro
>
>
>

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

3a.: Macro ngadat

Posted by: "JR.Edi" juwono.re2002@yahoo.com juwono.re2002

Tue Dec 13, 2011 11:12 pm (PST)

Dear Pakar Excel,

Saya mempunyai problem macro yang ngadat, dengan pesan (setelah di
croping) seperti di bawah. Jika di OK, maka macro nya tidak jalan, dan
icon Design Mode pada Control menyala.
Pada awalnya macro saya buat di V 2003 bisa jalan dengan baik, setelah
itu saya rubah ke 2007 dengan type file *.xlm, dan disitulah mulai
ngadat. Macro security sudah di Enable. Sudah saya uthak-athik, tetap
saja saya tidak berkutik...he..he..

Mohon pencerahannya kira-kira kenapa ya?

terima kasih

JRE

Back to top
Reply to sender | Reply to group | Reply via web post
Messages in this topic (2)
3b.: Bls: [belajar-excel] Macro ngadat

Posted by: "Juwono Radyanto Edi" juwono.re2002@yahoo.com juwono.re2002

Wed Dec 14, 2011 12:50 am (PST)

Dear pakar,

Tambahan info, untuk Macro lainnya bisa berjalan dengan normal.
Berikut ini record macronya, tapi maaf file nya tidak saya sertakan berhubung file nya confidential

Sub SLIP_1()
' SLIP_1 Macro
' Select 1 lembar slip
'
    Range("H3").Select
    Range("C3:H39").Select
    Range("H3").Activate
End Sub

Sub SLIP_2()
' SLIP_2 Macro
' Select 2 Slip Gaji
'
    Range("O3").Select
    Range("C3:O39").Select
    Range("O3").Activate
End Sub

Sub SLIP_4()
' SLIP_4 Macro
' Select 4 Slip Gaji
'
    Range("O3").Select
    Range("C3:O78").Select
    Range("O3").Activate
End Sub

Sub SLIP_3()
' SLIP_3 Macro
' Macro recorded 06/09/2011 by hrd
'
    ActiveSheet.Shapes("Picture 3").Select
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = False
    End With
    Range("O42").Select
    Range("J42:O78").Select
    Range("O42").Activate
    Selection.Borders(xlDiagonalDown).LineStyle = xlNone
    Selection.Borders(xlDiagonalUp).LineStyle = xlNone
    Selection.Borders(xlEdgeLeft).LineStyle = xlNone
    Selection.Borders(xlEdgeTop).LineStyle = xlNone
    Selection.Borders(xlEdgeBottom).LineStyle = xlNone
    Selection.Borders(xlEdgeRight).LineStyle = xlNone
    Selection.Borders(xlInsideVertical).LineStyle = xlNone
    Selection.Borders(xlInsideHorizontal).LineStyle = xlNone
    Selection.Font.ColorIndex = 2
    Range("O3").Select
    Range("C3:O78").Select
    Range("O3").Activate
End Sub

Sub Kembalikan()
' Kembalikan Macro
' Macro recorded 06/09/2011 by hrd
'
    Range("H42").Select
    Range("C42:H78").Select
    Range("H42").Activate
    Selection.Copy
    Range("O42").Select
    Range("J42:O78").Select
    Range("O42").Activate
    Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    ActiveSheet.Shapes("Picture 3").Select
    Application.CutCopyMode = False
    With Selection
        .Placement = xlMoveAndSize
        .PrintObject = True
    End With
    Range("Q6").Select
End Sub

Sub PRINT_SLIP()
' PRINT_SLIP Macro
' Untuk nge print Slip yang di pilih
'
    Selection.PrintOut Copies:=1, Collate:=True
End Sub

Sub SLIP_DW_1()
' SLIP_DW_1 Macro
' Macro recorded 06/09/2011 by hrd
'
    Range("J5").Select
    Range("B5:J66").Select
    Range("J5").Activate
End Sub

Sub SLIP_DW_2()
' SLIP_DW_2 Macro
' Macro recorded 06/09/2011 by hrd
'
    Range("B5").Select
    ActiveWindow.SmallScroll Down:=34
    Range("B5:T66").Select

End Sub

Sub SLIP_DW_3()
' SLIP_DW_3 Macro
' Macro recorded 06/09/2011 by hrd
'
    Range("B5").Select
    Range("B5:AD66").Select
End Sub

Sub PRINT_PILIHAN_DW()
' PRINT_PILIHAN_DW Macro
' Macro recorded 06/09/2011 by hrd
'
    Selection.PrintOut Copies:=1, Collate:=True
    ActiveSheet.Shapes("Button 209").Select
    Selection.OnAction = "PRINT_PILIHAN_DW"
End Sub

Sub PRINT_DW_SEMUA()
' PRINT_DW_SEMUA Macro
' Macro recorded 06/09/2011 by hrd
'
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
End Sub

Terima kasih
JRE

________________________________
Dari: JR.Edi <juwono.re2002@yahoo.com>
Dikirim: Rabu, 14 Desember 2011 15:05

Dear Pakar Excel,
Saya mempunyai problem macro yang ngadat, dengan pesan (setelah di croping) seperti di bawah. Jika di OK, maka macro nya tidak jalan, dan icon Design Mode pada Control menyala.
Pada awalnya macro saya buat di V 2003 bisa jalan dengan baik, setelah itu saya rubah ke 2007 dengan type file *.xlm, dan disitulah mulai ngadat. Macro security sudah di Enable. Sudah saya uthak-athik, tetap saja saya tidak berkutik...he..he..

Mohon pencerahannya kira-kira kenapa ya?

terima kasih

JRE

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

Create New Topic | Visit Your Group on the Web

Messages

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

MARKETPLACE

Stay on top of your group activity without leaving the page you're on - Get the Yahoo! Toolbar now.

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

EXCEL FEED

Rabu, 14 Desember 2011

[belajar-excel] Digest Number 1437

Messages In This Digest (8 Messages)

Messages

Re: copy dan rename file

Posted by: "him mah" himmah.mlg@gmail.com

Tue Dec 13, 2011 4:49 pm (PST)

Re: copy dan rename file

Posted by: "o' Seno" ontoseno84@gmail.com ontoseno84@ymail.com

Tue Dec 13, 2011 10:12 pm (PST)

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Liwu Florez" liwu_handoko@yahoo.com liwu_handoko

Tue Dec 13, 2011 7:32 pm (PST)

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "siti Vi" setiyowati.devi@gmail.com siti_vi

Tue Dec 13, 2011 7:58 pm (PST)

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Liwu Florez" liwu_handoko@yahoo.com liwu_handoko

Tue Dec 13, 2011 10:57 pm (PST)

Re: Mengolah data nilai Raport dan Mencetak dengan Macro

Posted by: "Haps" hapsari.stlizbeth@gmail.com liz_indri_haps

Tue Dec 13, 2011 11:41 pm (PST)

Macro ngadat

Posted by: "JR.Edi" juwono.re2002@yahoo.com juwono.re2002

Tue Dec 13, 2011 11:12 pm (PST)

Bls: [belajar-excel] Macro ngadat

Posted by: "Juwono Radyanto Edi" juwono.re2002@yahoo.com juwono.re2002

Wed Dec 14, 2011 12:50 am (PST)

Tidak ada komentar:

Posting Komentar

Followers

Blog Archive

About Me