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
> 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 = 1 To lrng.Rows.Count
> If Not lrng(n) = "" Then
> r = r + 1: ReDim Preserve X(1 To r): X(r) = lrng(n)
> End If
> Next n
> Range("B2").Resize(r) = WorksheetFunction.Transpose(X)
> End Sub
>
> File terlampir.
>
> Salam,
> HK
>
>
>
>
> On Monday, 23 December 2013, 12:02, Rahmat Suprianto <
> andiksa...@gmail.com> wrote:
>
> 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
> ******************
>
>
>
>
