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 herura...@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>
>
>
>
>
