ayni kolonda ardarda gelen ayni satirlarin arasini ayirmak

[hakangon]

Merhaba makro kullanarak ardarda gelen ayni satirlarin arasina bos bir satir nasil eklerim? yardimlariniz icin simdiden tesekkurler..

 

[Ali]

Biraz daha ayrıntılı olarak belirtebilirmisiniz

 

[Ali]

Umarım doğru anlamışımdır. Bir sütunda aynı olan verilerin arasına bir satır eklemek için.


Aşağıdaki kodları deneyin

Sub çift_kayıtlari_arala()
totalrows = ActiveSheet.UsedRange.Rows.Count
Count = 1
For Row = totalrows To 2 Step -1
If Cells(Row, 1).Value = Cells(Row - 1, 1).Value Then
Rows(Row).Insert
Count = Count + 1
End If
Next Row
End Sub

 

[hakangon]

cevabiniz icin cok tesekkur ederim, fakat ben ayni gruptan olanlari tekrar ayirmak istemiyorum, yani

hg
hg
hg

kj
kj

ju

ol
ol
ol

gibi

ayni olanlar birdaha ayrilmasin istiyorum. Simdiden tesekkurler!

 

[veyselemre]

[vb:1:7a88ab2e96]Sub çift_kayıtlari_arala()
totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = totalrows To 2 Step -1
If Cells(Row, 1).Value <> Cells(Row - 1, 1).Value Then Rows(Row).Insert
Next Row
End Sub[/vb:1:7a88ab2e96]

 

[hakangon]

Olay budur hocam cok tesekkur ederim!!

 

[AS3434]

Ben "B" sütunundaki çift olmayan kayıtları aralamak istiyorum yukarıdaki kodu çalıştıramadım. sn.hakangon'un yazmış olduğu gibi olsun istiyorum.
Yani şu şekil.
hg
hg
hg

kj
kj

ju
Yukardaki kodları denedim ama makrodan ,koddan ,modülden anlamadığım için yapamadım.

 

[hikmet]

sn.as3434, hocamın verdiği kodların "b " sütunu için olanı

Sub çift_kayıtlari_arala()
totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = totalrows To 2 Step -1
If Cells(Row, 2).Value <> Cells(Row - 1, 2).Value Then Rows(Row).Insert
Next Row
End Sub

 

[AS3434]

Tam istediğim gibi oldu . Teşekkür ederim sn. veyselemre ve sn.hikmet
Küçük bir problem var yalnız, olsada olur olmazsa da Butona bağladığımız bu makro butona her basışımız da satır aralarını bir kere daha açıyor. Acaba bunu önlemenin bir yolu yok mu?

 

[veyselemre]

[vb:1:a9039940a7]Sub çift_kayıtlari_arala()
totalrows = ActiveSheet.UsedRange.Rows.Count
For Row = totalrows To 2 Step -1
If Cells(Row, 2).Value <> Cells(Row - 1, 2).Value And Cells(Row - 1, 2) <> "" And Cells(Row, 2) <> "" Then Rows(Row).Insert
Next Row
End Sub[/vb:1:a9039940a7]

 

[AS3434]

Teşekkür ederim sn. veyselemre k::