Rabu, 25 Maret 2015

[belajar-excel] Digest Number 3359

1 Message

Digest #3359
1a
Re: Insert row by "Bagus"

Message

Wed Mar 25, 2015 2:23 am (PDT) . Posted by:

"Bagus"

Terima kasih pak Hendrik

It's work..

Wassalam
Bagus

2015-03-25 15:17 GMT+07:00 hendrik karnadi hendrikkarnadi@yahoo.com
[belajar-excel] <belajar-excel@yahoogroups.com>:

>
>
> Mas Bagus,
> Ini adalah warisan mbak Siti Vi, yang saya modifikasi sedikit.
> Macronya seperti ini:
> Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
> Boolean)
> *'siti v, edited by hk*
> Dim Rng As Range, r As Long
> Set Rng = Cells(1).CurrentRegion
> For r = Rng.Rows.Count + 1 To 2 Step -1
> If Rng(r - 1, 1).Value = 1 Then
> Rng(r - 1, 1).EntireRow.Insert Shift:=xlDown
> End If
> Next r
> Rows("2:2").EntireRow.Delete
> Cancel = True
> End Sub
> di copas ke VBE (sheet1(data))
>
> Salam,
> HK
>
> ------------------------------
> *From:* "Bagus bagus4bls@gmail.com [belajar-excel]" <
> belajar-excel@yahoogroups.com>
> *To:* "belajar-excel@yahoogroups.com" <belajar-excel@yahoogroups.com>
> *Sent:* Wednesday, 25 March 2015, 14:23
> *Subject:* [belajar-excel] Insert row [1 Attachment]
>
>
> Assalamu'alaykum..
>
> Minta tolong kepada be-exceller untuk kasus terlampir.
>
> bagaimana ketika ketemu nomor satu yang kedua dan seterusnya maka akan
> insert row.
>
> Matur nuwun;
>
>
> Wassalam
> Bagus
>
>
>
>
============================================================
Pojok Lowongan Kerja yang disediakan milis :
http://milis-belajar-excel.1048464.n5.nabble.com/Pojok-Lowongan-Kerja-f5725753.html
*** Posting lowongan kerja : ke link tersebut dan klik New Topic
============================================================
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