contoh yg di maksud
- ‹ Older
-
4 tahun lalu
-
terlampir contohnya
Note :
- filenya di ekstrak dulu ya
- pastikan semua file dalam 1 folder
- pastikan nama sheet adalah "data" untuk sheet pada file-file yang akan diambil / disalin datanya
- pastikan nama sheet adalah "input" untuk file targetnya
kalau berhasil, harusnya tampilannya seperti ini :
-
Keren, terima kasih mas @manweljs_
kalau mau tambahin saat klik Ambil Data muncul seperti tombol browse pilih file gitu, jadi kita bisa pilih mau ambil semua data atau pilih sebagian saja, bisa mas, terima kasih sebelumnya mas... -
atau lebih tepat ini contohnya, terima kasih...
-
sorry baru bisa menjawab, lagi banyak kesibukan :)
bisa aja dengan metode array. untuk contohnya coba cek file terlampir. jika sudah sesuai yg diinginkan silahkan dikembangkan sendiri
-
Terima kasih mas @manweljs_ sangat mebantu, sedikit ada kendala mas, gimana klo tempat copy (sheet inputnya) kolomnya tidak berurutan.
-
@Aupe ...gimana klo tempat copy (sheet inputnya) kolomnya tidak berurutan.
Tidak berurutan bagaimana?
-
Sudah bisa mas @manweljs_ terima kasih banyak atas bantuannya, setalah wara wiri mencari, (maksundya data yang di copy ke sheet input lompat2 misalkan kolom A, C, E gitu)
-
Sama-sama mas @Aupe :)
-
Mas @manweljs_ bisa dibantu, bagaimana memunculkan msgbox Gagal copy data..!
hal ini dikarenakan semisal source yg di panggil tidak sesua dengan format excel atau judul sheetnya.
terima kasih -
Di sunting 4 tahun lalu oleh manweljs_
kalau masalah error handling gini bisa gak kelar2 nanti diskusinya :)
jadi gini, idenya adalah menggunakan error trap pada saat user mengambil file, periksa nama sheetnya, jika nama sheetnya tidak cocok maka pasti akan terjadi error, nah saat terjadi error inilah tampilkan pesan gagal setelah pesan gagal ditampilkan langsung exit sub aja.
contohnya pada file yang saya lampirkan :
... On Error Resume Next Set ws = xwb.Worksheets("data") ' <-- disini jika tidak ada nama sheet "data" pasti akan terjadi error If Err.Number <> 0 Then '<-- jika terjadi error maka err.number pasti bukan 0 MsgBox "gagal" '<-- karena kriteria if terpenuhi maka akan menampilkan pesan ini Exit Sub '<-- kemudian langsung exit sub saat error terjadi, artinya baris skrip selanjutnya tidak di proses ... -
Siap :), Terima kasih mas @manweljs_ sukses terus mas
-
sorry baru bisa menjawab, lagi banyak kesibukan :)
bisa aja dengan metode array. untuk contohnya coba cek file terlampir. jika sudah sesuai yg diinginkan silahkan dikembangkan sendiri
[attachment:5ec2436fc806e]
gan saya tertarik dengan bahasan yang ada disini..
bolehkah saya join?ingin belajar lebih tentang VBA khususnya import data dari excel ini..
saya udah coba buka file dari apa yang udah dibuat mas @manweljs_,
saya ingin bertanya, tentang Range("B" & x) yang ada di dalam codenya, itu mengacu pada posisi paste yah gan?
bisa tolong jelaskan kenapa hasil yang di-paste nya berada di B3?
terima kasih -
oh iya, hasil yang telah dibuat dari VBA, memang tidak bisa di undo yah gan? atau ada cara supaya apayang udah di-perform dari VBA nya bisa di-undo?
-
Di sunting 4 tahun lalu oleh manweljs_
...
saya ingin bertanya, tentang Range("B" & x) yang ada di dalam codenya, itu mengacu pada posisi paste yah gan?
...betul
bisa tolong jelaskan kenapa hasil yang di-paste nya berada di B3?
karena baris skrip ini :
... x = .Range("B" & Rows.Count).End(xlUp).Row + 1 ...
fungsi baris ini adalah menentukan baris terakhir di kolom B, jadi nilai x adalah nilai baris terakhir ditambahkan 1 (...Row + 1). jika baris terakhir adalah baris 2 maka akan ditambahkan 1 = 3.
sehingga nilai Range("B" & x) = Range("B3")oh iya, hasil yang telah dibuat dari VBA, memang tidak bisa di undo yah gan? atau ada cara supaya apayang udah di-perform dari VBA nya bisa di-undo?
setau saya tidak ada cara melakukan undo setelah proses makro dijalankan. trik satu-satunya adalah save file sebelum makro dijalankan, jika terjadi kesalahan tinggal re-open lagi.
-
betul
karena baris skrip ini :
... x = .Range("B" & Rows.Count).End(xlUp).Row + 1 ...
fungsi baris ini adalah menentukan baris terakhir di kolom B, jadi nilai x adalah nilai baris terakhir ditambahkan 1 (...Row + 1). jika baris terakhir adalah baris 2 maka akan ditambahkan 1 = 3.
sehingga nilai Range("B" & x) = Range("B3")setau saya tidak ada cara melakukan undo setelah proses makro dijalankan. trik satu-satunya adalah save file sebelum makro dijalankan, jika terjadi kesalahan tinggal re-open lagi.
nice infonya gann, thank you banget yahhhh
-
kalau masalah error handling gini bisa gak kelar2 nanti diskusinya :)
jadi gini, idenya adalah menggunakan error trap pada saat user mengambil file, periksa nama sheetnya, jika nama sheetnya tidak cocok maka pasti akan terjadi error, nah saat terjadi error inilah tampilkan pesan gagal setelah pesan gagal ditampilkan langsung exit sub aja.
contohnya pada file yang saya lampirkan :
... On Error Resume Next Set ws = xwb.Worksheets("data") ' <-- disini jika tidak ada nama sheet "data" pasti akan terjadi error If Err.Number <> 0 Then '<-- jika terjadi error maka err.number pasti bukan 0 MsgBox "gagal" '<-- karena kriteria if terpenuhi maka akan menampilkan pesan ini Exit Sub '<-- kemudian langsung exit sub saat error terjadi, artinya baris skrip selanjutnya tidak di proses ...gan mau tanya, mengenai If error ini, saya udah coba masukan script nya tapi kenapa gk bisa yah?
kira2 gimana yah pake code ini?terima kasih
-
Di sunting 4 tahun lalu oleh manweljs_
@Shinzuriki ...saya udah coba masukan script nya tapi kenapa gk bisa yah?...
saya juga gak tau kenapa, karena saya gak tau skrip yg anda buat itu seperti apa.
-
@manweljs_ saya juga gak tau kenapa, karena saya gak tau skrip yg anda buat itu seperti apa.
sorry baru bales gan
skrip nya sama seperti yang agan lampirkan di atas gan
-
2 tahun lalu
Selamat malam mas @manweljs_ mau tanya,
jika saya ingin ambil row a file data dan di pindahkan ke row C atau B di file run scriptnya bagaimana ya?
terimakasih