Pak ASL,
Coba ganti ...
Perintah:
Range("A" & i).EntireRow.Insert
dengan
Range("A" & i).Resize(2).EntireRow.Insert
Salam,
HK
On Friday, 11 April 2014, 16:17, Ahmad Syaifullah Lubis
<[email protected]> wrote:
Dear Mr HK,
terima kasih, macro ini juga berjalan sesuai dengan keinginan saya.
cuman mau nanya gimana ya agar baris yg diinsert itu bukan 1 baris, tetapi
menjadi 2 baris gitu.
terima kasih,
ASL.
________________________________
To: [email protected]
From: [email protected]
Date: Fri, 11 Apr 2014 00:20:55 -0700
Subject: Re: [belajar-excel] insert baris sesuai target.
Coba pake macro ini:
'warisan ctv (modified by HK)
Sub InsertRow()
Dim Rng As Range, i As Long
Set Rng = Range("A1:A100000")
For i = Rng.Rows.Count To 1 Step -1
If Range("A" & i).Value = "x" Then
Range("A" & i).EntireRow.Insert
End If
Next i
End Sub
Salam,
HK
On Friday, 11 April 2014, 13:12, Ahmad Syaifullah Lubis
<[email protected]> wrote:
Dear Mr Kid,
Proses manual dari macro insert baris sesuai target adalah macro berjalan mulai
dari cell A1, apabila cell A1 ada karakter "x" maka baris tsb akan diinsert
baris, kemudian turun 2 baris dan bila ketemu tanda "x" diinsert row lagi, bila
tidak ada tanda "x" maka turun 1 baris saja, terus berulang sampai selesai.
dengan kata lain, macro akan dieksekusi jika ketemu tanda "x" begitu
seterusnya. cuman saya gak tahu juga bagaimana memberhentikan macro tsb kalau
sudah tidak ada lagi target yang dimaksudkan, selain dengan memencet tombol
pause/break.
terlampir file dimaksud, terdiri dari sheet sumber dan sheet hasil yang
diinginkan.
terimakasih.
ASL
________________________________
To: [email protected]
From: [email protected]
Date: Fri, 11 Apr 2014 08:50:47 +0700
Subject: Re: [belajar-excel] insert baris sesuai target.
Bisa dijabarkan proses manual insertnya bagaimana ?
Wassalam,
Kid.
2014-04-11 8:45 GMT+07:00 Ahmad Syaifullah Lubis <[email protected]>:
>
>
>
>Dear BeExceller,
>
>Saya ada macro untuk insert baris dari target yang telah diberikan tanda "x",
>namun macronya gak jalan.
>mohon diberikan solusinya.
>terima kasih.
>
>ASL
>
>
>
>
>
>
