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ş: 26
İ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ş: 28
İ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: 26998
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul - Beylikdüzü

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

İleti#44)  endexci » 27 Mar 2019 10:12

Tarkan VURAL yazdı: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


Merhabalar,

Dolu olan sütünün arasına boşluk ekleme olayı güzel bir çözüm olmuş elinize sağlık, benim istediğim satırı ekledikten sonra dolu olan satırdaki verinin kopyalayarak boş eklediği satıra yapıştırmasını istiyorum. Mümkün müdür bu konuda yardımlarınız için şimdiden teşekkür ederim.
Kullanıcı avatarı
endexci
Yeni Başlamış
 
Adı Soyadı:Serkan Ustaoğlu
Kayıt: 26 Ağu 2011 10:17
Konum: kocaeli
Meslek: enerji
Yaş: 40
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

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

İleti#45)  Ali ÖZ » 27 Mar 2019 10:19

Kod: Tümünü seç
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).Copy
Rows(x).Insert Shift:=xlDown
End If
Next
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 10:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 38
İleti: 9806
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

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

İleti#46)  endexci » 27 Mar 2019 12:35

Ali ÖZ yazdı:
Kod: Tümünü seç
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).Copy
Rows(x).Insert Shift:=xlDown
End If
Next


Teşekkürler Ali bey, ellerinize sağlık şkşk
Kullanıcı avatarı
endexci
Yeni Başlamış
 
Adı Soyadı:Serkan Ustaoğlu
Kayıt: 26 Ağu 2011 10:17
Konum: kocaeli
Meslek: enerji
Yaş: 40
İleti: 63
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kocaeli

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

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

İleti#47)  acdenis » 07 Nis 2019 23:23

Murat OSMA yazdı:
simetri yazdı:Merhabalar. Ellerinize sağlık.

Bu kodu 2 boş satır ve 3 boş satır eklemek için revize etmeye çalıştım lakin olmadı. Bu alternatifleri de eklemeniz mümkün mü acaba?

Elbette mümkün. Bu kodları inceleyebilirsiniz;
Kod: Tümünü seç
Sub İki_Satir_Ekle()
    Dim a As Byte, sat As Byte
    
[A2].Select
    a 
= 3: sat = 2
    While ActiveCell
.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & sat + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell
.Offset(a, 0).Select
    Wend
    a 
= Empty: sat = Empty
End Sub

Kod: Tümünü seç
Sub Üç_Satir_Ekle()
    Dim a As Byte, sat As Byte
    
[A2].Select
    a 
= 4: sat = 3
    While ActiveCell
.Value <> ""
        ActiveSheet.Rows(ActiveCell.Row & ":" & sat + ActiveCell.Row - 1).Insert Shift:=xlDown
        ActiveCell
.Offset(a, 0).Select
    Wend
    a 
= Empty: sat = Empty
End Sub


Merhaba,

Eklenecek veya kopyalanacak satır sayısını hücreden almak istersek nasıl yapabiliriz?

Örnek dosya ektedir.

Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
acdenis
Yeni Başlamış
 
Adı Soyadı:Bayram GUL
Kayıt: 05 Eyl 2010 00:20
Konum: İstanbul
Meslek: Planlama Uzmanı
Yaş: 38
İleti: 16
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Sisli

Önceki

Forum Örnek Kodlar

Online Kullanıcılar

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

Bumerang - Yazarkafe