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 iEnd 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.ASLTo: [email protected]: 
[email protected]: Fri, 11 Apr 2014 08:50:47 +0700Subject: 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



                                          


    
     

    
    






  









    
     

    
    






  
                                          


    
     

    
    




      


    
     

    
    






                                          

Kirim email ke