Sama2 pak.
Kalau mau pake function juga bisa.
Copas Code ini di Module1 juga
Function No_Blank(lrng As Range)
Dim A(), X()
Dim n As Long, r As Long
ReDim A(1 To lrng.Cells.Count)
For n = 1 To UBound(A)
A(n) = lrng.Cells(n)
If Not A(n) = Then
r = r + 1: ReDim
dh
salam be-excel
bagaimana membuat macro ntuk menjaring ikan yang terpisah seperti file terlampir
wasalam
Andik Syarif
* Mods *
Yang diinginkan oleh sdr Andik adalah mengumpulkan data
dalam 1 tabel dengan menghilangkan data yang kosong
**
macro jaring ikan
Macro dalam file terlampir adalah modifikasi dari function LOUV warisan mba
Siti.
Macronya seperti ini :
Sub NoBlank()
Dim lrow As Long
Dim lrng As Range
Dim n As Long, r As Long
Dim X()
lrow = Cells(Rows.Count, E).End(xlUp).Row
Set lrng = Range(E2).Resize(lrow)
For n
makasih pak hk.. ini forum sangat bermanfaat sekali guna meningkatkan
kecerdasan bangsa dan negara
hehehe (kok sampek banagsa dan negara)
intinya makasih pak...
2013/12/23 hendrik karnadi hendrikkarn...@yahoo.com
Macro dalam file terlampir adalah modifikasi dari function LOUV warisan
@yahoogroups.com
Subject: [belajar-excel] Macro Jaring Ikan Yang Terpisah [1 Attachment]
dh
salam be-excel
bagaimana membuat macro ntuk menjaring ikan yang terpisah seperti file terlampir
wasalam
Andik Syarif
* Mods *
Yang diinginkan oleh sdr Andik adalah mengumpulkan data
kolom bantu.
File terlampir semoga bisa membantu.
Salam,
Agus
*From:* belajar-excel@yahoogroups.com [mailto:
belajar-excel@yahoogroups.com] *On Behalf Of *Rahmat Suprianto
*Sent:* 23 Desember 2013 11:22
*To:* belajar-excel@yahoogroups.com
*Subject:* [belajar-excel] Macro Jaring Ikan
-excel@yahoogroups.com [mailto:
belajar-excel@yahoogroups.com] *On Behalf Of *Rahmat Suprianto
*Sent:* 23 Desember 2013 11:22
*To:* belajar-excel@yahoogroups.com
*Subject:* [belajar-excel] Macro Jaring Ikan Yang Terpisah [1 Attachment]
dh
salam be-excel
bagaimana membuat macro ntuk
7 matches
Mail list logo