object yg mo didetele KOLOM (entire column) kan ya: bukan cell..
Sub LenyapkanKolomKosong()
'-- siti Vi / 19 febr 2011--
Dim Rng As Range
Dim c As Long
Dim z As Long
Set Rng = ActiveSheet.UsedRange
z = Rng(1, Rng.Columns.Count).Column
For c = z To 1 Step -1
If WorksheetFunction.CountA(Cells(1, c).EntireColumn) = 0 Then
Cells(1, c).EntireColumn.Delete
End If
Next c
End Sub
penDELETED-an kolom atau row lebih baik arahnya MUNDUR
Kalau arahnya MAJU (kekanan untuk kolom / ke bawah untuk baris)
pencacahnya suka bingung karena ada index nomor object yg mo dicacah
berubah posisinya sebab ada object yg berindex lebih muda = lenyap
dan...
koloms setelah data terkanan tidak perlu dipikirin
pasalnya didelete berapa kalipun akan langsung diganti kolom baru
(di ujung kanan sheet) oleh pak bill gentholets
selamat siang Teman teman Groups XL mania,
salam kenal. mohon maaf saya baru gabung langsung tanya,
ada yang bisa bantu macro ketika saya memilih untuk mendelete column yang tidak berisi data apapun alias blank cell.
saya coba melakukannya sebagai berikut
sub del_column()
Sheets("0").Select
Range("A1").Select
i = 2
Do
y = Sheets("0").Cells(3, i).Value
'saya menguji baris 3 yang berisi kolom kolom blank untuk dihapus
If y = "" Then
Sheets("0").columns(i).Delete
Else
i = i + 1
End If
Loop Until i = 25
end sub
setelah saya coba kok runing nggak mau berenti berenti ya...
atas bantuannya saya ucapkan terima kasih...
salam
mas wisnu
jakarta
| buku terbaru XL mania: insipartif dan unik, gabungan antara buku |
| aplikasi bisnis dan buku komputer. isinya tidak biasa! |
| http://www.xl-mania.com/2011/02/mengapa-boss-benci-chart-anda.html|
| http://www.facebook.com/group.php?gid=37671048001&ref=mf |
+-------------------------------------------------------------------+
| DILARANG : MLM, money game, OOT, iklan tanpa izin, SARA, testing, |
| pembicaraan pribadi, one line message, melecehkan, tidak sopan. |
+-------------------------------------------------------------------+
| Buat subjek yang kreatif, jangan : "tanya", "help", "mohon bantu" |
| Usahakan besar attachment < 200 kb. Gunakan winzip jika perlu. |
+-------------------------------------------------------------------+
| Ajak teman-teman Anda bergabung dengan mengirim e-mail kosong ke |
| XL-mania-subscribe@yahoogroups.com atau kirimkan mereka file dari |
| http://groups.yahoo.com/group/XL-mania/files/Promotion/ |
+-------------------------------------------------------------------+
| Berikan testimoni di : http://www.friendster.com/xlmania atau... |
| http://www.xl-mania.com/2008/06/testimoni-xl-mania.html |
+-------------------------------------------------------------------+
| Message lama ada di : |
| http://groups.yahoo.com/group/XL-mania/messages [perlu yahoo id] |
| http://www.mail-archive.com/xl-mania@yahoogroups.com |
+-------------------------------------------------------------------+
Nenhum comentário:
Postar um comentário