değer kadar satır eklemek

[kucukdunyam]

C Sütununda veriler var, Bu verilerin bulunduğu hücrelerdeki değerler kadar o hücreden sonra satır ekleyebilirmiyiz,

 

[Huseyinkis]

C Sütununda veriler var, Bu verilerin bulunduğu hücrelerdeki değerler kadar o hücreden sonra satır ekleyebilirmiyiz,

Ekteki linki incelermisiniz.

http://www.excel.web.tr/f50/satyr-ekleme-macrosu-yardym-t113635.html

 

[kucukdunyam]

teşekkür ederim,

 

[kucukdunyam]

uğraştım ama malesef yapamadım,

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

Sub Ekle()
 
    Dim i As Long
    
    Application.ScreenUpdating = False
    
    For i = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
        If Cells(i, "C") <> "" Then
            Rows(i + 1 & ":" & Cells(i, "C") + i).Insert Shift:=xlDown
        End If
    Next i
    
    Application.ScreenUpdating = False
    
End Sub

.