[Çözüldü]  Mükerrer Kayıtları Silme

Metin Kutucuğu. Bir programcının olmazsa olmazlarındandır.

Mükerrer Kayıtları Silme

İleti#1)  Süleyman SAVAŞ » 05 Kas 2018 16:43

Merhaba arkadaşlar.
Kod: Tümünü seç
Private Sub CommandButton2_Click()

If TextBox6.Text = "" Then
MsgBox "Başkan Hangi sütunda işlem yapmak istediğini yazmalısın...."
Exit Sub
End If

If TextBox7.Text = "" Then
MsgBox "Başkan İşlem sonucunun yazılacağı sütunu seçmelisin....", vbExclamation
Exit Sub
End If


Dim sonm As Long

sonm = Range(TextBox6.Text & Rows.Count).End(3).Row
For i = 2 To Range(TextBox6.Text & Rows.Count).End(3).Row
aaa = Range(TextBox6.Text & 2, TextBox6.Text & sonm)
say = Application.WorksheetFunction.CountIf(Range(TextBox6.Text & 2 & ":" & TextBox6.Text & sonm), Cells(i, TextBox6.Text))
If say > 1 Then Cells(i, TextBox7.Text) = "Mükerrer Kayıt.!!!"
Next
End Sub

Yukarıdaki kod ile kontrol edilen sütunda bulunan mükerrer kayıtlar istenen her hangi bir sütuna mükerrer kayıt notu yazılarak işaretleniyor.
Örnek: A Sütunu kontrol ediliyor. Mükerrer kayıt varsa karşısına B sütununa mükerrer kayıt yazıyor.
Kodun devamına mükerrer olan kayıtları teke indirmek, birden fazla olanları silmek için makro ilavesi istiyorum.
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 382
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: Mükerrer Kayıtları Silme

İleti#2)  feraz » 05 Kas 2018 16:52

Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5458
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

Cevap: Cevap: Mükerrer Kayıtları Silme

İleti#3)  Süleyman SAVAŞ » 05 Kas 2018 18:36

feraz yazdı:https://wellsr.com/vba/2017/excel/use-vba-removeduplicates-to-remove-duplicate-rows-from-column/

Teşekkürler ferah üstat.
Buradaki kod ile sorun çözüldü
Kullanıcı avatarı
Süleyman SAVAŞ
Siteye Alışmış
 
Adı Soyadı:Süleyman Savaş
Kayıt: 05 May 2009 14:05
Konum: Bursa
Meslek: 657
Yaş: 46
İleti: 382
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Bursa/Gemlik

Cevap: Mükerrer Kayıtları Silme

İleti#4)  feraz » 05 Kas 2018 19:03

Rica ederim Savaş üstadım.
Çözeceğine inanıyordum kanaatin olsun :)
Kullanıcı avatarı
feraz
Site Dostu
 
Kayıt: 19 May 2014 19:36
Konum: Almanya
Meslek: İşçi
Yaş: 39
İleti: 5458
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Aksaray

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 1 misafir

cron
Bumerang - Yazarkafe