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ş: 46
İleti: 27049
 
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: 72
 
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: 9868
 
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: 72
 
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ş: 39
İleti: 18
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul / Sisli

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

İleti#48)  melissa » 17 Ekm 2019 16:56

Merhaba. yeni kullanıcıyım. verdiğiniz kodları kendim deneyerek inceledim.Ancak tekstil firmasında çalışıyorum ve bir liste hazırlarken
S
M
L
XL
2XL
bedenleri altalta sonsuz devam ediyor her 2xl den sonra 1 boşluk bırakabileceğim bir kod göremedim. "5 satırda 1 yada 6 satırda 1 boşluk bırak" gibi bir kod mümkün müdür acaba? (ayrıca bu beden kodları genelde b sutününda yazılı oluyor) a sutununda ise 5 sutun büyüklüğünde bir fotograf bulunuyor.eğer mümkünse işimi çok kolaylaştırır. şimdiden teşekkür ederim
Kullanıcı avatarı
melissa
 
Kayıt: 17 Ekm 2019 16:51
Meslek: tekstil
Yaş: 28
İleti: 3
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

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

İleti#49)  icemail » 17 Ekm 2019 20:20

melissa yazdı:Merhaba. yeni kullanıcıyım. verdiğiniz kodları kendim deneyerek inceledim.Ancak tekstil firmasında çalışıyorum ve bir liste hazırlarken
S
M
L
XL
2XL
bedenleri altalta sonsuz devam ediyor her 2xl den sonra 1 boşluk bırakabileceğim bir kod göremedim. "5 satırda 1 yada 6 satırda 1 boşluk bırak" gibi bir kod mümkün müdür acaba? (ayrıca bu beden kodları genelde b sutününda yazılı oluyor) a sutununda ise 5 sutun büyüklüğünde bir fotograf bulunuyor.eğer mümkünse işimi çok kolaylaştırır. şimdiden teşekkür ederim


Yapılabilir. hucre degeri s oldugunda, m oldugunda, l oldugunda, xl ve 2xl oldugunda ne yapılacağına dair kuralları belirlerseniz bu kuralları makroyla yaptırabilliriz. mesela 2xl sa 6 satır ekle s ise hic bisi yapma gibi.
Kullanıcı avatarı
icemail
Yeni Başlamış
 
Kayıt: 29 May 2015 09:56
Meslek: Diğer
Yaş: 36
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

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

İleti#50)  melissa » 18 Ekm 2019 09:41

anladım. Ama malesef kendim kod yazmayı bilmiyorum. Sadece burda bulduğum kodlarıdaki sayıları harfleri değiştirerek kendime uygun hale getirdim hep şimdiye kadar.
Kullanıcı avatarı
melissa
 
Kayıt: 17 Ekm 2019 16:51
Meslek: tekstil
Yaş: 28
İleti: 3
 
Cinsiyet: Bayan
Bulunduğunuz İl / Semt: istanbul

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

İleti#51)  icemail » 18 Ekm 2019 18:24

Aşağıdaki örnek kodları deneyin lütfen.
-Hücre değerinin büyük harfle 2XL yazıldığı
-B sutununun dolu hücreleri saptamak için gerekli sutun oldugu
-Her 2XL dan sora 1 adet boşluk bırakılmak istendiği
varsayılarak örnek kod paylaşıldı.

Kod: Tümünü seç
Sub BoslukBirak()

SonHücre = Cells(Rows.Count, 2).Row

For i = 1 To SonHücre
    If Cells(i, 2).Value = "2XL" Then
        Cells(i + 1, 2).Rows(1).Insert shift:=xlShiftDown
        i = i + 1
    End If
Next

End Sub
Kullanıcı avatarı
icemail
Yeni Başlamış
 
Kayıt: 29 May 2015 09:56
Meslek: Diğer
Yaş: 36
İleti: 24
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Önceki

Forum Örnek Kodlar

Online Kullanıcılar

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

Bumerang - Yazarkafe