[belajar-excel] Digest Number 2020

Milis Belajar Microsoft Excel Group

1 New Message

Digest #2020

1a

Re: macro sisip baris by "Mr. Kid" nmkid.family@ymail.com

Message

1a

Re: macro sisip baris

Sat Jan 12, 2013 3:00 am (PST) . Posted by:

"Mr. Kid" nmkid.family@ymail.com

Coba prosedur :
Public Sub MySisip()
Dim rng As Range, lRows As Long

Application.ScreenUpdating = False
Application.Calculation = xlCalculationAutomatic

With Sheet1
lRows = 2 * .Range("a1").CurrentRegion.Rows.Count
.Range("f2").Resize(lRows).Formula =
"=IF(b2<>b1,IF(LEN(b2),N(F1)+1,1),IF(LEN(b2),F1,N(F1)+1))"
.Range("f2").Resize(lRows).Value = .Range("f2").Resize(lRows).Value
.Range("a1").CurrentRegion.Sort .Range("f1"), xlAscending,
Header:=xlYes, Orientation:=xlSortColumns
.Range("f2").EntireColumn.ClearContents
End With
End Sub

Prosedur di atas memanfaatkan fitur sort.

Wassalam,
Kid.

2013/1/12 Dede Suparman dede_suparman111@yahoo.com>

> **
>
>
> Dear All,
> jangan bosen ya, kasus pertama sudah selesai eehh ada lg.
> dengan "tombol merah (SISIP)" semua data dipisahkan dengan baris kosong.,
> yang jadai kasus nya, apakah bisa item yang sama nya tidak dipisah,sudah
> saya otak_atik ndak bisa.Mohon bantuannya,File Terlampir.
>
> SABUN
>
> SHAMPOO
>
> COLOGNE
> COLOGNE
>
> VITAMIN
> VITAMIN
> VITAMIN
>
> KARBOL
> KARBOL
> KARBOL
>
> salam,
> Dede Suparman
>
>
>

Reply to sender . Reply to group . Reply via Web Post . All Messages (2) . Top ^

Visit Your Group

>

View All Topics

>

Create New Topic

>

26 New Members

>

We are making changes based on your feedback, Thank you !

Submit Feedback

>

The Yahoo! Groups Product Blog

Check it out!

>

GROUP FOOTER MESSAGE

---------------------------------------------------------------------
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
---------------------------------------------------------------------

CHANGE SETTINGS

>

TERMS OF USE

>

UNSUBSCRIBE

>