Sütundaki Dolu Olan Her Satırın Arasına Boş Bir Satır Ekler

Excel VBA açık kodlarını buradan izleyebilir ve paylaşabilirsiniz.

Cevap: Sütundaki Dolu Olan Her Satırın Arasına Boş Bir Satır

İleti#41)  zeynalabidin02 » 29 Haz 2016 14:42

ben herhangi bir kutucuğa girdiğim değer kadar boşluk atmak istiyorum böyle bişey mümkün mü ?
Kullanıcı avatarı
zeynalabidin02
 
Kayıt: 27 Haz 2016 17:25
Meslek: Elektrik Elektronik Mühendisi
Yaş: 25
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adıyaman/Merkez

Cevap: Sütundaki Dolu Olan Her Satırın Arasına Boş Bir Satır

İleti#42)  a_izmir » 07 Tem 2018 09:52

Merhabalar ;
Bende formda aranıza yeni katıldım aylardır aradığım bulamadığım konu hakkında yardımlarınızı rica ediyorum arkadaşlar. Excel'de 2030 satırlı dosyamda a hücresinde değerleri değişen satır aralarına boşluk eklemek istiyorum nasıl yapabilirim teşekkür ediyorum.
Kullanıcı avatarı
a_izmir
 
Kayıt: 10 May 2017 18:07
Meslek: Pazarlama
Yaş: 27
İleti: 1
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: Sütundaki Dolu Olan Her Satırın Arasına Boş Bir Satır

İleti#43)  Tarkan VURAL » 07 Tem 2018 11:56

Merhaba, sitemize hoş geldiniz.
Şöyle bir şey mi ?

Kod: Tümünü seç
Sub arayasatirekle()
Dim son As Long
son = Range("a65536").End(3).Row
For x = son To 2 Step -1
If Cells(x, "a").Value <> Cells(x - 1, "a").Value Then
Rows(x).Insert
End If
Next x
End Sub
Resim
www.tarkanvural.com.tr

İnnâ lillâhi ve innâ ileyhi raciûn
Şüphesiz ki; biz Allah’a âidiz ve vakti geldiğinde O’na döndürüleceğiz.

HasbunAllâhu ve nimel vekîl
Bize Allah yeter. O ne güzel vekildir.


ExcelVBA.NET' e katkıda bulunmak ister misiniz ? O halde BAĞIŞ butonunu tıklayın...
Kullanıcı avatarı
Tarkan VURAL
Yönetim Kurulu
 
Adı Soyadı:Tarkan VURAL
Kayıt: 14 Haz 2008 18:27
Konum: @tarkanvural73
Meslek: LUU, Database Expert, Senior Software Specialist, Developer
Yaş: 45
İleti: 26934
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

Önceki

Forum Örnek Kodlar

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

Bumerang - Yazarkafe