2 Messages
Digest #4568
Messages
Thu Aug 9, 2018 10:45 pm (PDT) . Posted by:
"heru Rasna"
Assalamualaikum, selamat pagi master excel
saya menemui kendala pada saat menghapus baris didalam userformbaris yang ingin dihapus ada pada 2 sheet yang berbeda, untuk di sheet pertama berhasil di hapus, namun pada sheet yang kedua code tidak mau berjalan.
inginnya pada saat hapus di sheet pertama, semua data yang ada di sheet kedua yang memiliki no rujukan pd sheet sheet pertama juga terhapus.mohon bimbingannya
Terima KasihHeru
(mohon maaf file lebih dari 200 kb jadi saya lampirkan via google drive)drive.google.com/file/d/1EOmy-11D26MwRgc43HgLfMdaedMCckx3/view?usp=sharing
|
|
| |
edit data multiple2.xlsm
|
|
|
saya menemui kendala pada saat menghapus baris didalam userformbaris yang ingin dihapus ada pada 2 sheet yang berbeda, untuk di sheet pertama berhasil di hapus, namun pada sheet yang kedua code tidak mau berjalan.
inginnya pada saat hapus di sheet pertama, semua data yang ada di sheet kedua yang memiliki no rujukan pd sheet sheet pertama juga terhapus.mohon bimbingannya
Terima KasihHeru
(mohon maaf file lebih dari 200 kb jadi saya lampirkan via google drive)drive.
|
|
| |
edit data multiple2.xlsm
|
|
|
Fri Aug 10, 2018 12:03 am (PDT) . Posted by:
"Mr. Kid" nmkid.family@ymail.com
Wa'alaikumussalam wr wb
1. Cara mencari baris terakhir berdasar kolom Z (kolom ke-26) di sheet
bernama 'Kid'
dim lLastRow as long
with sheets("Kid")
lLastRow= .cells( .rows.count , 26 ).end(xlup).row
'atau
lLastRow= .cells( .rows.count , "Z" ).end(xlup).row
end with
2. Disiplin dengan deklarasi variabel menggunakan data type yang baik bisa
mengurangi error seperti yang Anda alami.
dim lRow as long, shtKerja as worksheet, rngData as range
set shtKerja=Sheets("Kid")
with shtkerja
for lrow= .cells( .rows.count , 26 ).end(xlup).row to 70 step -1
set rngData= .cells( lrow , 26 )
next lrow
end with
3. Disiplin menjaga datatype di dalam setiap kolom data dalam worksheet itu
memudahkan pekerjaan
Jika data di kolom Z berisi angka-angka, tetapi ada yang rata kiri
karena bertipe text dan ada yang rata kanan karena bertipe numerik, maka
ini HAL BURUK
Jadi dalam membandingkan nilai, perhatikan datatype-nya. Teks angka 123
TIDAK SAMA dengan bilangan 123.
Regards,
Kid
On Fri, Aug 10, 2018 at 12:45 PM heru Rasna herurasna@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamualaikum, selamat pagi master excel
>
> saya menemui kendala pada saat menghapus baris didalam userform
> baris yang ingin dihapus ada pada 2 sheet yang berbeda, untuk di sheet
> pertama berhasil di hapus, namun pada sheet yang kedua code tidak mau
> berjalan.
>
> inginnya pada saat hapus di sheet pertama, semua data yang ada di sheet
> kedua yang memiliki no rujukan pd sheet sheet pertama juga terhapus.
> mohon bimbingannya
>
> Terima Kasih
> Heru
>
> (mohon maaf file lebih dari 200 kb jadi saya lampirkan via google drive)
> drive.google.com/file/d/1EOmy-11D26MwRgc43HgLfMdaedMCckx3/view?usp=sharing
>
> edit data multiple2.xlsm
>
>
> <https://drive.google.com/file/d/1EOmy-11D26MwRgc43HgLfMdaedMCckx3/view?usp=sharing>
>
>
>
>
1. Cara mencari baris terakhir berdasar kolom Z (kolom ke-26) di sheet
bernama 'Kid'
dim lLastRow as long
with sheets("Kid")
lLastRow= .cells( .rows.count , 26 ).end(xlup).row
'atau
lLastRow= .cells( .rows.count , "Z" ).end(xlup).row
end with
2. Disiplin dengan deklarasi variabel menggunakan data type yang baik bisa
mengurangi error seperti yang Anda alami.
dim lRow as long, shtKerja as worksheet, rngData as range
set shtKerja=Sheets("Kid")
with shtkerja
for lrow= .cells( .rows.count , 26 ).end(xlup).row to 70 step -1
set rngData= .cells( lrow , 26 )
next lrow
end with
3. Disiplin menjaga datatype di dalam setiap kolom data dalam worksheet itu
memudahkan pekerjaan
Jika data di kolom Z berisi angka-angka, tetapi ada yang rata kiri
karena bertipe text dan ada yang rata kanan karena bertipe numerik, maka
ini HAL BURUK
Jadi dalam membandingkan nilai, perhatikan datatype-nya. Teks angka 123
TIDAK SAMA dengan bilangan 123.
Regards,
Kid
On Fri, Aug 10, 2018 at 12:45 PM heru Rasna herurasna@yahoo.co.id
[belajar-excel] <belajar-excel@yahoogroups.com> wrote:
>
>
> Assalamualaikum, selamat pagi master excel
>
> saya menemui kendala pada saat menghapus baris didalam userform
> baris yang ingin dihapus ada pada 2 sheet yang berbeda, untuk di sheet
> pertama berhasil di hapus, namun pada sheet yang kedua code tidak mau
> berjalan.
>
> inginnya pada saat hapus di sheet pertama, semua data yang ada di sheet
> kedua yang memiliki no rujukan pd sheet sheet pertama juga terhapus.
> mohon bimbingannya
>
> Terima Kasih
> Heru
>
> (mohon maaf file lebih dari 200 kb jadi saya lampirkan via google drive)
> drive.google.com/file/d/1EOmy-11D26MwRgc43HgLfMdaedMCckx3/view?usp=sharing
>
> edit data multiple2.xlsm
>
>
> <https://drive.google.com/file/d/1EOmy-11D26MwRgc43HgLfMdaedMCckx3/view?usp=sharing>
>
>
>
>
============================================================
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
---------------------------------------------------------------------
Tidak ada komentar:
Posting Komentar