aynı objeleri silme

[murder342]

Ekli dosyayı görüntüle örnek.xls
arkadaşlar bu dosyada a1 ve p1 deki aynı olanlar silinecek mesela
101 1 iki tane var biri silinecek ama soldaki isim duracak ve aynı sütünda duracak yinelenenleri kaldır butonundan yaptığımda aynı satırda kalması gerekir isimlerin karşısındaki rakamlar değişmemeli
örnek dosyayı açarsanız sadece bahri yiğitin karşısında 101 1 kalıcak diğerleri silinecek+

 

[suleyman242]

Ekli dosyayı görüntüle 154507
arkadaşlar bu dosyada a1 ve p1 deki aynı olanlar silinecek mesela
101 1 iki tane var biri silinecek ama soldaki isim duracak ve aynı sütünda duracak yinelenenleri kaldır butonundan yaptığımda aynı satırda kalması gerekir isimlerin karşısındaki rakamlar değişmemeli
örnek dosyayı açarsanız sadece bahri yiğitin karşısında 101 1 kalıcak diğerleri silinecek+

Bahri YİĞİT Nail 126 45
Bahri YİĞİT Nail 126 12
Bahri YİĞİT Nail 108 216
Bahri YİĞİT Nail 108 181
Bahri YİĞİT Nail 148 1
Bahri YİĞİT Nail 108 219
Bahri YİĞİT Nail 147 1
Bahri YİĞİT Nail 147 8
Bahri YİĞİT Nail 108 182
Bahri YİĞİT Nail 129 13
Bahri YİĞİT Nail 101 219
Bahri YİĞİT Nail 138 2
Bahri YİĞİT Nail 101 234
Bahri YİĞİT Nail 101 223
Bahri YİĞİT Nail 120 103
Bahri YİĞİT Nail 101 97
Bahri YİĞİT Nail 123 95
Bahri YİĞİT Nail 101 1
Bahri YİĞİT Nail 101 11
Bahri YİĞİT Nail 101 134
Bahri YİĞİT Nail 108 102
Bahri YİĞİT Nail 108 63
Bahri YİĞİT Nail 101 114
Bahri YİĞİT Nail 108 66
Bahri YİĞİT Nail 108 180
Bahri YİĞİT Nail 108 103
Bahri YİĞİT Nail 110 2
Bahri YİĞİT Nail 120 40
Bahri YİĞİT Nail 108 98
Bahri YİĞİT Nail 108 101
Bahri YİĞİT Nail 101 102
Bahri YİĞİT Nail 108 112
Bahri YİĞİT Nail 126 3
Bahri YİĞİT Nail 108 47
Bahri YİĞİT Nail 121 1
Bahri YİĞİT Nail 101 17

bunun içinden bahri yiğit 101 ve 1 neye göre seçelim

 

[murder342]

yanlış dosya anlatımı

 

[murder342]

kardeş kusura bakma ilk mesajımda yanlış dosya ile ilgili bilgiler geldi buradaki olay 101 1 den 1 tane olacak yani 101 1 in sahibi 1 kişi olacak diğer 101 1 olanlar silinecek 101 1 in altında 102 1 gelecek ve 102 1 in karşısındaki isim gelecek yardımın için şimdiden teşekkür ederim

 

[Korhan Ayhan]

Dosyanızda hangi satırlar silinecekse sarı renkle belirtir misiniz? Sebebini de yazarsanız ona göre çözüm üretebiliriz.

 

[murder342]

ek dosya

Dosyanızda hangi satırlar silinecekse sarı renkle belirtir misiniz? Sebebini de yazarsanız ona göre çözüm üretebiliriz.

Ekli dosyayı görüntüle örnek_son.xls kardeş dediğin gibi silinecek objeleri sarı ile boyadım neye göre boyadığım ise 101 1 1 tane olacak ve karşısındaki isim değişmeyecek 102 1 1 tane olacak karşısındaki isim değişmeyecek 103 1 aynı şekilde böyle böyle 148 1 e kadar gidiyor daha sonra 101 2 gelir onlarda aynı şekilde ilerleyecek şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Dosyanızda hemen yan sütuna verilerinizin görünmesi gereken şeklide ekler misiniz?

 

[murder342]

ek dosya

Dosyanızda hemen yan sütuna verilerinizin görünmesi gereken şeklide ekler misiniz?

Ekli dosyayı görüntüle örnek_son3.xls dediğiniz gibi bir kısmı nı yani E sütununda ki 1 olanları yaptım E sütünundaki rakamlar bazı yerlerde 242 ye kadar gidiyor silinecek satırlar gene sarı renkle belli teşekkür ederim.

 

[Korhan Ayhan]

F2 hücresine aşağıdaki formülü uygulayın.

=EĞER(ÇOKEĞERSAY(D$1:D2;D2;E$1:E2;E2)>1;"SİL";"")

Daha sonra alt hücrelere sürükleyin. "SİL" yazanları süzüp silin.

 

[murder342]

teşekkür ederim

F2 hücresine aşağıdaki formülü uygulayın.

=EĞER(ÇOKEĞERSAY(D$1:D2;D2;E$1:E2;E2)>1;"SİL";"")

Daha sonra alt hücrelere sürükleyin. "SİL" yazanları süzüp silin.

çok teşekkür ederim çok işime yaradı bi sorum daha olacak bunları sildikten sonra isimleri a dan z ye sıralıyorum ve aynı ad soyad baba adı aynı olanlara numara vermem lazım örnek olarak dosya Ekli dosyayı görüntüle örnek_sonnnn.xls teşekkür ederim

 

[Korhan Ayhan]

Sıra numarası için hücre birleştirmesi uygulamışsınız. Bu sebeple makrolu çözüm öneriyorum.

Sub Sira_No()
    Columns(1).UnMerge
    Columns(1).Clear
    Columns(1).HorizontalAlignment = xlCenter
    Columns(1).VerticalAlignment = xlCenter
    Satir1 = 2
    Satir2 = 2
    Sira = 1
    
    For X = 2 To Cells(Rows.Count, 2).End(3).Row
        If Cells(X, 2) & Cells(X, 3) & Cells(X, 4) = Cells(X + 1, 2) & Cells(X + 1, 3) & Cells(X + 1, 4) Then
            Satir2 = X + 1
        Else
            Range("A" & Satir1) = Sira
            Range("A" & Satir1 & ":A" & Satir2).Merge
            Range("A" & Satir1 & ":A" & Satir2).Borders.LineStyle = 1
            Sira = Sira + 1
            Satir1 = X + 1
            Satir2 = X + 1
        End If
    Next
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[murder342]

Hallettim teşekkür ederim çok saolun konuyu silebilirsiniz

 

[Necdet]

Hallettim teşekkür ederim çok saolun konuyu silebilirsiniz

Ben işimi gördüm, kimsenin de işine yaramasın diyorsunuz yani.

 

[suleyman242]

Ben işimi gördüm, kimsenin de işine yaramasın diyorsunuz yani.

Hocam ne güzel tespit k::

 

[murder342]

Ben işimi gördüm, kimsenin de işine yaramasın diyorsunuz yani.

yok ben o anlamda demedim yanlış anlaşılmasın soru cevap olarak düşündüm ihtiyacım giderilince silineceğini düşündüğüm için söyledim tabiki kalsın herkese yararı olsun