Otomatik Satır Ekleme

[setheleh]

Merhaba,

Belirli aralıklarla (sabit değil) en son satırdaki E verisini 4 kere çoğaltacak bir makroya ihtiyacım var 1. sayfada olanı 2. sayfada olması gerekeni görebilirsiniz.

https://www.dropbox.com/s/2nn6pmbiprk8r00/SATIR EKLEME.xlsx?dl=0

Teşekkürler.

 

[Murat OSMA]

Bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    son = Range("H65336").End(3).Row
    Range("H" & son).AutoFill Range("H" & son & ":H" & son + 3), 0
End Sub[/SIZE][/FONT]

 

[setheleh]

Bu kodları kullanabilirsiniz..

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    son = Range("H65336").End(3).Row
    Range("H" & son).AutoFill Range("H" & son & ":H" & son + 3), 0
End Sub[/SIZE][/FONT]

Teşekkürler ancak sadece son satırdaki "E" değerlerini çoğaltıyor tamamı için nasıl yapabiliriz ? Aşağıdaki şekilde kaydettim makroyu.

son = Range("H65336").End(3).Row
Range("H" & son).AutoFill Range("H" & son & ":H" & son + 3), 0

 

[Murat OSMA]

Sayfa2'ye dikkatli bakınca şimdi fark ettim.

Kodları bu şekilde revize edebilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim al$, i&
    al = Range("H65336").End(3).Value: i = 2
    While Cells(i, "H").Value <> ""
        If Cells(i, "H").Value = al Then
            Rows(i + 1 & ":" & i + 3).Insert Shift:=4, CopyOrigin:=0
            Range("H" & i).AutoFill Destination:=Range("H" & i & ":H" & i + 3), Type:=0
            i = i + 4
        End If
        i = i + 1
    Wend
End Sub[/SIZE][/FONT]

 

[setheleh]

Sayfa2'ye dikkatli bakınca şimdi fark ettim.

Kodları bu şekilde revize edebilirsiniz.

[FONT="Trebuchet MS"][SIZE="2"]Sub Emre()
    Dim al$, i&
    al = Range("H65336").End(3).Value: i = 2
    While Cells(i, "H").Value <> ""
        If Cells(i, "H").Value = al Then
            Rows(i + 1 & ":" & i + 3).Insert Shift:=4, CopyOrigin:=0
            Range("H" & i).AutoFill Destination:=Range("H" & i & ":H" & i + 3), Type:=0
            i = i + 4
        End If
        i = i + 1
    Wend
End Sub[/SIZE][/FONT]

Şimdi oldu elinize sağlık çok teşekkür ederim.

 

[Murat OSMA]

Rica ederim, iyi günler.​

 

[kurulum78]

Satır ekleme numaralama destek

Merhabalar ;

Günlerdir benzer bir problem ile ben de uğraşıyorum

https://www.dropbox.com/s/slu3vyg6yc4ccod/%C3%B6rnek.xlsx?dl=0

Linkine örnek dosyamı ekledim. Data sayfamda blok ve daire sayıları yer almakta. Sonuç sayfamda ise daire sayısı kadar satır ekleyerek her satıra 1'den başlayıp daire numarası eklemek istiyorum. Gönderdiğim sadece örnek, çalışacağım exceller de en az 1200 satır data mevcut ve dolayısı ile bu işlemi otomatik yapabilmem gerekiyor. Yardımcı olabilirseniz çok makbule geçecektir. Şimdiden teşekkür ederim.