Veriler arasında boş satır bırakmak.

[sinan05]

Merhabalar herkese hayırlı akşamlar. Listede belirli veriler arasında boşluk bırakmaya çalışıyorum acaba şöyle bir makro olabilirmi. Çalışma kitabımda Sayfa1 de A ile L sütunları arasında veriler var. Veriler ikinci satırdan başlıyor. A sütununda tarihler var, benim istediğim listede veriler ayın 10 dan sonra bir satır boşluk bıraksın sonra 20 den sonra bir boşluk daha bıraksın. Bu şekilde ayın 10 dahil olmak üzere 10 na kadar olan verileri aynı şekilde 20 ve 30 un verilerini daha rahat ayırt edebilecem. Yardımlarınız için teşekkür ederim.

 

[YUSUF44]

Aşağıdaki makroyu deneyiniz:

Sub ekle()
For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
    If Day(Cells(i, "A")) Mod 10 = 0 Then
        Rows(i + 1).Insert
    End If
Next
End Sub

 

[sinan05]

Aşağıdaki makroyu deneyiniz:

Sub ekle()
For i = Cells(Rows.Count, "A").End(3).Row To 2 Step -1
    If Day(Cells(i, "A")) Mod 10 = 0 Then
        Rows(i + 1).Insert
    End If
Next
End Sub

Yusuf Hocam çok teşekkür ederim ilginize. Fakat "Rows(i + 1).Insert" şu kodda hata verdi.

 

[YUSUF44]

Bende hata vermedi. Dosyanızı (varsa özel verileri değiştirerek) hatalı hali ile yükleyin inceleyelim.

 

[muygun]

Merhaba;
Alternatif:
boş bir modüle;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Range("A65536").End(xlUp).Row
If Day(Cells(i, 1)) = 10 Or Day(Cells(i, 1)) = 20 Then
If Cells(i + 1, 1) <> "" Then
Range("A" & i + 1 & ":L" & i + 1).Select
Selection.Insert Shift:=xlDown
End If
End If
Next i
Range("A1").Select
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

 

[sinan05]

Bende hata vermedi. Dosyanızı (varsa özel verileri değiştirerek) hatalı hali ile yükleyin inceleyelim.

Hocam çok pardon. Sayfa da koruma varmış oldu. Fakat şöyle bişey oldu. 10 na kadar grupladı bir boşluk bırakdı. 15 ile 20 arası grupladı 20 sinden bir satır aldı boşluk bıraktı sonra alta başka 20 sine olan veri getirdi bir boşluk bıraktı her bir gün arayla boşluk bıraktı. örnek dosyayı eklicem ama makrolar otomatik çalıştığı için verileri silecek göremiceksiniz böyle bir sorun var.

 

[YUSUF44]

Verdiğim kod tam olarak istediğiniz işlemi yapmaktadır. Eğer asıl dosyanızda farklı sonuç veriyorsa dosyanız anlattığınız gibi değildir. Örneğin her satırdan sonra boşluk bırakıyorsa A sütunundaki verinin günü 10'un katlarıdır. Makro eğer a sütunundaki verinin günü 10'un katı ise ekleme yapıyor. Ayrıca kod satır eklemekten başka işlem yapmıyor, yani başka veri getirme gibi bir durum yok.

Lütfen dosyanızı ekleyin.

 

[sinan05]

Merhaba;
Alternatif:
boş bir modüle;

Sub işlem()
Application.ScreenUpdating = False
On Error Resume Next
For i = 1 To Range("A65536").End(xlUp).Row
If Day(Cells(i, 1)) = 10 Or Day(Cells(i, 1)) = 20 Then
If Cells(i + 1, 1) <> "" Then
Range("A" & i + 1 & ":L" & i + 1).Select
Selection.Insert Shift:=xlDown
End If
End If
Next i
Range("A1").Select
End Sub

Kodlarını yerleştirip deneyin.
İyi çalışmalar.

Muygun hocam sizede çok teşekkür ederim. sizinkinde de 20 ne kadar olanı aldı bir boşluk bıraktı fakat diğer 20 tarihli iki satırı almadı ve o iki stır arasında da birer boşluk bıraktı. diğer tarihler arasında bir boşluk bırakmadı. bir resim olarak örnek atayım sanırım benim çalışmamda bir sorun var.

 

[sinan05]

http://s7.dosya.tc/server/mxmord/ORNEK.png.html

Değerli hocalarım buraya bir örnek resim koydum. Fakat sanırım benim çalışma kitabımda makro ve koşullu biçimlendirmelerden ötürü böyle sorun veriyor. Sorun bende galiba.

 

[sinan05]

Verdiğim kod tam olarak istediğiniz işlemi yapmaktadır. Eğer asıl dosyanızda farklı sonuç veriyorsa dosyanız anlattığınız gibi değildir. Örneğin her satırdan sonra boşluk bırakıyorsa A sütunundaki verinin günü 10'un katlarıdır. Makro eğer a sütunundaki verinin günü 10'un katı ise ekleme yapıyor. Ayrıca kod satır eklemekten başka işlem yapmıyor, yani başka veri getirme gibi bir durum yok.

Lütfen dosyanızı ekleyin.

Hocam aşağıya örnek bir foto attım. ayrıca bazı sütunlar arası boşluk bırakmıyor. dediğim gibi sorun benim çalışmamda. çok teşekkür ederim. Ben vaz geçtim istediğim gibi olmayacak. Sağolun yardımlarınız için.

 

[YUSUF44]

Kodda koşullu biçimlendirmeyle ilgili bir işlem yoktur.

Örnek resimdeki tabloyu oluşturup denediğimde aynen belirttiğim gibi 7, 13, 15 ve 17 ile birlikte 30/12/2017 olan her satırın altına da bir boş satır ekledi.

Dediğim gibi makronun tek yaptığı A sütunundaki veriyi kontrol etmek, eğer o verinin günü 10'un katıysa satır eklemektir. Başka hiçbir işlem yapmaz.

Sizdeki dosyada 30/12 olanlara eklenmemiş görünüyor. Eğer excel dosyası ekleseydiniz o hücrelerde tarih değil de başka bir veri olduğunu görürdük muhtemelen.

 

[sinan05]

Anladım hocam en kısa sürede dosyayı ekleyeceğim. Dosyayı açınca makro çalışacak ve müşteriler klosöründeki verileri getirecek. Bunun için örnek dosyalar oluşturup yükleyecem sizde dosyayı açınca daha rahat görürüsünüz. Çok teşekkür ederim ilginize saygılarımı sunarım.

 

[sinan05]

Kodda koşullu biçimlendirmeyle ilgili bir işlem yoktur.

Örnek resimdeki tabloyu oluşturup denediğimde aynen belirttiğim gibi 7, 13, 15 ve 17 ile birlikte 30/12/2017 olan her satırın altına da bir boş satır ekledi.

Dediğim gibi makronun tek yaptığı A sütunundaki veriyi kontrol etmek, eğer o verinin günü 10'un katıysa satır eklemektir. Başka hiçbir işlem yapmaz.

Sizdeki dosyada 30/12 olanlara eklenmemiş görünüyor. Eğer excel dosyası ekleseydiniz o hücrelerde tarih değil de başka bir veri olduğunu görürdük muhtemelen.

Yusuf hocam dosyaya gerek kalmadı. Bu şekilde de oluyor. Tekrar tekrar teşekkürler saygılarımı sunarım.