Benzer Kayıtları içeren satırları silme!

Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar merhabalar ekli çaılşmada kolaylık olması anlamında renklendirilmiş sütundaki numaraların aynı olması durumunda; tek bir kaydın kalması ve benzer kayıtları içeren satırların silinmesini bir makro ile düzenlemek istiyorum. bu konuda yardımlarınızı bekliyorum.
 

Korhan Ayhan

Administrator
Yönetici
Admin
Katılım
15 Mart 2005
Mesajlar
42,267
Excel Vers. ve Dili
Microsoft 365 Tr-En 64 Bit
Selamlar,

Aşağıdaki kod sadece E sütununa göre mükerrer olan kayıtları teke indirir.


Kod:
Sub MÜKERRER_KAYITLARI_TEKE_İNDİR()
    For X = [E65536].End(3).Row To 1 Step -1
    If WorksheetFunction.CountIf(Range("E8:E" & X), Cells(X, "E")) > 1 Then Rows(X).Delete
    Next
End Sub
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Sn: COST_CONTROL

Çok Teşekkür Ederim Usta eline sağlık...
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Arkadaşlar, bu işlemi farklı bir makro ile bir başka buton yardımıyla Örneğin B sütununa has bir makro düzenlemek istiyorum. kodlarda hangi bölümlerde neler yapmam lazım.
 
Son düzenleme:
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Cevap yokmu dostlar?
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Aşağıdaki kodları farklı bir makro ile bir başka sütun için de uygulamak istiyorum. bu kodların nerelerinde düzeltme yada ekleme yapmam gerekli arkadaşlar?

Kod:
Sub MÜKERRER_KAYITLARI_TEKE_İNDİR()
For X = [E65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("E8:E" & X), Cells(X, "E")) > 1 Then Rows(X).Delete
Next
End Sub
 
Katılım
18 Aralık 2005
Mesajlar
464
Excel Vers. ve Dili
ofis2003
komut tek butonda olsun istiyorsan

Private Sub CommandButton1_Click()
For X = [E65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("E8:E" & X), Cells(X, "E")) > 1 Then Rows(X).Delete
Next

For X = [b65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("b8:b" & X), Cells(X, "b")) > 1 Then Rows(X).Delete
Next
End Sub
şeklinde yaz başkada ilave etmek istersen nereyi istiyorsan oranın sütun harfiyle koddaki bütün harflerin yerini değişirsen bu iş olur
 
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
verilen kodları değiştirdim ancak B sütununda boş alan var ise silmedi!
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Sanırım B sütununda isim yoksa o satırı silmek istiyorsunuz.Eğer doğru anladım ise aşağıdaki kodları kullanın.

Kod:
Sub boşlarısil()
    Application.ScreenUpdating = False
        Dim i As Integer
            For i = [B65536].End(3).Row To 4 Step -1
                If IsEmpty(Cells(i, 2)) Then
            Rows(i).Delete
        End If
   Next i
Application.ScreenUpdating = True
End Sub
 
Son düzenleme:
Katılım
19 Ocak 2005
Mesajlar
940
Excel Vers. ve Dili
İŞ : Microsoft Office Excel 2003
EV : Microsoft Office Excel 2003
Sn: fructose

Teşekkür Ederim. Sorunum kodlarınızla çözüldü. Sağolun.
 
Son düzenleme:

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Hangi örnek Telefon03 diye eklediğinizmi Telefon04 diye eklediğinizmi..

ilk eklediğiniz dosyadan Telefon03 yani eğer onun için ise

Kod:
Sub boşlarısil()
    Application.ScreenUpdating = False
        Dim i As Integer
            For i = [C65536].End(3).Row To 8 Step -1
                If IsEmpty(Cells(i, 3)) Then
            Rows(i).Delete
        End If
   Next i
Application.ScreenUpdating = True
End Sub
şeklinde deneyin.
 

Ali

Uzman
Katılım
21 Temmuz 2005
Mesajlar
7,900
Excel Vers. ve Dili
İş:Excel 2016-Türkçe
Bende değiştirmiştim ama siz sorunu çözmüşsünüz sanırım.İyi çalışmalar.
 
Katılım
24 Kasım 2006
Mesajlar
1
Excel Vers. ve Dili
xp
slm

Benim b sütümda firma isimleri var en son girelilen kalacak eski silecek şekilde nasıl düzenleyeceğim.

Yardimci olursanız sevinirm
 
Üst