Her Satırın Altına Boş 2 Satır Eklemek

[Kekoli]

Merhaba arkadaşlar,

Acil yardımınıza ihtiyacım var,
MEvcut başlıkları saatlerdir kontrol ediyorum ama tam anlamıyla işime yarayan kodu bulamadım.

A
B
C
D

gibi satırlardan oluşan bir tablom var ve A'dan sonra 2 Boş satır, B'den sonra 2 boş satır C'den ve D'den sonra iki boş satır atmasını istiyorum.

Her satırdan sonra 2 boş satır atmasını istiyorum.

Bundan sonra da boş satırlara üstündeki satırdakini kopyalasın istiyorum (sanırım bunu VBA olmadan da yazabiliriz)

Yardımınızı bekliyorum.

 

[Ömer BARAN]

Merhaba.

1'inci satırın başlık satırı olduğu ve verilerin A2 ve devamında aşağı doğru listelenmiş durumda olduğu varsayılmıştır.

B2 hücresine aşağıdaki formülü uygulayın ve aşağı doğru yeterince kopyalayın.
.

=[COLOR="red"]KAYDIR[/COLOR]($A$1;[COLOR="red"]TAMSAYI[/COLOR](([COLOR="Red"]SATIR[/COLOR](A1)-1)/3)+1;0)

 

[Kekoli]

Satir acma ile ilgili yardimci olabilecek misiniz?

 

[Ömer BARAN]

SATIR AÇMAK deyimini anlayamıyorum doğrusu.
Önceki cevabımı da TAHMİN üzerine yazdım zaten.

Sorunuzu;
-- gerçek belgenizle aynı yapıda,
-- gerçek verileri temsil edebilecek örnek veriler içerecek şekilde,
-- olması gereken sonuçları, kopyala/yapıştır/elle yaz yöntemiyle olması gereken konumlarına yazarak,
-- bu sonuçlara nasıl ulaşıldığını kısa ve net şekilde, belge içerisine ekleyeceğiniz metin kutularına yazarak,
bir örnek belge hazırlayıp onun üzerinden sorarsanız daha hızı ve net çözüm önerisi mutlaka gelecektir.

Örnek belge yükleme yöntemine ilişkin kısa açıklama cevabımın altındaki İMZA bölümünde var.
.

 

[Kekoli]

Hocam türkçe konuşuyoruz yav.
Türkçe bilen herkes bunu anlar o kadar kasmaya gerek yok.


A
B
C

SATIRLARINI

A


B


C



yapacak bir makroya ihtiyacım var. Satır aralarına iki tane boş satır atacak.

İngilizce de açıklayabilirim? Ama şirket bilgisayarı post atmama izin vermedigi için bunu yapmam pek kolay değil. Zaten anlaşılmayacak bir durum olsa mutlaka anlaşılacak şekilde aktarırdım.

Yardımcı olabilenin kirk yil kölesi olurum,
Geri kalan gölge yapmasın...

 

[hamitcan]

A sütununa alt alta A,B,C,D yazın sonra aşağıdaki kodu çalıştırın.

Sub SatirAraligi()
For i = [a65536].End(3).Row To 2 Step -1
    Rows(i).Insert
    Cells(i, 1) = Cells(i - 1, 1)
    Rows(i).Insert
    Cells(i, 1) = Cells(i - 1, 1)
Next
i = [a65536].End(3).Row + 1
    Cells(i, 1) = Cells(i - 1, 1)
i = i + 1
    Cells(i, 1) = Cells(i - 1, 1)

End Sub