Ayni Kalemleri Aradan Silmek

[WHYLER]

Mrb Ustalar Kolay Gelsin.

Bende Bir Excel Dokuman Var 30000 Kalem Malzeme Var. Tabi Icinde (ornegin 3 Tane Kalem - 10 Tane Defter) Gibisinden Ayni Malzemeler Mevcut . Fazla Kalem Oldugu Icin Tek Tek Cok Zor Silmek. Nasil Bir Komutla Bunlari Hepsini Otomatik Sileriz. Saygilar

 

[mehmett]

30000 satırlık listenizin şahsınıza özel bilgilerden arındırılmış küçük bir örneiğini (örn, 30 satırlık) gönderirseniz daha sağlıklı ve daha çabuk cevap alırsınız.

 

[Seyit Tiken]

Makrosuz ve bilinen bir yöntem.
Düzen > Değiştir > Aranan(silinmesi gereken isim) > Yeni Değer(boş bırakın) > Tümünü Değiştir.

Boş satırları silen kod.

Sub Makro3()
Range("A1:A100").SpecialCells(xlCellTypeBlanks).Delete Shift:=xlUp
End Sub

 

[WHYLER]

buyur ustam

ornek dosya ektedir

 

[WHYLER]

him

seyit usta zor o yaw. 30000 kalem.

 

[ileriexcel]

A sütununda aynı olan verilerin bir altındakilerini siler.
Sub test()
For sil = [a65536].End(3).Row To 1 Step -1
If WorksheetFunction.CountIf(Range("A1:A" & sil), Range("A" & sil)) > 1 Then Rows(sil).Delete
Next
End Sub

 

[WHYLER]

cok tsk ederim

sagol ustat.

 

[WHYLER]

calistiramadim

kodu visual basic editor den girip yapistirdim. yardimci olurmusunuz. nasil kullanacagim bu komudu

 

[commanc]

Excel Unique & Duplicate Data Remover 1.1
böyle bir program var bi incele istersen google dan bulabilirsin

 

[WHYLER]

sagol

bir cekelim bakalim. tsk ederim

 

[mehmett]

ileriexcel'in verdiği kod fazla verileri gayet güzel temizliyor.

Bu kodu uygulamada anlayamadğınız yer neresi?

 

[Seceren]

kodu visual basic editor den girip yapistirdim. yardimci olurmusunuz. nasil kullanacagim bu komudu

Resimli olarak anlatmaya çalıştım.