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
wrote:
Dear Mr HK,
terima kasih, macro ini juga berjalan sesuai dengan keinginan saya.
cuman mau nanya gim
hehehe...
gak sekalian dibuat record macronya ?
2014-04-11 16:11 GMT+07:00 Ahmad Syaifullah Lubis :
>
>
> Dear Mr Kid,
> Alhamdulillah , dengan cara CTRL G-spesial-constant-hanya ambil opsi text
> dan dilanjutkan dengan insert row data saya yang 13000 baris tertata sesuai
> dengan keinginan sa
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: belajar-excel@yahoogroups.com
From: hendrikkarn...@yahoo.com
Date: Fri, 11 Apr 2014 00:20:55 -07
Dear Mr Kid,
Alhamdulillah , dengan cara CTRL G-spesial-constant-hanya ambil opsi text dan
dilanjutkan dengan insert row data saya yang 13000 baris tertata sesuai dengan
keinginan saya. terima kasih mr Kid. Tanpa macro ternyata berhasil.
sangat membantu.
Terima kasih,
ASL.
To: belajar-excel@yaho
Coba pake macro ini:
'warisan ctv (modified by HK)
Sub InsertRow()
Dim Rng As Range, i As Long
Set Rng = Range("A1:A10")
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
O
5 matches
Mail list logo