Satır arası boşluk bırakma

[ozlem.cg]

Merhaba
1,2,3 ... diye devam eden satırlarımda veriler var. satırların arasına 1. satır boşluk koymak istiyorum yardımcı olurmuusunuz ekte dosya örneğini gönderiyorum teşekkürler

 

[Ömer]

Merhaba,

=EĞER(MOD(SATIR(A1);2)<>1;"";NSAT(SATIR(A2)/2))

formülünü bir hücreye yazın ve alt satırlara kopyalayın.

.

 

[uzmanamele]

merhaba

bu kod işinizi görür mü?

Sub SatırEkle()
ss = Range("a65536").End(3).Row
For i = ss To 3 Step -1
    Cells(i, 1).EntireRow.Insert
Next
End Sub

standart modüle yazarak çalıştırınız.

 

[mustafaine1]

supermis Omer bey tesekkurler

 

[Ömer]

Ben teşekkür ederim Mustafa bey,

Yalnız ben soruyu yanlış anlamışım. Satır ekleme yapılacakmış. Süleyman bey gerekli cevabı vermiş.

İyi çalışmalar.

.

 

[ozlem.cg]

Sanırım ne istediiğimi anlatamadım yeni ardaşık olarak istemiyorum karışık veriler var. Ben bu verileri aralarında 1 er boş satır olarak başka bi yere kopyalamak istiyorum. Yardımcı olursanız sevinirim

 

[ozlem.cg]

formül olarak verirseniz daha iyi anlarım

 

[Ömer]

Bu işlemi formülle yapmak için 2. bir tablo yapmanız gerekir, buda dosyanızı büyütür ve yavaşlamasına sebep olur ayrıca gereksiz işlem yapmış olursunuz. Süleyman bey'in verdiği kodları kullanmanızı tavsiye ederim.

 

[mustafaine1]

Ben teşekkür ederim Mustafa bey,

Yalnız ben soruyu yanlış anlamışım. Satır ekleme yapılacakmış. Süleyman bey gerekli cevabı vermiş.

İyi çalışmalar.

.

a sutunuda ardisik olunca sanmistim ki formulle yapmissiniz, bekledigim ve klasik cevabiydi, suleyman beyin cevabi, peki formulle bir yolu varmidir acaba?
-----------------
cevap verilmis...

 

[uzmanamele]

merhaba

syn Ömer bey soruyu yanlış anlamış ama formül mantığı çok doğru.
biraz değiştirerek istenilen sonuca olaşabiliriz.

=EĞER(EHATALIYSA(DOLAYLI("a"&EĞER(MOD(SATIR(A3);2)<>1;"";NSAT(SATIR(A4)/2))));"";DOLAYLI("a"&EĞER(MOD(SATIR(A3);2)<>1;"";NSAT(SATIR(A4)/2))))

 

[ozlem.cg]

Ya bu kadar zormu bu

 

[uzmanamele]

merhaba

Ömer beyin formülünü gereksiz uzatmışım, bu daha kestirme sonuç verir.

=EĞER(MOD(SATIR(A3);2)<>1;"";DOLAYLI("a"&NSAT(SATIR(A4)/2)))

 

[mustafaine1]

merhaba

syn Ömer bey soruyu yanlış anlamış ama formül mantığı çok doğru.
biraz değiştirerek istenilen sonuca olaşabiliriz.

=EĞER(EHATALIYSA(DOLAYLI("a"&EĞER(MOD(SATIR(A3);2)<>1;"";NSAT(SATIR(A4)/2))));"";DOLAYLI("a"&EĞER(MOD(SATIR(A3);2)<>1;"";NSAT(SATIR(A4)/2))))

evet ben bu sanmistim iste, cok guzel elinize saglik suleyman bey..

 

[ozlem.cg]

Çok teşekkür ederim. Ellerinize sağlık

 

[oguzlardan]

merhaba

arkadaşlar şöyle bi sorum olacak ;
excel sayfamda 1den başlayıp uzayan verilerim var bu verileri her hangi bir hücreye göre sıralıyorum mesela Müşteri Adı na göre.Bu durumda Müşteri adı farklı olan satırlar arasına 2 satır boşluk eklemek istiyorum bu mümkünmüdür acaba?

 

[Fk_34]

Süleyman Bey Merhaba ;

Koda 1 satır değilde 10 satır açmak istersek tam olarak nerde değişiklik yapmamız gerekir ?

Sayg.

 

[Ömer]

Merhaba,

Bu şekilde deneyin.

=EĞER(MOD(SATIRSAY(B$1:B1)-1;10)=0
 ;DOLAYLI("A"&NSAT((SATIRSAY(B$1:B1)+9)/10));"")

.

 

[ilkercivil]

Bu sitedekiler gerçekten işlerinde on numara her birine ayrı ayrı teşekkür ediyorum çok faydalı ve işe yarar bilgiler paylaşılıyor. Bu platformu kuranlara ve yardımda bulunanlara teşekkür ediyorum

 

[polist]

selamun aleykum

siteye baktım aradıgımı bulamadım
anlatılan alt alta satırlar içi ;

şayet her 5 satır arasına bir boş satır yapmak istersek nasıl olacak
yardımcı olabilirmisiniz

 

[ÖmerFaruk]

Sorunuza yeni bir konu açarak sorarmısınız.