14 Messages
Digest #4701
2a
Re: Menulis nilai dengan desimal tertentu dari cell worksheet ke tex by "Mr. Kid" nmkid.family@ymail.com
5a
Re: Cara cek file open dengan delete file dimqna file itu dibutuhkan by "Mr. Kid" nmkid.family@ymail.com
5c
Re: Cara cek file open dengan delete file dimqna file itu dibutuhkan by "Mr. Kid" nmkid.family@ymail.com
Messages
Wed Jan 30, 2019 9:35 pm (PST) . Posted by:
"Reza Suhartono" reza.fabregas
Dear Senior,
Apakah ada yg bisa bantu kenapa ya saat saya copy paste sebuah tanggal dari 1 excel ke document excel yg lain tanggalnya slalu brubah padahal format tanggalnya slalu sama. Contoh diexcel yg akan dicopy tanggal 1 jan 18 tp saat dicopy ke excel yg lain brubah menjadi 31 dec 13. Karena yg akan dicopy paste banyak jadinya tidak mungkin dirubah 1 per 1.Mohon bantuannya para senior settingan apa yg harus dirubah.
Salam,Reza
Apakah ada yg bisa bantu kenapa ya saat saya copy paste sebuah tanggal dari 1 excel ke document excel yg lain tanggalnya slalu brubah padahal format tanggalnya slalu sama. Contoh diexcel yg akan dicopy tanggal 1 jan 18 tp saat dicopy ke excel yg lain brubah menjadi 31 dec 13. Karena yg akan dicopy paste banyak jadinya tidak mungkin dirubah 1 per 1.Mohon bantuannya para senior settingan apa yg harus dirubah.
Salam,Reza
Wed Jan 30, 2019 10:58 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
hmmm...
yang seperti ini kalau sudah berlangsung lama dan data sudah banyak, maka
bakal repot...
coba ke menu File -> Options -> pane Advanced -> cari bagian When
calculating this workbook atau semacamnya lah -> hilangkan centang dari
opsi Use 1904 date system atau semacamnya lah
Ada baiknya, seluruh komputer diset-default nya sama. Jika opsi 1904 itu di
centang, maka semua komputer juga dicentang. Kalau tidak, maka semuanya
juga tidak.
1904 date system : 1 Jan 1904 bernilai serial date 1
1900 date system : 1 Jan 1900 bernilai serial date 1 (default saat install)
Data yang di-entry dengan 1900 date system, dibuka di komputer dengan 1904
date system perlu dikurangi 1461
Data yang di-entry dengan 1904 date system, dibuka di komputer dengan 1900
date system perlu ditambah 1461
Regards,
Kid
On Thu, Jan 31, 2019 at 12:39 PM Reza Suhartono reza.fabregas@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Senior,
>
> Apakah ada yg bisa bantu kenapa ya saat saya copy paste sebuah tanggal
> dari 1 excel ke document excel yg lain tanggalnya slalu brubah padahal
> format tanggalnya slalu sama. Contoh diexcel yg akan dicopy tanggal 1 jan
> 18 tp saat dicopy ke excel yg lain brubah menjadi 31 dec 13. Karena yg akan
> dicopy paste banyak jadinya tidak mungkin dirubah 1 per 1.
> Mohon bantuannya para senior settingan apa yg harus dirubah.
>
> Salam,
> Reza
>
>
>
yang seperti ini kalau sudah berlangsung lama dan data sudah banyak, maka
bakal repot...
coba ke menu File -> Options -> pane Advanced -> cari bagian When
calculating this workbook atau semacamnya lah -> hilangkan centang dari
opsi Use 1904 date system atau semacamnya lah
Ada baiknya, seluruh komputer diset-default nya sama. Jika opsi 1904 itu di
centang, maka semua komputer juga dicentang. Kalau tidak, maka semuanya
juga tidak.
1904 date system : 1 Jan 1904 bernilai serial date 1
1900 date system : 1 Jan 1900 bernilai serial date 1 (default saat install)
Data yang di-entry dengan 1900 date system, dibuka di komputer dengan 1904
date system perlu dikurangi 1461
Data yang di-entry dengan 1904 date system, dibuka di komputer dengan 1900
date system perlu ditambah 1461
Regards,
Kid
On Thu, Jan 31, 2019 at 12:39 PM Reza Suhartono reza.fabregas@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Senior,
>
> Apakah ada yg bisa bantu kenapa ya saat saya copy paste sebuah tanggal
> dari 1 excel ke document excel yg lain tanggalnya slalu brubah padahal
> format tanggalnya slalu sama. Contoh diexcel yg akan dicopy tanggal 1 jan
> 18 tp saat dicopy ke excel yg lain brubah menjadi 31 dec 13. Karena yg akan
> dicopy paste banyak jadinya tidak mungkin dirubah 1 per 1.
> Mohon bantuannya para senior settingan apa yg harus dirubah.
>
> Salam,
> Reza
>
>
>
Wed Jan 30, 2019 10:48 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Jika cells sudah di format number sesuai kebutuhan, maka tampilan di cells
bisa diambil dengan properti Text.
Kalkulasinya lebih baik dilakukan antar cells saja, supaya tidak ribet
dalam membuat error trap.
File terlampir kapan terakhir kali melampirkan file berisi VBA ya ?
Regards,
Kid
On Thu, Jan 31, 2019 at 7:23 AM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Tio,
> Kenapa angka di cell dan di user form berbeda? apakah memang harus
> ditambah 10.000?
> Perlu di ingat bahwa cell excel hanya dapat menampung 15 digit secara
> akurat.
> Jadi nilai 1.345.345.567.778,888 tidak dapat dihitung excel dalam cell
> secara akurat, karena sudah 16 digit.
> CEll excel akan membulatkannya menjadi 15 digit (1.345.345.567.778,88)..
> demikian pula nilai 123.456.789.012.345.678.901 akan diubah menjadi
> 123.456.789.012.345.000.000
>
> Jika angka yang ditangani tidak sampai 15 digit dapat langsung dimasukkan
> userform dan ke cell.
> Jika angka yang ditangani lebih dari 15 digit, disimpan dalam cell bertype
> text dan dihitung di vba dengan type double.
>
> dicoba menggunakan cekrip:
> TextBox1.Text = Format(Range("A1"), "#,###.######")
> Range("A2") = TextBox1.Text * 3
>
> Salam
> KenangAgus
>
>
> On 1/30/2019 19:59, Tio Ali tioali2011@yahoo.co.id [belajar-excel] wrote:
>
>
>
> Salam BeExceller
> Saya kesulitan sekali untuk soal ini. Sudah coba googling tetap gak ketemu
> jawabannya.
> Soal saya adalah:
> Misal di cell A1 tertulis nilai* 130*.567,356. Saya ingin menuliskan
> nilai itu sesuai desimal apa adanya tanpa pembulatan.Di userform, yang
> diinginkan juga tertulis di textboxnya adalah *140*.567,356. Yakni dengan
> separator (pemisah) ribuan dan ada nilai desimalnya tepat sesuai nilai
> asalnya.. Kemudian di userform itu dikalikan dengan nilai 3 misalnya. Hasil
> dari perkalian itu ditampilkan ke cell A2 tepat dengan desimalnya (tanpa
> ada pembulatan) dan ada pemisah ribuan.
> Bagaimana cara melakukan itu semua ? Saya frustasi mencari solusinya.
> Sudah cari ke google, tetap gak ada solusinya.
>
> Terima kasih atas jawabannya. Semoga amal baiknya diterima di sisiNya.
> Amiin
>
> Tio
>
>
>
>
bisa diambil dengan properti Text.
Kalkulasinya lebih baik dilakukan antar cells saja, supaya tidak ribet
dalam membuat error trap.
File terlampir kapan terakhir kali melampirkan file berisi VBA ya ?
Regards,
Kid
On Thu, Jan 31, 2019 at 7:23 AM Agus nangagus@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Tio,
> Kenapa angka di cell dan di user form berbeda? apakah memang harus
> ditambah 10.000?
> Perlu di ingat bahwa cell excel hanya dapat menampung 15 digit secara
> akurat.
> Jadi nilai 1.345.345.567.778,888 tidak dapat dihitung excel dalam cell
> secara akurat, karena sudah 16 digit.
> CEll excel akan membulatkannya menjadi 15 digit (1.345.345.567.778,88)..
> demikian pula nilai 123.456.789.012.345.678.901 akan diubah menjadi
> 123.456.789.012.345.000.000
>
> Jika angka yang ditangani tidak sampai 15 digit dapat langsung dimasukkan
> userform dan ke cell.
> Jika angka yang ditangani lebih dari 15 digit, disimpan dalam cell bertype
> text dan dihitung di vba dengan type double.
>
> dicoba menggunakan cekrip:
> TextBox1.Text = Format(Range("A1"), "#,###.######")
> Range("A2") = TextBox1.Text * 3
>
> Salam
> KenangAgus
>
>
> On 1/30/2019 19:59, Tio Ali tioali2011@yahoo.co.id [belajar-excel] wrote:
>
>
>
> Salam BeExceller
> Saya kesulitan sekali untuk soal ini. Sudah coba googling tetap gak ketemu
> jawabannya.
> Soal saya adalah:
> Misal di cell A1 tertulis nilai* 130*.567,356. Saya ingin menuliskan
> nilai itu sesuai desimal apa adanya tanpa pembulatan.Di userform, yang
> diinginkan juga tertulis di textboxnya adalah *140*.567,356. Yakni dengan
> separator (pemisah) ribuan dan ada nilai desimalnya tepat sesuai nilai
> asalnya.. Kemudian di userform itu dikalikan dengan nilai 3 misalnya. Hasil
> dari perkalian itu ditampilkan ke cell A2 tepat dengan desimalnya (tanpa
> ada pembulatan) dan ada pemisah ribuan.
> Bagaimana cara melakukan itu semua ? Saya frustasi mencari solusinya.
> Sudah cari ke google, tetap gak ada solusinya.
>
> Terima kasih atas jawabannya. Semoga amal baiknya diterima di sisiNya.
> Amiin
>
> Tio
>
>
>
>
Thu Jan 31, 2019 2:53 pm (PST) . Posted by:
"Tio Adi Bayu Adjie"
Alhamdulillah. Terima kasih atas jawabannya Mr. Kid. Semoga amal baiknya di terima disisiNya. Amiin.
Maaf Mr. Kid, passwordnya di file terlampir apa ya ?
Maaf, tidak kasih file contoh, karena lupa...
Terima kasih.
Tio
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 31 Januari 2019 13:49
To: BeExcel
Subject: Re: [belajar-excel] Menulis nilai dengan desimal tertentu dari cell worksheet ke textbox di userform dan mengeluarkan nilainya kembali ke cell tertentu [1 Attachment]
Jika cells sudah di format number sesuai kebutuhan, maka tampilan di cells bisa diambil dengan properti Text.
Kalkulasinya lebih baik dilakukan antar cells saja, supaya tidak ribet dalam membuat error trap.
File terlampir kapan terakhir kali melampirkan file berisi VBA ya ?
Regards,
Kid
On Thu, Jan 31, 2019 at 7:23 AM Agus nangagus@gmail.com<mailto:nangagus@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Dear Tio,
Kenapa angka di cell dan di user form berbeda? apakah memang harus ditambah 10.000?
Perlu di ingat bahwa cell excel hanya dapat menampung 15 digit secara akurat.
Jadi nilai 1..345.345.567.778,888 tidak dapat dihitung excel dalam cell secara akurat, karena sudah 16 digit.
CEll excel akan membulatkannya menjadi 15 digit (1.345.345.567.778,88). demikian pula nilai 123.456.789.012.345.678.901 akan diubah menjadi
123.456.789.012.345.000.000
Jika angka yang ditangani tidak sampai 15 digit dapat langsung dimasukkan userform dan ke cell.
Jika angka yang ditangani lebih dari 15 digit, disimpan dalam cell bertype text dan dihitung di vba dengan type double.
dicoba menggunakan cekrip:
TextBox1.Text = Format(Range("A1"), "#,###.######")
Range("A2") = TextBox1.Text * 3
Salam
KenangAgus
On 1/30/2019 19:59, Tio Ali tioali2011@yahoo.co.id<mailto:tioali2011@yahoo.co.id> [belajar-excel] wrote:
Salam BeExceller
Saya kesulitan sekali untuk soal ini. Sudah coba googling tetap gak ketemu jawabannya.
Soal saya adalah:
Misal di cell A1 tertulis nilai 130.567,356. Saya ingin menuliskan nilai itu sesuai desimal apa adanya tanpa pembulatan.Di userform, yang diinginkan juga tertulis di textboxnya adalah 140.567,356. Yakni dengan separator (pemisah) ribuan dan ada nilai desimalnya tepat sesuai nilai asalnya.. Kemudian di userform itu dikalikan dengan nilai 3 misalnya. Hasil dari perkalian itu ditampilkan ke cell A2 tepat dengan desimalnya (tanpa ada pembulatan) dan ada pemisah ribuan.
Bagaimana cara melakukan itu semua ? Saya frustasi mencari solusinya. Sudah cari ke google, tetap gak ada solusinya.
Terima kasih atas jawabannya. Semoga amal baiknya diterima di sisiNya. Amiin
Tio
Maaf Mr. Kid, passwordnya di file terlampir apa ya ?
Maaf, tidak kasih file contoh, karena lupa...
Terima kasih.
Tio
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 31 Januari 2019 13:49
To: BeExcel
Subject: Re: [belajar-excel] Menulis nilai dengan desimal tertentu dari cell worksheet ke textbox di userform dan mengeluarkan nilainya kembali ke cell tertentu [1 Attachment]
Jika cells sudah di format number sesuai kebutuhan, maka tampilan di cells bisa diambil dengan properti Text.
Kalkulasinya lebih baik dilakukan antar cells saja, supaya tidak ribet dalam membuat error trap.
File terlampir kapan terakhir kali melampirkan file berisi VBA ya ?
Regards,
Kid
On Thu, Jan 31, 2019 at 7:23 AM Agus nangagus@gmail.com<mailto:nangagus@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Dear Tio,
Kenapa angka di cell dan di user form berbeda? apakah memang harus ditambah 10.000?
Perlu di ingat bahwa cell excel hanya dapat menampung 15 digit secara akurat.
Jadi nilai 1..345.345.567.778,888 tidak dapat dihitung excel dalam cell secara akurat, karena sudah 16 digit.
CEll excel akan membulatkannya menjadi 15 digit (1.345.345.567.778,88). demikian pula nilai 123.456.789.012.345.678.901 akan diubah menjadi
123.456.789.012.345.000.000
Jika angka yang ditangani tidak sampai 15 digit dapat langsung dimasukkan userform dan ke cell.
Jika angka yang ditangani lebih dari 15 digit, disimpan dalam cell bertype text dan dihitung di vba dengan type double.
dicoba menggunakan cekrip:
TextBox1.Text = Format(Range("A1"), "#,###.######")
Range("A2") = TextBox1.Text * 3
Salam
KenangAgus
On 1/30/2019 19:59, Tio Ali tioali2011@yahoo.co.id<mailto:tioali2011@yahoo.co.id> [belajar-excel] wrote:
Salam BeExceller
Saya kesulitan sekali untuk soal ini. Sudah coba googling tetap gak ketemu jawabannya.
Soal saya adalah:
Misal di cell A1 tertulis nilai 130.567,356. Saya ingin menuliskan nilai itu sesuai desimal apa adanya tanpa pembulatan.Di userform, yang diinginkan juga tertulis di textboxnya adalah 140.567,356. Yakni dengan separator (pemisah) ribuan dan ada nilai desimalnya tepat sesuai nilai asalnya.. Kemudian di userform itu dikalikan dengan nilai 3 misalnya. Hasil dari perkalian itu ditampilkan ke cell A2 tepat dengan desimalnya (tanpa ada pembulatan) dan ada pemisah ribuan.
Bagaimana cara melakukan itu semua ? Saya frustasi mencari solusinya. Sudah cari ke google, tetap gak ada solusinya.
Terima kasih atas jawabannya. Semoga amal baiknya diterima di sisiNya. Amiin
Tio
Wed Jan 30, 2019 11:07 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Hai Riri,
Excel tidak kenal dengan data Anda, jadi sebaiknya, disediakan saja daftar
kecamatan se-indonesia, beserta kabupaten kota se-indonesia.
Lalu datanya di-split (dipecah) menjadi beberapa kolom, seperti kolom
alamat, kelurahan, kecamatan, kab kota, provinsi, mungkin butuh kolom rt rw
juga kali ya, atau dusun gitu (atur saja deh).
Supaya bisa memecah data, perlu tanda-tanda khusus yang diketahui.
Tanda-tanda ini perlu dicari dan dikumpulkan dari data itu sendiri.
Misal, kalau ada bunyi kec, maka pecah data berdasar bunyi kec itu, dan
sebagainya.
nah...
ada baiknya, lain kali kalau memberi isian kepada responden, buat field
yang terpisah. Responden langsung isi di tiap field tersebut.
lalu yang meng-entry (memindah dari kertas ke komputer), mengisi di kolom
yang sesuai.
Mulailah untuk meninggalkan kolom yang bernama Alamat1, alamat2, alamat3,
dsb... Lebih berarti kolomnya adalah Alamat, rt rw, dusun/gedung/kompl,
kel, kec, kab kota, prov, kodepos, telp-hp, dsb
Regards,
Kid
On Tue, Jan 29, 2019 at 7:33 PM ragustina98@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Para Guru,
>
>
> Mohon bantuannya untuk cara memisahkan kabupaten dari dalam alamat dan
> juga bagaimana cara menghilangkan kecamatan, kelurahan atau Kabupaten yang
> sama dalam 1 cell,
>
>
> Contoh alamat yang ada kabupatennya:
>
>
> Jl. Srikaya Vii Perumnas Ii Rt03/Rw06 No. 1 Desa Lumpang Parung Panjang
> Kec. Parungpanjang Kab. Bogor Bogor Jabotabek
>
>
> Contoh alamat yang double kec, kel atau kabupatennya :
>
>
> Desa Bontongan, Rt01/01 Kamlimbua 1 Kec. Barakka Kec. Barakka Kab.
> Enrekang Enrekang Sulawesi Selatan
>
>
> nah jika data hanya sedikit mungkin saya tidak kerepotan, tetapi apabila
> data tersebut puluhan ribu atau ratusan ribu bisa keriting juga dan makan
> waktu juga.
>
>
> maka dari itu, saya mohon bantuan para guru dan teman2 sekalian, kiranya
> sudi membantu saya
>
>
>
> Terima kasih
>
>
> Salam,
>
> Riri
>
>
>
Excel tidak kenal dengan data Anda, jadi sebaiknya, disediakan saja daftar
kecamatan se-indonesia, beserta kabupaten kota se-indonesia.
Lalu datanya di-split (dipecah) menjadi beberapa kolom, seperti kolom
alamat, kelurahan, kecamatan, kab kota, provinsi, mungkin butuh kolom rt rw
juga kali ya, atau dusun gitu (atur saja deh).
Supaya bisa memecah data, perlu tanda-tanda khusus yang diketahui.
Tanda-tanda ini perlu dicari dan dikumpulkan dari data itu sendiri.
Misal, kalau ada bunyi kec, maka pecah data berdasar bunyi kec itu, dan
sebagainya.
nah...
ada baiknya, lain kali kalau memberi isian kepada responden, buat field
yang terpisah. Responden langsung isi di tiap field tersebut.
lalu yang meng-entry (memindah dari kertas ke komputer), mengisi di kolom
yang sesuai.
Mulailah untuk meninggalkan kolom yang bernama Alamat1, alamat2, alamat3,
dsb... Lebih berarti kolomnya adalah Alamat, rt rw, dusun/gedung/kompl,
kel, kec, kab kota, prov, kodepos, telp-hp, dsb
Regards,
Kid
On Tue, Jan 29, 2019 at 7:33 PM ragustina98@yahoo.com [belajar-excel] <
belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Para Guru,
>
>
> Mohon bantuannya untuk cara memisahkan kabupaten dari dalam alamat dan
> juga bagaimana cara menghilangkan kecamatan, kelurahan atau Kabupaten yang
> sama dalam 1 cell,
>
>
> Contoh alamat yang ada kabupatennya:
>
>
> Jl. Srikaya Vii Perumnas Ii Rt03/Rw06 No. 1 Desa Lumpang Parung Panjang
> Kec. Parungpanjang Kab. Bogor Bogor Jabotabek
>
>
> Contoh alamat yang double kec, kel atau kabupatennya :
>
>
> Desa Bontongan, Rt01/01 Kamlimbua 1 Kec. Barakka Kec. Barakka Kab.
> Enrekang Enrekang Sulawesi Selatan
>
>
> nah jika data hanya sedikit mungkin saya tidak kerepotan, tetapi apabila
> data tersebut puluhan ribu atau ratusan ribu bisa keriting juga dan makan
> waktu juga.
>
>
> maka dari itu, saya mohon bantuan para guru dan teman2 sekalian, kiranya
> sudi membantu saya
>
>
>
> Terima kasih
>
>
> Salam,
>
> Riri
>
>
>
Wed Jan 30, 2019 11:09 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Copy paste values saja nilai di kolom itu ya...
Kalau ada di sebuah nama range, hapus rujukan ke workbook lain di nama
range tersebut.
On Wed, Jan 30, 2019 at 8:50 PM halak hita halakhita1983@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear para master
> Selamat malam
>
> Saya punya kendala untuk break link data dalam file excel.
> Dimana data tersebut link dengan file lain yg dalam bentuk "menu
> insert"table dan setiap mau breaklink selalu gagal.
> Pertanyaannya, bgmna cara break link file ini
> Apakah berbeda cara file brake link jika dalam file excel tersebut
> menggunakan table dengan yang tidak pake model insert
>
> Salam
> Hh
>
>
>
Kalau ada di sebuah nama range, hapus rujukan ke workbook lain di nama
range tersebut.
On Wed, Jan 30, 2019 at 8:50 PM halak hita halakhita1983@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear para master
> Selamat malam
>
> Saya punya kendala untuk break link data dalam file excel.
> Dimana data tersebut link dengan file lain yg dalam bentuk "menu
> insert"
> Pertanyaannya, bgmna cara break link file ini
> Apakah berbeda cara file brake link jika dalam file excel tersebut
> menggunakan table dengan yang tidak pake model insert
>
> Salam
> Hh
>
>
>
Wed Jan 30, 2019 11:37 pm (PST) . Posted by:
"halak hita"
Dear mr.kid
Terima kasih dan selamat siang master.
Mr.kid, file tersebut sudah saya cari secara MANUAL kolom mana yg ada rumus
yg ada LINK dengan file lain.
mungkin ada yg saya lewatkan karena keterbatasan pengetahuan.
Ditambah dalam file tersebut ada 12 sheet dan masing2 mempunyai banyak
kolom disetiap sheetnya.
Apakah ada cara lain untuk mencari tau dicell mana yg masih ada link dengan
file lain.
Agar saya bisa lakulan paste spesial value.
Terima kasih
Salam
Hh
On Thu, Jan 31, 2019, 14:09 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com wrote:
>
>
> Copy paste values saja nilai di kolom itu ya...
> Kalau ada di sebuah nama range, hapus rujukan ke workbook lain di nama
> range tersebut.
>
>
>
>
>
>
> On Wed, Jan 30, 2019 at 8:50 PM halak hita halakhita1983@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Dear para master
>> Selamat malam
>>
>> Saya punya kendala untuk break link data dalam file excel..
>> Dimana data tersebut link dengan file lain yg dalam bentuk "menu
>> insert"table dan setiap mau breaklink selalu gagal.
>> Pertanyaannya, bgmna cara break link file ini
>> Apakah berbeda cara file brake link jika dalam file excel tersebut
>> menggunakan table dengan yang tidak pake model insert
>>
>> Salam
>> Hh
>>
>>
>
Terima kasih dan selamat siang master.
Mr.kid, file tersebut sudah saya cari secara MANUAL kolom mana yg ada rumus
yg ada LINK dengan file lain.
mungkin ada yg saya lewatkan karena keterbatasan pengetahuan.
Ditambah dalam file tersebut ada 12 sheet dan masing2 mempunyai banyak
kolom disetiap sheetnya.
Apakah ada cara lain untuk mencari tau dicell mana yg masih ada link dengan
file lain.
Agar saya bisa lakulan paste spesial value.
Terima kasih
Salam
Hh
On Thu, Jan 31, 2019, 14:09 'Mr. Kid' mr.nmkid@gmail.com [belajar-excel] <
belajar-excel@yahoogroups.com wrote:
>
>
> Copy paste values saja nilai di kolom itu ya...
> Kalau ada di sebuah nama range, hapus rujukan ke workbook lain di nama
> range tersebut.
>
>
>
>
>
>
> On Wed, Jan 30, 2019 at 8:50 PM halak hita halakhita1983@gmail.com
> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>>
>>
>> Dear para master
>> Selamat malam
>>
>> Saya punya kendala untuk break link data dalam file excel..
>> Dimana data tersebut link dengan file lain yg dalam bentuk "menu
>> insert"
>> Pertanyaannya, bgmna cara break link file ini
>> Apakah berbeda cara file brake link jika dalam file excel tersebut
>> menggunakan table dengan yang tidak pake model insert
>>
>> Salam
>> Hh
>>
>>
>
Wed Jan 30, 2019 11:50 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Begini,
break link bisa dilakukan terhadap apa saja. Entah itu sebuah Excel Table
atau cells merujuke ke workbook lain (range maupun Excel Table).
nama range pun bisa demikian. Semua bisa di-break lilnk, kecuali, tidak
bisa mengakses file sumber. Jadi tidak ada hubungannya dengan Excel table
atau bukan, cells atau bukan, nama range atau bukan.
Terkait mencari cells berformula, manfaatkanlah Find (CTRL F), dengan
options match entire cells lalu memanfaatkan wildcard character, within
workbook, lookin formulas.
Search key nya biasanya *\*.xls*!*
Regards,
Kid
On Thu, Jan 31, 2019 at 2:37 PM halak hita halakhita1983@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear mr.kid
> Terima kasih dan selamat siang master.
>
> Mr.kid, file tersebut sudah saya cari secara MANUAL kolom mana yg ada
> rumus yg ada LINK dengan file lain.
> mungkin ada yg saya lewatkan karena keterbatasan pengetahuan.
> Ditambah dalam file tersebut ada 12 sheet dan masing2 mempunyai banyak
> kolom disetiap sheetnya.
> Apakah ada cara lain untuk mencari tau dicell mana yg masih ada link
> dengan file lain.
> Agar saya bisa lakulan paste spesial value.
>
> Terima kasih
> Salam
> Hh
>
> On Thu, Jan 31, 2019, 14:09 'Mr. Kid' mr.nmkid@gmail..com
> <mr.nmkid@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com wrote:
>
>>
>>
>> Copy paste values saja nilai di kolom itu ya...
>> Kalau ada di sebuah nama range, hapus rujukan ke workbook lain di nama
>> range tersebut.
>>
>>
>>
>>
>>
>>
>> On Wed, Jan 30, 2019 at 8:50 PM halak hita halakhita1983@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Dear para master
>>> Selamat malam
>>>
>>> Saya punya kendala untuk break link data dalam file excel.
>>> Dimana data tersebut link dengan file lain yg dalam bentuk "menu
>>> insert"table dan setiap mau breaklink selalu gagal.
>>> Pertanyaannya, bgmna cara break link file ini
>>> Apakah berbeda cara file brake link jika dalam file excel tersebut
>>> menggunakan table dengan yang tidak pake model insert
>>>
>>> Salam
>>> Hh
>>>
>>>
>
break link bisa dilakukan terhadap apa saja. Entah itu sebuah Excel Table
atau cells merujuke ke workbook lain (range maupun Excel Table).
nama range pun bisa demikian. Semua bisa di-break lilnk, kecuali, tidak
bisa mengakses file sumber. Jadi tidak ada hubungannya dengan Excel table
atau bukan, cells atau bukan, nama range atau bukan.
Terkait mencari cells berformula, manfaatkanlah Find (CTRL F), dengan
options match entire cells lalu memanfaatkan wildcard character, within
workbook, lookin formulas.
Search key nya biasanya *\*.xls*!*
Regards,
Kid
On Thu, Jan 31, 2019 at 2:37 PM halak hita halakhita1983@gmail.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear mr.kid
> Terima kasih dan selamat siang master.
>
> Mr.kid, file tersebut sudah saya cari secara MANUAL kolom mana yg ada
> rumus yg ada LINK dengan file lain.
> mungkin ada yg saya lewatkan karena keterbatasan pengetahuan.
> Ditambah dalam file tersebut ada 12 sheet dan masing2 mempunyai banyak
> kolom disetiap sheetnya.
> Apakah ada cara lain untuk mencari tau dicell mana yg masih ada link
> dengan file lain.
> Agar saya bisa lakulan paste spesial value.
>
> Terima kasih
> Salam
> Hh
>
> On Thu, Jan 31, 2019, 14:09 'Mr. Kid' mr.nmkid@gmail..com
> <mr.nmkid@gmail.com> [belajar-excel] <belajar-excel@yahoogroups.com wrote:
>
>>
>>
>> Copy paste values saja nilai di kolom itu ya...
>> Kalau ada di sebuah nama range, hapus rujukan ke workbook lain di nama
>> range tersebut.
>>
>>
>>
>>
>>
>>
>> On Wed, Jan 30, 2019 at 8:50 PM halak hita halakhita1983@gmail.com
>> [belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>>
>>>
>>>
>>> Dear para master
>>> Selamat malam
>>>
>>> Saya punya kendala untuk break link data dalam file excel.
>>> Dimana data tersebut link dengan file lain yg dalam bentuk "menu
>>> insert"
>>> Pertanyaannya, bgmna cara break link file ini
>>> Apakah berbeda cara file brake link jika dalam file excel tersebut
>>> menggunakan table dengan yang tidak pake model insert
>>>
>>> Salam
>>> Hh
>>>
>>>
>
Wed Jan 30, 2019 11:29 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Public Sub CekWbkInUse(Optional bState As Boolean = False)
Dim sFile As String
sFile = "D:\lib_links.xlsx"
'cara 1 :
Dim wbkF As Workbook
Set wbkF = Workbooks.Open(sFile, 2)
If wbkF.ReadOnly Then
Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
Else
Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai"
End If
wbkF.Close False
'cara 2 :
Dim iFile As Integer
Err.Clear
On Error Resume Next
iFile = FreeFile
Open sFile For Binary Access Read Lock Read As iFile: Close iFile
If Err.Number <> 0 Then
Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain"
Else
Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai"
End If
Err.Clear
On Error GoTo 0
'cara 3 :
Dim sFBackup As String
Err.Clear
On Error Resume Next
sFBackup = sFile & ".kid"
FileCopy sFile, sFBackup
Kill sFile
If Err.Number <> 0 Then
Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain"
Else
FileCopy sFBackup, sFile
Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai"
End If
Kill sFBackup
Err.Clear
On Error GoTo 0
End Sub
On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Salqm Bexceller
> Saya mau cek file apakah sedang open atau tidak. Kalau file itu tutup,
> saya buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek
> apakah file itu readonly atau tidak. Kalau tidak readoonly berarti file
> tutup. Tapi itu akan jadi masalah kalau file itu sudah besar kapasitasnya
> sehingga jadi lama bukanya.
> Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error
> berarti file itu open
> Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file
> yang kita butuhkan ?
>
> Terima kasih.
> Tio
>
>
>
> _
> ------------------------------
> Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45197;_ylc=X3oDMTJybTRwZW9hBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NDg3Mjc0ODc-?act=reply&messageNum=45197>
> • Reply to sender
> <hendrikkarnadi@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
> • Reply to group
> <belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
>
> s
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45164;_ylc=X3oDMTM3aTc0Ym5oBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NDg3Mjc0ODcEdHBjSWQDNDUxNjQ->
>
> ------------------------------
> Have you tried the highest rated email app? <https://yho.com/1wwmgg>
> With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email
> app on the market. What are you waiting for? Now you can access all your
> inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email
> again with 1000GB of free cloud storage.
> ------------------------------
> ============================================================
> 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
> ----------------------------------------------------------
> Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmNDU3ZHA5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NDg3Mjc0ODc->
>
>
> [image: Yahoo! Groups]
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
> • Privacy <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe> • Terms
> of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>
>
Dim sFile As String
sFile = "D:\lib_links.xlsx"
'cara 1 :
Dim wbkF As Workbook
Set wbkF = Workbooks.Open(sFile, 2)
If wbkF.ReadOnly Then
Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
Else
Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai"
End If
wbkF.Close False
'cara 2 :
Dim iFile As Integer
Err.Clear
On Error Resume Next
iFile = FreeFile
Open sFile For Binary Access Read Lock Read As iFile: Close iFile
If Err.Number <> 0 Then
Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain"
Else
Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai"
End If
Err.Clear
On Error GoTo 0
'cara 3 :
Dim sFBackup As String
Err.Clear
On Error Resume Next
sFBackup = sFile & ".kid"
FileCopy sFile, sFBackup
Kill sFile
If Err.Number <> 0 Then
Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain"
Else
FileCopy sFBackup, sFile
Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai"
End If
Kill sFBackup
Err.Clear
On Error GoTo 0
End Sub
On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Salqm Bexceller
> Saya mau cek file apakah sedang open atau tidak. Kalau file itu tutup,
> saya buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek
> apakah file itu readonly atau tidak. Kalau tidak readoonly berarti file
> tutup. Tapi itu akan jadi masalah kalau file itu sudah besar kapasitasnya
> sehingga jadi lama bukanya.
> Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error
> berarti file itu open
> Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file
> yang kita butuhkan ?
>
> Terima kasih.
> Tio
>
>
>
> _
> ------------------------------
> Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45197;_ylc=X3oDMTJybTRwZW9hBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NDg3Mjc0ODc-?act=reply&messageNum=45197>
> • Reply to sender
> <hendrikkarnadi@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
> • Reply to group
> <belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
>
> s
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45164;_ylc=X3oDMTM3aTc0Ym5oBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NDg3Mjc0ODcEdHBjSWQDNDUxNjQ->
>
> ------------------------------
> Have you tried the highest rated email app? <https://yho.com/1wwmgg>
> With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email
> app on the market. What are you waiting for? Now you can access all your
> inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email
> again with 1000GB of free cloud storage.
> ------------------------------
> ============================================================
> 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
> ----------------------------------------------------------
> Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmNDU3ZHA5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NDg3Mjc0ODc->
>
>
> [image: Yahoo! Groups]
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
> • Privacy <https://info.yahoo.com/privacy/us/yahoo/groups/details.html> •
> Unsubscribe
> <belajar-excel-unsubscribe@yahoogroups.com?subject=Unsubscribe> • Terms
> of Use <https://info.yahoo.com/legal/us/yahoo/utos/terms/>
>
> SPONSORED LINKS
> .
>
>
>
Thu Jan 31, 2019 2:53 pm (PST) . Posted by:
"Tio Adi Bayu Adjie"
Maaf Mr. Kid. Belum paham saya.
Untuk no.2 apakah itu artinya harus buka file dulu sama seperti no. 1 ?
Terima kasih jawabannya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 31 Januari 2019 14:29
To: BeExcel
Subject: Re: [belajar-excel] Cara cek file open dengan delete file dimqna file itu dibutuhkan
Public Sub CekWbkInUse(Optional bState As Boolean = False)
Dim sFile As String
sFile = "D:\lib_links.xlsx"
'cara 1 :
Dim wbkF As Workbook
Set wbkF = Workbooks.Open(sFile, 2)
If wbkF.ReadOnly Then
Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
Else
Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai"
End If
wbkF.Close False
'cara 2 :
Dim iFile As Integer
Err.Clear
On Error Resume Next
iFile = FreeFile
Open sFile For Binary Access Read Lock Read As iFile: Close iFile
If Err.Number <> 0 Then
Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain"
Else
Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai"
End If
Err.Clear
On Error GoTo 0
'cara 3 :
Dim sFBackup As String
Err.Clear
On Error Resume Next
sFBackup = sFile & ".kid"
FileCopy sFile, sFBackup
Kill sFile
If Err.Number <> 0 Then
Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain"
Else
FileCopy sFBackup, sFile
Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai"
End If
Kill sFBackup
Err.Clear
On Error GoTo 0
End Sub
On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co..id<mailto:tioali2011@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Salqm Bexceller
Saya mau cek file apakah sedang open atau tidak. Kalau file itu tutup, saya buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek apakah file itu readonly atau tidak. Kalau tidak readoonly berarti file tutup. Tapi itu akan jadi masalah kalau file itu sudah besar kapasitasnya sehingga jadi lama bukanya.
Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error berarti file itu open
Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file yang kita butuhkan ?
Terima kasih.
Tio
_
________________________________
Reply via web post<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45197;_ylc=X3oDMTJybTRwZW9hBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NDg3Mjc0ODc-?act=reply&messageNum=45197>
•
Reply to sender <mailto:hendrikkarnadi@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
•
Reply to group <mailto:belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
s<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45164;_ylc=X3oDMTM3aTc0Ym5oBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NDg3Mjc0ODcEdHBjSWQDNDUxNjQ->
________________________________
Have you tried the highest rated email app?<https://yho.com/1wwmgg>
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
________________________________
============================================================
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<mailto:belajar-excel-subscribe@yahoogroups.com>
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com<mailto: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<mailto:belajar-excel-owner@yahoogroups.com>
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com<mailto:belajar-excel-unsubscribe@yahoogroups.com>
----------------------------------------------------------
Visit Your Group<https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmNDU3ZHA5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NDg3Mjc0ODc->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
• Privacy • Unsubscribe • Terms of Use <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
SPONSORED LINKS<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
..<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
Untuk no.2 apakah itu artinya harus buka file dulu sama seperti no. 1 ?
Terima kasih jawabannya.
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 31 Januari 2019 14:29
To: BeExcel
Subject: Re: [belajar-excel] Cara cek file open dengan delete file dimqna file itu dibutuhkan
Public Sub CekWbkInUse(Optional bState As Boolean = False)
Dim sFile As String
sFile = "D:\lib_links.xlsx"
'cara 1 :
Dim wbkF As Workbook
Set wbkF = Workbooks.Open(sFile, 2)
If wbkF.ReadOnly Then
Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
Else
Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai"
End If
wbkF.Close False
'cara 2 :
Dim iFile As Integer
Err.Clear
On Error Resume Next
iFile = FreeFile
Open sFile For Binary Access Read Lock Read As iFile: Close iFile
If Err.Number <> 0 Then
Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain"
Else
Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai"
End If
Err.Clear
On Error GoTo 0
'cara 3 :
Dim sFBackup As String
Err.Clear
On Error Resume Next
sFBackup = sFile & ".kid"
FileCopy sFile, sFBackup
Kill sFile
If Err.Number <> 0 Then
Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain"
Else
FileCopy sFBackup, sFile
Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai"
End If
Kill sFBackup
Err.Clear
On Error GoTo 0
End Sub
On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co..id<mailto:tioali2011@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com<mailto:belajar-excel@yahoogroups.com>> wrote:
Salqm Bexceller
Saya mau cek file apakah sedang open atau tidak. Kalau file itu tutup, saya buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek apakah file itu readonly atau tidak. Kalau tidak readoonly berarti file tutup. Tapi itu akan jadi masalah kalau file itu sudah besar kapasitasnya sehingga jadi lama bukanya.
Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error berarti file itu open
Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file yang kita butuhkan ?
Terima kasih.
Tio
_
________________________________
Reply via web post<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45197;_ylc=X3oDMTJybTRwZW9hBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NDg3Mjc0ODc-?act=reply&messageNum=45197>
•
Reply to sender <mailto:hendrikkarnadi@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
•
Reply to group <mailto:belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
s<https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45164;_ylc=X3oDMTM3aTc0Ym5oBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NDg3Mjc0ODcEdHBjSWQDNDUxNjQ->
________________________________
Have you tried the highest rated email app?<https://yho.com/1wwmgg>
With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.
________________________________
============================================================
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<mailto:belajar-excel-subscribe@yahoogroups.com>
posting ke milis, kirimkan ke: belajar-excel@yahoogroups.com<mailto: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<mailto:belajar-excel-owner@yahoogroups.com>
keluar dari membership milis (UnSubscribe), kirim mail kosong ke : belajar-excel-unsubscribe@yahoogroups.com<mailto:belajar-excel-unsubscribe@yahoogroups.com>
----------------------------------------------------------
Visit Your Group<https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmNDU3ZHA5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NDg3Mjc0ODc->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
• Privacy • Unsubscribe • Terms of Use <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
SPONSORED LINKS<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
..<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
<https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
Thu Jan 31, 2019 3:50 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Yup...
On Fri, Feb 1, 2019 at 5:53 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Maaf Mr. Kid. Belum paham saya.
>
> Untuk no.2 apakah itu artinya harus buka file dulu sama seperti no. 1 ?
>
>
>
> Terima kasih jawabannya.
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 31 Januari 2019 14:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Cara cek file open dengan delete file
> dimqna file itu dibutuhkan
>
>
>
>
>
> Public Sub CekWbkInUse(Optional bState As Boolean = False)
>
> Dim sFile As String
>
> sFile = "D:\lib_links.xlsx"
>
>
>
> 'cara 1 :
>
> Dim wbkF As Workbook
>
> Set wbkF = Workbooks.Open(sFile, 2)
>
> If wbkF.ReadOnly Then
>
> Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
>
> Else
>
> Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai"
>
> End If
>
> wbkF.Close False
>
>
>
> 'cara 2 :
>
> Dim iFile As Integer
>
> Err.Clear
>
> On Error Resume Next
>
> iFile = FreeFile
>
> Open sFile For Binary Access Read Lock Read As iFile: Close iFile
>
> If Err.Number <> 0 Then
>
> Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain"
>
> Else
>
> Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai"
>
> End If
>
> Err.Clear
>
> On Error GoTo 0
>
>
>
> 'cara 3 :
>
> Dim sFBackup As String
>
> Err.Clear
>
> On Error Resume Next
>
> sFBackup = sFile & ".kid"
>
> FileCopy sFile, sFBackup
>
> Kill sFile
>
> If Err.Number <> 0 Then
>
> Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain"
>
> Else
>
> FileCopy sFBackup, sFile
>
> Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai"
>
> End If
>
> Kill sFBackup
>
> Err.Clear
>
> On Error GoTo 0
>
> End Sub
>
>
>
> On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co..id
> <tioali2011@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
>
> Salqm Bexceller
>
> Saya mau cek file apakah sedang open atau tidak. Kalau file itu tutup,
> saya buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek
> apakah file itu readonly atau tidak. Kalau tidak readoonly berarti file
> tutup. Tapi itu akan jadi masalah kalau file itu sudah besar kapasitasnya
> sehingga jadi lama bukanya.
>
> Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error
> berarti file itu open
>
> Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file
> yang kita butuhkan ?
>
>
>
> Terima kasih.
>
> Tio
>
>
>
>
>
>
>
> _
> ------------------------------
>
> *Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45197;_ylc=X3oDMTJybTRwZW9hBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NDg3Mjc0ODc-?act=reply&messageNum=45197>
> *
>
> •
>
> Reply to sender
> <hendrikkarnadi@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
>
> •
>
> Reply to group
> <belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
>
> s
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45164;_ylc=X3oDMTM3aTc0Ym5oBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NDg3Mjc0ODcEdHBjSWQDNDUxNjQ->
>
>
> ------------------------------
>
> Have you tried the highest rated email app? <https://yho.com/1wwmgg>
>
> With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email
> app on the market. What are you waiting for? Now you can access all your
> inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email
> again with 1000GB of free cloud storage.
> ------------------------------
>
> ============================================================
> 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
> ----------------------------------------------------------
>
> *Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmNDU3ZHA5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NDg3Mjc0ODc->*
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
> • Privacy • Unsubscribe • Terms of Use
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
> SPONSORED LINKS
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
> *
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->*
>
> *
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->*
>
> *
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->*
>
> .
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
>
On Fri, Feb 1, 2019 at 5:53 AM Tio Adi Bayu Adjie tio.adjie@ptssb.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Maaf Mr. Kid. Belum paham saya.
>
> Untuk no.2 apakah itu artinya harus buka file dulu sama seperti no. 1 ?
>
>
>
> Terima kasih jawabannya.
>
>
>
> *From:* belajar-excel@yahoogroups.com [mailto:
> belajar-excel@yahoogroups.com]
> *Sent:* 31 Januari 2019 14:29
> *To:* BeExcel
> *Subject:* Re: [belajar-excel] Cara cek file open dengan delete file
> dimqna file itu dibutuhkan
>
>
>
>
>
> Public Sub CekWbkInUse(Optional bState As Boolean = False)
>
> Dim sFile As String
>
> sFile = "D:\lib_links.xlsx"
>
>
>
> 'cara 1 :
>
> Dim wbkF As Workbook
>
> Set wbkF = Workbooks.Open(sFile, 2)
>
> If wbkF.ReadOnly Then
>
> Debug.Print "cara 1 : wbk readonly", "Sedang dipakai user lain"
>
> Else
>
> Debug.Print "cara 1 : wbk readonly", "Tidak ada yang pakai"
>
> End If
>
> wbkF.Close False
>
>
>
> 'cara 2 :
>
> Dim iFile As Integer
>
> Err.Clear
>
> On Error Resume Next
>
> iFile = FreeFile
>
> Open sFile For Binary Access Read Lock Read As iFile: Close iFile
>
> If Err.Number <> 0 Then
>
> Debug.Print "cara 2 : open iofile", "Sedang dipakai user lain"
>
> Else
>
> Debug.Print "cara 2 : open iofile", "Tidak ada yang pakai"
>
> End If
>
> Err.Clear
>
> On Error GoTo 0
>
>
>
> 'cara 3 :
>
> Dim sFBackup As String
>
> Err.Clear
>
> On Error Resume Next
>
> sFBackup = sFile & ".kid"
>
> FileCopy sFile, sFBackup
>
> Kill sFile
>
> If Err.Number <> 0 Then
>
> Debug.Print "cara 3 : save copy delete", "Sedang dipakai user lain"
>
> Else
>
> FileCopy sFBackup, sFile
>
> Debug.Print "cara 3 : save copy delete", "Tidak ada yang pakai"
>
> End If
>
> Kill sFBackup
>
> Err.Clear
>
> On Error GoTo 0
>
> End Sub
>
>
>
> On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co..id
> <tioali2011@yahoo.co.id> [belajar-excel] <belajar-excel@yahoogroups.com>
> wrote:
>
>
>
> Salqm Bexceller
>
> Saya mau cek file apakah sedang open atau tidak. Kalau file itu tutup,
> saya buka untuk digunakan. Yg saya tahu selama ini adalah dgn coba cek
> apakah file itu readonly atau tidak. Kalau tidak readoonly berarti file
> tutup. Tapi itu akan jadi masalah kalau file itu sudah besar kapasitasnya
> sehingga jadi lama bukanya.
>
> Saya dengar ada cara lain yaitu dengan cara delete file itu. Kalau error
> berarti file itu open
>
> Yg ditanyakan bagaimana teknis delete file itu karena file itu justru file
> yang kita butuhkan ?
>
>
>
> Terima kasih.
>
> Tio
>
>
>
>
>
>
>
> _
> ------------------------------
>
> *Reply via web post
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/messages/45197;_ylc=X3oDMTJybTRwZW9hBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawNycGx5BHN0aW1lAzE1NDg3Mjc0ODc-?act=reply&messageNum=45197>
> *
>
> •
>
> Reply to sender
> <hendrikkarnadi@yahoo.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
>
> •
>
> Reply to group
> <belajar-excel@yahoogroups.com?subject=Re%3A%20%5Bbelajar-excel%5D%20Macro%20untuk%20mengambil%20Serial%20Number%20Komputer>
>
> s
> <https://groups.yahoo.com/neo/groups/belajar-excel/conversations/topics/45164;_ylc=X3oDMTM3aTc0Ym5oBF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRtc2dJZAM0NTE5NwRzZWMDZnRyBHNsawN2dHBjBHN0aW1lAzE1NDg3Mjc0ODcEdHBjSWQDNDUxNjQ->
>
>
> ------------------------------
>
> Have you tried the highest rated email app? <https://yho.com/1wwmgg>
>
> With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email
> app on the market. What are you waiting for? Now you can access all your
> inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email
> again with 1000GB of free cloud storage.
> ------------------------------
>
> ============================================================
> 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
> ----------------------------------------------------------
>
> *Visit Your Group
> <https://groups.yahoo.com/neo/groups/belajar-excel/info;_ylc=X3oDMTJmNDU3ZHA5BF9TAzk3MzU5NzE0BGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDdnRsBHNsawN2Z2hwBHN0aW1lAzE1NDg3Mjc0ODc->*
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
> • Privacy • Unsubscribe • Terms of Use
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
> SPONSORED LINKS
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
> *
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->*
>
> *
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->*
>
> *
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->*
>
> .
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
> <https://groups.yahoo.com/neo;_ylc=X3oDMTJldTB1NzBhBF9TAzk3NDc2NTkwBGdycElkAzIwNjI3Njc4BGdycHNwSWQDMTcwODI5ODgyMQRzZWMDZnRyBHNsawNnZnAEc3RpbWUDMTU0ODcyNzQ4Nw-->
>
>
>
Wed Jan 30, 2019 11:33 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Pakai saja berulang-ulang. Kalau suatu proses menghitung y = ax + b ,
berarti butuh 4 variabel. Kalau ada variabel yang nganggur, pakai saja
untuk proses hitung y tersebut. Kalau kurang, buat variabel baru.
On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Salam BeExceller
> Misal saya pakai variabel
> Dim s as byte
> Variabel s itu dipakai untuk cek baris terakhir di kolom 5. Sy juga butuh
> variabel untuk cek baris akhir di kolom 10..
> Pertanyaannya,
> Untuk cek baris akbir di kolom 10, apakah saya harus pakai variabel yg
> beda dari s, misal variabel m. Atau bisa pakai variabel yg sama yaitu s
> juga ? Yg saya khawatirkan pakai 2 atau lebih variabel akan butuh memory
> dibanding pakai sedikit variabel. Sementara variabel itu penggunaannya sama
> yakni hitung baris akhir saja.
>
> Terima kasih atas jawabannya.
> Tio
>
>
>
berarti butuh 4 variabel. Kalau ada variabel yang nganggur, pakai saja
untuk proses hitung y tersebut. Kalau kurang, buat variabel baru.
On Wed, Jan 30, 2019 at 7:37 AM Tio Ali tioali2011@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Salam BeExceller
> Misal saya pakai variabel
> Dim s as byte
> Variabel s itu dipakai untuk cek baris terakhir di kolom 5. Sy juga butuh
> variabel untuk cek baris akhir di kolom 10..
> Pertanyaannya,
> Untuk cek baris akbir di kolom 10, apakah saya harus pakai variabel yg
> beda dari s, misal variabel m. Atau bisa pakai variabel yg sama yaitu s
> juga ? Yg saya khawatirkan pakai 2 atau lebih variabel akan butuh memory
> dibanding pakai sedikit variabel. Sementara variabel itu penggunaannya sama
> yakni hitung baris akhir saja.
>
> Terima kasih atas jawabannya.
> Tio
>
>
>
Thu Jan 31, 2019 2:52 pm (PST) . Posted by:
"Tio Adi Bayu Adjie"
Terima kasih mas KenangAgus. Alhamdulillah. Berhasil. Semoga ilmunya terus bertambah. Amiin....Maaf telat reply, soalnya email kantor bermasalah....
Tio
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 24 Januari 2019 22:14
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Memecah kalimat panjang hasil copy paste dari pdf ke kolom tertentu di beberapa baris di worksheet
Dear Tio,
Bisa dicoba Cekript ini:
Private Sub CommandButton1_Click()
Dim n As Single
Dim i As Single
Dim y As Single
Dim yy As Single
Dim ii As Single
yy = 1
n = Int(Len(TextBox1.Text) / 41)
For i = 1 To n
For ii = 41 + y To 41 + y + 12
If Mid(TextBox1.Text, ii, 1) = " " Then
y = ii
Exit For
End If
Next ii
If i = n Then
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, 40)
Else
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, y - yy)
End If
yy = 1 + y
Next i
End Sub
salam KenangAgus
On 1/23/2019 10:42, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] wrote:
Dear Bexceller,
Saya ada pertanyaan.
Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang.
Teks yang panjang ini ditempatkan di userform.
Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat panjang itu jadi beberapa baris dan ditempatkan di cell tertentu. Contohnya di kolom A di beberapa baris.
Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat yang panjang dan memecahnya ? Dan bagaimana cara meletakkannya di beberapa baris di kolom tertentu ?
Contoh soal terlampir.
..
Tio
From: belajar-excel@yahoogroups.com [mailto:belajar-excel@yahoogroups.com]
Sent: 24 Januari 2019 22:14
To: belajar-excel@yahoogroups.com
Subject: Re: [belajar-excel] Memecah kalimat panjang hasil copy paste dari pdf ke kolom tertentu di beberapa baris di worksheet
Dear Tio,
Bisa dicoba Cekript ini:
Private Sub CommandButton1_Click()
Dim n As Single
Dim i As Single
Dim y As Single
Dim yy As Single
Dim ii As Single
yy = 1
n = Int(Len(TextBox1.Text) / 41)
For i = 1 To n
For ii = 41 + y To 41 + y + 12
If Mid(TextBox1.Text, ii, 1) = " " Then
y = ii
Exit For
End If
Next ii
If i = n Then
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, 40)
Else
Range("A" & 2 + i) = Mid(TextBox1.Text, yy, y - yy)
End If
yy = 1 + y
Next i
End Sub
salam KenangAgus
On 1/23/2019 10:42, Tio Adi Bayu Adjie tio.adjie@ptssb.co.id<mailto:tio.adjie@ptssb.co.id> [belajar-excel] wrote:
Dear Bexceller,
Saya ada pertanyaan.
Ada user yang copy paste teks dari pdf, sehingga kalimatnya panjang.
Teks yang panjang ini ditempatkan di userform.
Yang diinginkan adalah ada sebuat tombol yang bisa memecah kalimat panjang itu jadi beberapa baris dan ditempatkan di cell tertentu. Contohnya di kolom A di beberapa baris.
Bagaimana mengetahui berapa baris yang dibutuhkan dari satu kalimat yang panjang dan memecahnya ? Dan bagaimana cara meletakkannya di beberapa baris di kolom tertentu ?
Contoh soal terlampir.
..
Thu Jan 31, 2019 3:49 pm (PST) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Tentang :
1. Bagaimana menggunakan excel secara vertikal pada mail merge word, karena
di word terbacanya (normalnya secara horinzontal)
> tidak bisa, karena kaidah tabel yang baik adalah header dari kiri ke
kanan, records mulai tepat di bawah header. Word menggunakan kaidah ini
dalam mail merge.
> lebih baik di sheet lain, dibuat tabel yang baik. Excel memiliki fitur
paste special transpose, juga fungsi transpose, atau mau memanfaatkan pivot
table dalam mentranspose, atau fitur power query juga bisa. Yang penting di
sheet lain itu terbentuk tabel yang baik. Bisa link dengan formula ke
sumber data aslinya, bisa juga dengan fitur lainnya tadi.
> sheet yang baru yang berisi tabel yang baik inilah yang menjadi recipient
dalam mail merge.
2. Apakah Grafik excel bisa dibaca di mail merge?
> Tidak bisa.
> Kalau image file bisa dengan kode includepicture.
> Andai chart hanya 1 untuk berbagai data, ada fitur copy paste special
link di word yang bisa digunakan.
> kalau harus dengan mail merge, sila cari word add-in tentang chart mail
merge saja ya...
Kalau hanya pakai Excel (tanpa word), prosesnya dengan membuat *sebuah *sheet
berisi rancangan susunan laporan seperti di file word Anda tersebut.
Data bisa di sheet lain untuk seluruh records, kemudian nilai-nilai dalam
sheet laporan (yang diambil dari sheet data) bisa dengan formula.
Proses print banyak data bisa dengan VBA (banyak contohnya di milis ini).
Kirim email pun bisa dengan VBA (ada banyak juga contohnya di milis ini).
Regards,
Kid
On Mon, Jan 28, 2019 at 2:23 PM didit prast didit_monk@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Admin,
>
>
> Saya sedangmenggunakan mail merge di word :
> 1. Bagaimana menggunakan excel secara vertikal pada mail merge word,
> karena di word terbacanya (normalnya secara horinzontal)
> 2. Apakah Grafik excel bisa dibaca di mail merge?....
>
> File terlampir
>
>
> Terima kasih
>
>
>
1. Bagaimana menggunakan excel secara vertikal pada mail merge word, karena
di word terbacanya (normalnya secara horinzontal)
> tidak bisa, karena kaidah tabel yang baik adalah header dari kiri ke
kanan, records mulai tepat di bawah header. Word menggunakan kaidah ini
dalam mail merge.
> lebih baik di sheet lain, dibuat tabel yang baik. Excel memiliki fitur
paste special transpose, juga fungsi transpose, atau mau memanfaatkan pivot
table dalam mentranspose, atau fitur power query juga bisa. Yang penting di
sheet lain itu terbentuk tabel yang baik. Bisa link dengan formula ke
sumber data aslinya, bisa juga dengan fitur lainnya tadi.
> sheet yang baru yang berisi tabel yang baik inilah yang menjadi recipient
dalam mail merge.
2. Apakah Grafik excel bisa dibaca di mail merge?
> Tidak bisa.
> Kalau image file bisa dengan kode includepicture.
> Andai chart hanya 1 untuk berbagai data, ada fitur copy paste special
link di word yang bisa digunakan.
> kalau harus dengan mail merge, sila cari word add-in tentang chart mail
merge saja ya...
Kalau hanya pakai Excel (tanpa word), prosesnya dengan membuat *sebuah *sheet
berisi rancangan susunan laporan seperti di file word Anda tersebut.
Data bisa di sheet lain untuk seluruh records, kemudian nilai-nilai dalam
sheet laporan (yang diambil dari sheet data) bisa dengan formula.
Proses print banyak data bisa dengan VBA (banyak contohnya di milis ini).
Kirim email pun bisa dengan VBA (ada banyak juga contohnya di milis ini).
Regards,
Kid
On Mon, Jan 28, 2019 at 2:23 PM didit prast didit_monk@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Dear Admin,
>
>
> Saya sedangmenggunakan mail merge di word :
> 1. Bagaimana menggunakan excel secara vertikal pada mail merge word,
> karena di word terbacanya (normalnya secara horinzontal)
> 2. Apakah Grafik excel bisa dibaca di mail merge?....
>
> File terlampir
>
>
> Terima kasih
>
>
>
============================================================
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
---------------------------------------------------------------------
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
---------------------------------------------------------------------
