Satır eklemek

[gundoganmusa]

Merhabalar,

excelde her 2 satırdan sonra 3 satır ekleme nasıl yaparım,
1 1.satır
2 2.satır
3 1.eklenen
4 2.eklemen
5 3.eklenen
6 3.satır

yapmak istediğim tabi listem uzun
Teşekkürler

 

[hamitcan]

Chatgpt...
excelde her 2 satırdan sonra 3 satır ekleme nasıl yaparım,

ChatGPT:
Excel'de her 2 satırdan sonra 3 satır eklemek için aşağıdaki adımları izleyebilirsiniz:

1. Yeni Satırları Manuel Ekleyerek Yapma:
   • Excel dosyanızda ekleme yapacağınız hücreyi seçin.
   • İlk başta 2 satırın sonrasını seçin (örneğin, 2. satırın altındaki 3. satırı).
   • Sağ tıklayın ve "Ekle" seçeneğini seçin.
   • 3 satır eklemek için bu işlemi 2 satırda bir tekrar edin. Excel, her defasında yeni satırları ekleyecektir.
2. Makro ile Otomatik Ekleme: Eğer her 2 satırdan sonra 3 satır eklemeyi sürekli yapacaksanız, VBA (Visual Basic for Applications) kullanarak bunu otomatikleştirebilirsiniz.

Aşağıda, her 2 satırdan sonra 3 satır ekleyecek bir VBA kodu örneği bulabilirsiniz:

1. Excel dosyanızı açın.
2. Alt + F11 tuşlarına basarak VBA editorüne girin.
3. Menüden Insert > Module seçeneğini tıklayın.
4. Aşağıdaki kodu kopyalayın ve yeni modüle yapıştırın:

vba
KopyalaDüzenle
Sub SatirEkle()
Dim i As Long
Dim satirSayisi As Long

' Aktif sayfadaki toplam satır sayısını al
satirSayisi = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row

' Her 2 satırda bir 3 satır ekle
For i = satirSayisi To 1 Step -2
Rows(i + 1 & ":" & i + 3).Insert Shift:=xlDown
Next i
End Sub

1. Kodunuzu çalıştırmak için F5 tuşuna basabilirsiniz.

Bu kod, aktif çalışma sayfasındaki mevcut verilere göre, her 2 satırda bir 3 yeni satır ekler.

 

[muhasebeciyiz]

Sub HerIkiSatirdanSonraUcSatirEkle()
Dim i As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = LastRow To 2 Step -2
Rows(i + 1 & ":" & i + 3).Insert
Next i
End Sub

 

[Necdet]

Merhaba,
Dosyadaki B sütunundaki formülü inceleyin.
B1 deki formülü A sütunundaki satır sayısı kadar uzatın.
Sonra B sütununda tüm formüllerden kurtarın.
B sütununu kopyalayın ve bunu 3 kere tekrarlayın (3 satır boşluk olacağı için)
Sonra A ve B sütununu B sütununa göre sıralatın.
B sütununu silin.

 

[Necdet]

Benim önerim de alternatif olsun, ben yazarken yanıtlar gelmiş

 

[gundoganmusa]

Sub HerIkiSatirdanSonraUcSatirEkle()
Dim i As Long
Dim LastRow As Long

LastRow = Cells(Rows.Count, 1).End(xlUp).Row

For i = LastRow To 2 Step -2
Rows(i + 1 & ":" & i + 3).Insert
Next i
End Sub

Denedim ama sonuç vermedi

 

[gundoganmusa]

Merhaba,
Dosyadaki B sütunundaki formülü inceleyin.
B1 deki formülü A sütunundaki satır sayısı kadar uzatın.
Sonra B sütununda tüm formüllerden kurtarın.
B sütununu kopyalayın ve bunu 3 kere tekrarlayın (3 satır boşluk olacağı için)
Sonra A ve B sütununu B sütununa göre sıralatın.
B sütununu silin.

Hocam anlamadım maalesef,
93 satırım var

 

[Necdet]

Hocam anlamadım maalesef,
93 satırım var

Gönderdiğim dosyada B sütunundaki formülü yazacaksınız. bunu a sütunundaki veri kadar uzatacaksınız.
Sonra B sütununu kopyalayıp değer olarak yapıştıracaksınız.
Sonra B sütununu kopyalayıp b sütununun altına 2 kere yapıştıracaksınız.
Örnek dosyada H ve I gibi olacak.
sonra B sütununa göre sıralama yapacaksınız.
Yani B sütunu dosyadaki I sütunu gibi olacak.

 

[Necdet]

Aşağıdaki linki inceleyiniz.
Ben bunu sizin isteğinize göre uyarladım.

İzleyiniz

 

[gundoganmusa]

Aşağıdaki linki inceleyiniz.
Ben bunu sizin isteğinize göre uyarladım.

İzleyiniz

Hocam her satır altına bir satır ekliyor

 

[pitchoute]

Deneyip sonucu paylaşabilir misiniz;

Sub HerIkiSatirdanSonraUcSatirEkle()
    Dim i As Long
    Dim LastRow As Long
    
    Application.ScreenUpdating = False
    
    LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    For i = LastRow To 3 Step -2
        Rows(i + 1).Resize(3).Insert Shift:=xlDown
    Next i
    
    Application.ScreenUpdating = True
End Sub

 

[Necdet]

Hocam her satır altına bir satır ekliyor

video öyle, onu ben sizin isteğinize göre uyarladım, mesajımı dikkatli okuyun.