Ini scriptnya: Sub Hapus()
For I = 1 To Sheets.Count '==>untuk delete dari sheet paling kiri ke kanan Sheets(I).Select Application.ScreenUpdating = False A2 = 23 'Row yg dihapus mulai dari Row 23 For A = A2 To 65536 If Cells(A2 + 1, 3).Value = "" Then Exit For If Cells(A2, 2).Value = "" Then Range(Cells(A2, 1), Cells(A2, 11)).Delete Shift:=xlUp Else: A2 = A2 + 1 End If Next A Application.ScreenUpdating = True Next I End Sub Semoga membantu :-) Rgds, -Ayang- On 8/28/08, ARIF PC <[EMAIL PROTECTED]> wrote: > > Dear para MASTER EXCELL yang saya cintai…. > > > > Saya punya File Excell yg hampir di semua cellnya terdapat Formula….ada di > lampiran…. > > Di sheet 123 itu awal sebelum saya Delete cellnya….trus yang sheet 123-A > itu hasil yang saya inginkan untuk mempermudah laporan ke "JURAGAN". > > Coba saudara2x bayangkan berapa lama waktu yang saya perlukan untuk membuat > sheet 123 menjadi 123-A kalau dalam satu file itu ada 100 sheet yang akan di > rubah dalam setiap bulanya….pasti banyak banget waktu yang terbuang. > > Kesulitan saya : > > 1. Yang saya ingin delete cellnya di sheet 123 itu hanya Coloum > A23:K23 sampai A122:K122 yang hanya mempunyai nilai " - " sehingga menjadi > sheet 123-A > > 2. Saya ingin membuat Sheet master di mana sudah terdapat makro > TOMBOL DELETE CELL nya tetapi yang bisa di copy sheetnya ke samping dan > makro tetap jalan di active sheet…. (Shettnya continues no. CONTOH > SHEET123 – SHEET124 – SHEET125 – DST.) > > > > Pnegenya sich…skali klik biso smuane….. > > Matur Suwun Sanget…. > > > > Best regards, > > Arief Putra Ronggolawe > > > > -- Best Regards, - Ayang - Please consider the environment before printing this email.
