Bir veriye bağlı altına boş satır ekleme (Lütfen yardım)

[seiko_006]

Arkadaşlar,

YAPMAK İSTEDİĞİM CEVAP KISMINDA Katılıyorum yazan cevap altına boş bir satır eklemesi ve bu boş satırın ilk sütuna eklediği Katılıyorumdaki ilk sütundaki veriyi yapıştırması

örnek dosya ektedir.

 

[Necdet]

Merhaba,

Aşağıdaki kodları dener misiniz?
Sanki buna benzer bir soru daha mı sormuştunuz siz?
http://www.excel.web.tr/f48/cevaplara-satyr-ekleyip-ki-i-bazly-tek-satyrda-t130688.html
ve
http://www.excel.web.tr/f14/ayny-veride-satyr-ekleme-t130654.html

Bu sorular arasındaki fark nedir?

Ayrıca aşağıdaki linke hiç geri dönüş yapmamışsınız, 2 adet yanıt verilmiş. Neden?

http://www.excel.web.tr/f14/birden-cok-satyrlary-tek-sutun-haline-getirme-t130659.html

Sub Makro1()
 
    Dim i   As Long
    Application.ScreenUpdating = False
    For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
        If Cells(i, "C") = "Katılıyorum" Or Cells(i, "C") = "KATILIYORUM" And Cells(i + 1, "C") <> "" Then
            Rows(i + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
            Range("A" & i & ":A" & i + 1).FillDown
        End If
    Next i
    Application.ScreenUpdating = True
 
End Sub

 

[suleyman242]

Necdet Hocam bende yazmıştım :tongue:
neyse boşa gitmesin.

Private Sub CommandButton1_Click()
son = [A65536].End(3).Row
For i = son To 2 Step -1
If Cells(i, "C").Value = "Katılıyorum" Then
Rows(i + 1 & ":" & i + 1).Select
    Selection.Insert Shift:=xlDown
    Cells(i + 1, "A").Value = Cells(i, "A").Value
    End If
    Next
End Sub

 

[seiko_006]

Katkılarınızdan dolayı çok teşekkür ederim.

 

[suleyman242]

Katkılarınızdan dolayı çok teşekkür ederim.

Rica ederim .