Hücreler arası sabit boşlukları aynı boşluklarla alt hücrelere kopyalama

[zaffer1981]

Merhabalar arkadaşlar. Forumda aradım ama bulamadım maalesef çözüm adına bir şey.

Benim yapmak istediğim ekteki dosyada yer alan A1, A4, A7, A10 aralarındaki boşlukları korumak suretiyle alt hücrelere kopyalamak. yani her dolu iki hücrenin arasına sabit bir aralık koymak istiyorum bunu nasıl yaparım acaba.

Yardımlarınız için teşekkür ederim şimdiden.

 

[zaffer1981]

Bana yardımcı olacak kimse yok mu arkadaşlar

 

[dEdE]

Merhaba,
A1 den A12 ye kadar seçiniz sonra A12 nin sol alt kenarından tutup aşağıya doğru (ne kadar çoğltmak istiyorsanız) sürükleyınız.

 

[zaffer1981]

İlginize teşekkür ederim. Peki üstad arada hiç boşluk olmasaydı da ben satır eklemek isteseydim hücreler arasına. bununla ilgili bilginiz var mı acaba.

 

[dEdE]

Merhaba,
Tek tek satır ekleme dışında Excelin yerleşik fonksiyonları ile yapılabilir mi? Bilmiyorum.
Ama aşağıdaki kod ile yapabilirsiniz. A sütununda verileriniz olduğu varsayılmıştır. Kodu bir modüle yapıştırıp deneyiniz.

Sub SatırEkle()
    For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1
        Rows(i).Insert (3)
    Next
End Sub

 

[zaffer1981]

üstad olmadı
önce modülü ekleyip verileri girip kayıt mı etmem gerekiyor acaba.
örnek gönderebilirmisiniz

 

[dEdE]

Merhaba,
Dosyanız ektedir.

 

[zaffer1981]

Kusura bakmayın üstad bir soru daha soracağım ama size.
butona bir kere bastığızda bir satır açıyor. tekrar bastığımızda bu sefer iki satır açıyor.
acaba her basıldığında tek satır açma imkanı var mı
bir de buton eklemeyi bana da öğretebilirmisiniz rica etsem.
yardımlarınız için çok sağolun

 

[dEdE]

Merhaba,
Önceki kodu silip aşağıdaki kodu yapıştırırsanız dediğinizi yapar.

Sub SatırEkle()
    For i = Range("A" & Rows.Count).End(3).Row To 2 Step -1
        If Cells(i, 1).Value <> "" Then Rows(i).Insert (3)
    Next
End Sub

Buton ekleme konusu kolay ama ben 2003 versiyon kullandığım için 2007 versiyonda nasıl eklendiğini bilmiyorum.(Menü ve araç çubukları farklı)
2007 kullanan bir üyemiz görürde açıklarsa ben de öğrenmiş olurum.

 

[zaffer1981]

Yardımlarınız için çok teşekkür ederim.