Senin, 23 Desember 2013

[belajar-excel] Digest Number 2704

7 New Messages

Digest #2704

Messages

Sun Dec 22, 2013 10:40 pm (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

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 <andiksarif@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
******************

Sun Dec 22, 2013 11:00 pm (PST) . Posted by:

"Rahmat Suprianto"

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 <hendrikkarnadi@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 <
> andiksarif@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
> ******************
>
>
>
>

Mon Dec 23, 2013 12:00 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

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 Preserve X(1 To r): X(r) = A(n)
      End If
    Next n
    No_Blank = WorksheetFunction.Transpose(X)
End Function

Cara menjalankan Functionnya:
- Sorot sel B2 ke bawah (sebanyak baris data)
- Ketik =No_Blank(E2:E21) kemudian akhiri dengan menekan tombol CSE (array formula).

- Tanda #N/A menyatakan baris akhir data telah terlampaui.

Salam,
HK

On Monday, 23 December 2013, 14:00, Rahmat Suprianto <andiksarif@gmail.com> wrote:

 
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 <hendrikkarnadi@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 <andiksarif@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
>******************
>
>
>

Mon Dec 23, 2013 1:49 am (PST) . Posted by:

"hendrik karnadi" hendrikkarnadi

Dalam file terlampir ada tambahan dua Fungsi yang menggunakan Instr (perbandingan string) sehingga macronya menjadi 4, terdiri dari 1 prosedur Sub dan 3 prosedur Function.

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("A2").Resize(r) = WorksheetFunction.Transpose(X)
End Sub

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 Preserve X(1 To r): X(r) = A(n)
      End If
    Next n
    No_Blank = WorksheetFunction.Transpose(X)
End Function

Function Non_Blank(lrng As Range)
    Dim r As Range
    Dim sNames As String
    Dim ArrNames
    For Each r In lrng
        If InStr(1, sNames, r & "|") = 0 Then
           sNames = sNames & r & "|"
        End If
    Next
    ArrNames = Split(sNames, "|")
    Non_Blank = WorksheetFunction.Transpose(ArrNames)
End Function

Function NonBlank(lrng As Range)
    Dim r As Range
    Dim sNames As String
    Dim ArrNames
    For Each r In lrng
        If InStr(1, sNames, r & "|") = 0 Then
           sNames = r & "|" & sNames ' urutan terbalik
        End If
    Next
    ArrNames = Split(sNames, "|")
    NonBlank = WorksheetFunction.Transpose(ArrNames)
End Function

Mungkin rekan2 yang lain bisa menambahkan atau memperbaikinya.

Salam,
HK

On Monday, 23 December 2013, 15:00, hendrik karnadi <hendrikkarnadi@yahoo.com> wrote:

 
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 Preserve X(1 To r): X(r) = A(n)
      End If
    Next n
    No_Blank = WorksheetFunction.Transpose(X)
End Function

Cara menjalankan Functionnya:
- Sorot sel B2 ke bawah
(sebanyak baris data)
- Ketik =No_Blank(E2:E21) kemudian akhiri dengan menekan tombol CSE (array formula).

- Tanda #N/A menyatakan baris akhir data telah terlampaui.

Salam,
HK

On Monday, 23 December 2013, 14:00, Rahmat Suprianto <andiksarif@gmail.com> wrote:

 
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 <hendrikkarnadi@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 <andiksarif@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
>******************
>
>
>

Sun Dec 22, 2013 11:38 pm (PST) . Posted by:

"Agus Widodo" agus_1194

Dear Pak Andik,

Bagaimana kalau tidak menggunakan Makro tetapi dengan 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 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
dalam 1 tabel dengan menghilangkan data yang kosong
******************

Sun Dec 22, 2013 11:57 pm (PST) . Posted by:

"Rahmat Suprianto"

maksih pak agus nambah ilmu lagi selain pakai macro

Pada 23 Desember 2013 14.38, Agus Widodo <agus_1194@yahoo.co.id> menulis:

>
>
> Dear Pak Andik,
>
>
>
> Bagaimana kalau tidak menggunakan Makro tetapi dengan 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 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
> dalam 1 tabel dengan menghilangkan data yang kosong
> ******************
>
>
>

Sun Dec 22, 2013 11:57 pm (PST) . Posted by:

"Jan Raisin"

ikutan nyumbang 3 baris script

Sub HapusBlank ()
Selection.SpecialCells(xlCellTypeBlanks).Delete (xlShiftUp)
End Sub

Salam,

-Miss Jan Raisin-

Pada 23 Desember 2013 14.38, Agus Widodo <agus_1194@yahoo.co.id> menulis:

>
>
> Dear Pak Andik,
>
>
>
> Bagaimana kalau tidak menggunakan Makro tetapi dengan 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 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
> dalam 1 tabel dengan menghilangkan data yang kosong
> ******************
>
>
>
GROUP FOOTER MESSAGE
=====================================================================
Untuk memudahkan tim penyusun materi Belajar Excel yang lebih sesuai kebutuhan member, silakan ungkapkan permasalahan yang kerap ditemui dalam menggunakan Excel sehari-hari atau hal-hal yang ingin dipelajari dalam jangka dekat ini. Mohon diprioritaskan dari yang sering ditemui sampai yang ingin dipelajari.
Isi sesuai kelompoknya (fitur-fitur, formula-formula tertentu yang masih membingungkan, otomasi atau pemrograman dalam Excel [Macro - VBA], hal lainnya yang membuat Anda kesulitan dalam mempelajari Excel).
Boleh mengisi berulang kali untuk menambah uneg-uneg yang ingin diungkapkan.
Link untuk menuangkan seluruh uneg-uneg tersebut ada di :
http://tech.groups.yahoo.com/group/belajar-excel/database?method=addRecord&tbl=3
=====================================================================
Langkah kecil Anda dalam mengisi database bisa menjadi langkah pertama yang bermanfaat besar untuk kita semua.
=====================================================================

---------------------------------------------------------------------
bergabung ke milis (subscribe), kirim mail kosong ke:
belajar-excel-subscribe@yahoogroups.com

posting ke milis, kirimkan ke:
belajar-excel@yahoogroups.com

berkunjung ke web milis
http://tech.groups.yahoo.com/group/belajar-excel/messages

melihat file archive / mendownload lampiran
http://www.mail-archive.com/belajar-excel@yahoogroups.com/
atau (sejak 25-Apr-2011) bisa juga di :
http://milis-belajar-excel.1048464.n5.nabble.com/

menghubungi moderators & owners: belajar-excel-owner@yahoogroups.com

keluar dari membership milis (UnSubscribe):
kirim mail kosong ke  belajar-excel-unsubscribe@yahoogroups.com
---------------------------------------------------------------------

Tidak ada komentar:

Posting Komentar