Berhasilthanks kang Bagus...jan Raisin thanks juga!!
Pada 4 Oktober 2013 04.07, Bagus ba...@kingjim.co.id menulis:
**
**
Dear Kesi;
Pakai kolom bantu boleh ya...
File terlampir
Wassalam
~ Bagus ~
- Original Message -
*From:* KESI VIZZIANTI
Dear all
B-excel
Boleh tau fungsi dari code
On error resume next, apa ya?
Salam
Neza
Dikirim dari Yahoo! Mail pada Android
Dear Bro Hendrik,
kok nggak bisa ya.. run time error
maaf newbe nih... hihihihiihi
mohon bantuannya lagi ya bro...
many thanks,
cheers
Ahmad H
Dari: hendrik karnadi hendrikkarn...@yahoo.com
Kepada: belajar-excel@yahoogroups.com
hai juga Miss Jan,
waduh... many thanks untuk solusinya, mantaaa.
tapi masih ada tapi nya nih... :(
kalau yang seperti itu saya gunakan untuk diinternal,
sebenarnya nantinya jika sudah bisa di copy paste sheet to sheet, masing sheet
PT A, PT B dst bakalan saya move or copy satu satu,
Fungsinya, jika ada kesalahan (On error), contohnya seperti macro yang baru
saja dirilis oleh Pak De mengenai filtering, lanjutkan saja (resume next).
Salam,
HK
From: neza ibaneza nezaiban...@yahoo.co.id
To: belajar-excel@yahoogroups.com
Sent: Friday, 4
Saya sdh tes dan filenya masih disimpan.
Coba kirim file yang ada run time errornya karena dengan
mengetahui/memperbaiki kesalahan tersebut kita dapat semakin memahami dan
menikmati macro.
JIka anda mau email satu persatu (balasan email anda kepada Miss Jan) kenapa ga
langung disave sebagai
Hai Marone.. ikutan ya.. boleh kan.. tapi gak ikut urun solusi ya..
kalo mau memunculkan kata2 DATA SAMA di user form.. tinggal ketik saja di
kotak Caption milik si user form..
ini Jan kutip dari pertanyaan sebelumnya:
tolong saya dibantu untuk membuat system untuk bisa memberi warning jika
Jangan putus asa dulu.
Coba copas lagi macro ini pada VBE Sheet (Module1).
Sub Masukin()
Dim SrcData As Range, Rng As Range
Dim cKode As New Collection
Dim LRow As Long
Application.ScreenUpdating = False
Sheets(rekap detail).Activate
Set SrcData = Sheets(rekap
dear Miss Jan,
thanks atas bantuannya Miss,
yes miss dengan cara itu ok sip, its work..
tapi kalau aja.. hehehhehe bisa by command button..
hasil nya pastinya akan lebih sempurna dengan format atau bentuk data yang
sesuai dengan yang diinginkan.
bai de wei... eni wei... bas wei...
Dear Bro hendrik.
Mantpp, Its Work..
tengkyuu so much...
Best Regards,
Ahmad H
Dari: hendrik karnadi hendrikkarn...@yahoo.com
Kepada: belajar-excel@yahoogroups.com belajar-excel@yahoogroups.com
Dikirim: Jumat, 4 Oktober 2013
Sama2 pak, terima kasih juga kepada Pak De Premor yang telah membuat code
asinya.
Coba juga ramuan Pak De dalam email terakhir yang bisa langsung copy sheet
sebagai workbook (sdh saya coba) dan langsung kirim email (yang ini silakan
anda coba dan bagi2 hasil tesnya).
Salam,
HK
Supaya ndak perlu mengaktifkan sheet rekap detail, coba baris kode :
Sheets(rekap detail).Activate
Set SrcData = Sheets(rekap detail).Range(E2,
Range(E2).End(xlDown))
diubah menjadi :
Set SrcData = Sheets(rekap detail).Range(E2, Sheets(rekap detail).
Range(E2).End(xlDown))
Wassalam,
Assalamualikum...
mohon bantuannya kembali teman2,
saya sudah membuat coding VBA dari copy paste sebuah tabel, tapi hasilnya tidak
sesuai yang saya inginkan,
harap bantuannya dari teman2 sekalin...
untuk lebih jelas sya sudah lapirkan filenya
terima kasih
Salam
Shenly ^^*
tst.xlsx
Hai Shenly,
Coba isi prosedurnya diberi script berikut :
Dim rngData As Range, lRows As Long 'variabel range data beserta
jumlah barisnya
Dim rngTarget As Range 'variabel range posisi paste di
kolom A
Set rngData = Range(f1).CurrentRegion.Offset(1).Resize(, 1)
14 matches
Mail list logo