Cift olanların satırı silme hk

[mosmos2009]

merhabalar
Ekli "A" kolundaki cift numaraları bulup silme vb codu yazılı fakat silmemektedir bununla ilgili yardımlarınızı rica ederim,

Sub çift_kayıtları_kaldır()
Cells.Sort Key1:=Range("A1")
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).Delete
Count = Count + 1
End If
Next Row
End Sub

 

[mosmos2009]

satır silme

merhabalar
Ekli "A" kolundaki cift numaraları bulup silme vb codu yazılı fakat silmemektedir bununla ilgili yardımlarınızı rica ederim,

Sub çift_kayıtları_kaldır()
Cells.Sort Key1:=Range("A1")
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).Delete
Count = Count + 1
End If
Next Row
End Sub

satır silme hk

 

[mosmos2009]

ekli dosya

ekli dosya eklenmistir, saygılar,

 

[yerbakili]

merhabalar
Ekli "A" kolundaki cift numaraları bulup silme vb codu yazılı fakat silmemektedir bununla ilgili yardımlarınızı rica ederim,

Çift numara derken matematiksel olarak çift sayıdan mı bahsediyorsunuz yoksa mükerrer kayıttan mı?

 

[mosmos2009]

"a" kolunundaki cift numaralara göre, örneğin ekli dosyada a1 ile a4 arasında 4 adet 304 diye numara var bunların 3 satırdaki 304 olanları silicek asıl olan 304 birtanesi kalacak tsk

 

[numan şamil]

"a" kolunundaki cift numaralara göre, örneğin ekli dosyada a1 ile a4 arasında 4 adet 304 diye numara var bunların 3 satırdaki 304 olanları silicek asıl olan 304 birtanesi kalacak tsk

Merhaba
Aşağıdaki kodları denermisiniz
Sub mükerrersil()
Application.ScreenUpdating = False
For a = [A65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & a), Cells(a, "A")) > 1 Then Rows(a).Delete
Next
Application.ScreenUpdating = True
End Sub

 

[mosmos2009]

üstad denedim ama çalısmadı..

 

[numan şamil]

üstad denedim ama çalısmadı..

Ekli dosyayı incelermisiniz
Mükerer sil butonuna basıp denermisiniz

 

[yerbakili]

"a" kolunundaki cift numaralara göre, örneğin ekli dosyada a1 ile a4 arasında 4 adet 304 diye numara var bunların 3 satırdaki 304 olanları silicek asıl olan 304 birtanesi kalacak tsk

http://www.excel.web.tr/f50/ayny-olan-satyrlary-silmek-t41035.html

Yani mükerrer kayıtları sildirmek istiyorsunuz. Yukarıdaki link size yardımcı olacaktır. Ya da çalışma sayfanıza bir buton ekleyip içerisine aşağıdaki kodları yazarak da kullanabilirsiniz.

For i = [A65536].End(3).Row To 2 Step -1
If Cells(i, "A") = Cells(i - 1, "A") Then Rows(i).Delete
Next i

Fakat çalışma dosyanızda,

312 DTS CTC Dogramaci, Azize 02.04 19:46
312 DTS CTC Sivrikaya, Sibel 02.04 22:50

312 sayısına ait iki farklı bilgi içeren satırlar mevcut. İsteğinizle, 312 sayısına ait olan kayıtlardan ya Dogramaci, Azize'ye ait satır kalır ya da Sivrikaya, Sibel' e ait satır.

 

[mosmos2009]

doğrudur 312 sabit fakat isimler farklı benim istediğim 312 olan satırın birinin silinmesi hangisi olduğu önemli değil. butonlo olanı denedim aktif olmadığından calısmadı malasef

 

[numan şamil]

doğrudur 312 sabit fakat isimler farklı benim istediğim 312 olan satırın birinin silinmesi hangisi olduğu önemli değil. butonlo olanı denedim aktif olmadığından calısmadı malasef

8.mesajımdaki dosyayı inceledinizmi?

 

[muygun]

Numan bey'in kodları sorunsuz çalışıyor. Yapmanız gereken;
Sayfadaki butona sağ tıklayıp "makro ata" ile makro atamak...

 

[mosmos2009]

malesef makro ata diyince bile calısmıyor..

 

[numan şamil]

malesef makro ata diyince bile calısmıyor..

Nasıl yaptığınızı kısaca açıklayıp
Uygulamaya çalıştığınız dosyayı ekleyebilirmisiniz

 

[mosmos2009]

eklenmis dosya icindeki butona makro ata yaptığımda olmadı fakat,baska bir islemle istediğimi yapabildim excell menüsündeki duplıcate secerek a koluna göre tikleyince tüm çiftler silindi tsk ederim,

 

[antonio]

eklenmis dosya icindeki butona makro ata yaptığımda olmadı fakat,baska bir islemle istediğimi yapabildim excell menüsündeki duplıcate secerek a koluna göre tikleyince tüm çiftler silindi tsk ederim,

Makro kullanmanız elbette şart değil. Ama ille de makro derseniz, aşağıda ki kodu deneyin.

Sub sil()
For a = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("a1:a" & a), Cells(a, "a")) > 1 Then Rows(a).Delete
Next
End Sub

kodu bir modüle yazdıktan sonra sayfa içinde bir düğme yapın, sağ tıklayın ve sil makrosunu seçin. Seviyenizi bilmediğim için biraz detaylandırmayı uygun buldum.
Kolay gelsin.

 

[mr.akn]

Merhaba,
Bu karşılaştırmayı sayfalar arasında yapabilir miyiz?
örneğin; sayfa 1 A sütunundaki bilgilerle sayfa 2 A sütunundaki bilgileri karşılaştır, aynı var ise sayfa bir A sütunundaki ilgili değerin satırını sil.
Ek olarak worksheetler arasına uyarlanabilir mi?