Excel Boşluk Doldurma

[murat3838]

Merhaba

Excel de boşluk doldurma ile bir sorunum var nasıl pratik hale getirebilirim örnek dosya linktedir.

https://dosya.co/0yd325awsexx/Test.xls.html

Tanımlarsam A-B-C:2 de bilgiyi A-B-C:9 kadar aynısını yazmasını istiyorum A-B-C:10 daki bilgiyi A-B-C:17'ye kadar devam eden uzun bi liste kopyalama yapıştırma işlemi bir angarya işlemi alıyor.

Gibi olucak ;

https://www.hizliresim.com/siwj77u

İyi Çalışmalar

 

[Necdet]

Merhaba,
1. satırın başlık olduğu varsayarak, B1 hücresinin dolu olması gerekir, bu birinci şart.

• A-B-C sütunlarını seç
• F5
• Özel
• Boşluklar
• Tamam
• A3 Seçili Olacaktır hiç bir şey yapmadan Formül Çubuğuna

  =A2

  Yaz
• Ctrl+Enter

 

[murat3838]

Merhaba,
1. satırın başlık olduğu varsayarak, B1 hücresinin dolu olması gerekir, bu birinci şart.

• A-B-C sütunlarını seç
• F5
• Özel
• Boşluklar
• Tamam
• A3 Seçili Olacaktır hiç bir şey yapmadan Formül Çubuğuna

  =A2

  Yaz
• Ctrl+Enter

Cevabınız için teşekkürler çözdü fakat doldurduktan sonra E sutununa göre veri filtreleme yaptığımda boş olanları tamamen sildiğimde $BASV hatası alıyorum dolan yerler için ona dair ne yapabilirim ?

 

[murat3838]

Alt alta veriler olan satırlar arasına sabıt 5 satır boşluk yaratmak istiyorum. Nasıl yapabilirim?

 

[Korhan Ayhan]

Tarif edilen işlemden sonra ilgili aralığı seçerek kopyala-özel yapıştır-değerleri işlemini yaparsanız formüllerden arınmış olursunuz.

 

[murat3838]

A ve B sütünümda sıralı yüzlerce veri var her satır arasına sabit 7 boşluk koymak istiyorum böyle bir makroya denk geldim

Nasıl uyarlıyabilirim? Hali hazirda 1 boşluk bırakıyor ?

Option Explicit
Sub AddSpaceBetweenRows()
Dim rng As Range
Dim i As Long
Set rng = Range("A2:B100")
For i = rng.Rows.Count To 2 Step -1
rng.Rows(i).EntireRow.Insert
Next i
End Sub

İyi Günler

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Add_Blank_Rows()
    Dim X As Long, Y As Integer
    
    Application.ScreenUpdating = False
    
    Y = 7
    
    For X = Cells(Rows.Count, 1).End(3).Row To 2 Step -1
        Rows(X + 1 & ":" & X + Y).Insert
    Next

    Application.ScreenUpdating = True
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub