Forumlar
Yeni Mesajlar
CerezExtra
EĞLENCE ↓
Şans Kurabiyesi
Renk Falınız
ÇerezRADYO
Sevgiliye Özel
ÇerezDERGİ
Hızlı Okuma Testleri
Pratik Çözümler
Yeniler
Yeni Mesajlar
Yeni ürünler
Yeni kaynaklar
Son Aktiviteler
İndir
En son incelemeler
Dükkan
Giriş
Kayıt
Yeniler
Yeni Mesajlar
Menu
Giriş
Kayıt
Uygulamayı yükle
Yükle
Merhaba
Ziyaretçi
.
"Yapay Zeka Objektif " Fotoğraf Yarışması başladı. İlgili konuya
BURADAN
ulaşabilirsiniz. Sizi de bu yarışmada görmek isteriz...
Forumlar
Download
Excel Çalışmaları
Excelde Dolu Satırlar Arasına Boş Satır Ekleme
JavaScript devre dışı bırakıldı. Daha iyi bir deneyim için, devam etmeden önce lütfen tarayıcınızda JavaScript'i etkinleştirin.
You are using an out of date browser. It may not display this or other websites correctly.
You should upgrade or use an
alternative browser
.
Konuya cevap yaz
Mesaj
<blockquote data-quote="YoRuMSuZ" data-source="post: 784993" data-attributes="member: 1"><p>Dolu satırların arasına istediğiniz sayı kadar boş satır eklemek için.</p><p></p><p>Örnek olarak dolu satırların arasına 3 boş satır ekleyelim...</p><p>[CODE]Sub BosSatir()</p><p>Dim a As Integer</p><p>For a = Range("A65536").End(xlUp).Row To 1 Step -1</p><p> If Cells(a, 1) <> "" Then</p><p> Rows(a + 1 & ":" & a + 3).Insert 'Kaç boş stır eklenecek'.</p><p> End If</p><p>Next a</p><p>End Sub[/CODE]</p><p>Eğer ilk satır başlık ise Row To 2 Step -1 yazın. Şöyle ki.</p><p>[CODE]Sub BosSatir()</p><p>Dim a As Integer</p><p>For a = Range("A65536").End(xlUp).Row To 2 Step -1</p><p> If Cells(a, 1) <> "" Then</p><p> Rows(a + 1 & ":" & a + 3).Insert 'Kaç boş stır eklenecek'.</p><p> End If</p><p>Next a</p><p>End Sub[/CODE]</p></blockquote><p></p>
[QUOTE="YoRuMSuZ, post: 784993, member: 1"] Dolu satırların arasına istediğiniz sayı kadar boş satır eklemek için. Örnek olarak dolu satırların arasına 3 boş satır ekleyelim... [CODE]Sub BosSatir() Dim a As Integer For a = Range("A65536").End(xlUp).Row To 1 Step -1 If Cells(a, 1) <> "" Then Rows(a + 1 & ":" & a + 3).Insert 'Kaç boş stır eklenecek'. End If Next a End Sub[/CODE] Eğer ilk satır başlık ise Row To 2 Step -1 yazın. Şöyle ki. [CODE]Sub BosSatir() Dim a As Integer For a = Range("A65536").End(xlUp).Row To 2 Step -1 If Cells(a, 1) <> "" Then Rows(a + 1 & ":" & a + 3).Insert 'Kaç boş stır eklenecek'. End If Next a End Sub[/CODE] [/QUOTE]
Alıntıları ekle...
İsim
Spam kontrolü
Atatürk'ün doğduğu şehir?
Cevapla
Forumlar
Download
Excel Çalışmaları
Excelde Dolu Satırlar Arasına Boş Satır Ekleme
Top