[Yardım]  Mükerrer Kayıtları Silme Formu

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

Mükerrer Kayıtları Silme Formu

İleti#1)  Süleyman SAVAŞ » 05 Kas 2018 22:31

Kod: Tümünü seç
Sub RemoveDuplicateRows()
Dim MyRange As Range
Dim LastRow As Long

LastRow = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Set MyRange = ActiveSheet.Range("A1:D" & LastRow)
MyRange.RemoveDuplicates Columns:=3, Header:=xlYes
End Sub

Merhaba arkadaşlar.
Buradaki algoritma ile; A ile D sütunları aralığındaki kayıtlardan C sütunu referans alınarak mükerrer kayıtları siliyor.
Amacım burada tanımlanan sütun başlıklarını textbox lar ile döngüye alıp kodu çalıştırmak.
Yardımlarınızı rica ediyorum.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
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 Formu

İleti#2)  hemso41 » 06 Kas 2018 12:41

Çok değerli veriler olmadığı için deneme yapamıyoruz.
Butonun click yordamını aşağıdaki gibi revize ediniz.
Kod: Tümünü seç
Dim MyRange As Range
Dim LastRow As Long

LastRow = ActiveSheet.Range(TextBox1 & Rows.Count).End(xlUp).Row
Set MyRange = ActiveSheet.Range(TextBox1 & "1:" & TextBox2 & LastRow)
MyRange.RemoveDuplicates Columns:=deger(TextBox3), Header:=xlYes


Modülünüze aşağıdaki fonksiyonu ekleyiniz.
Kod: Tümünü seç
Function deger(x)
i = 0
    dizi = "A,B,C,D,E,F,G,H,I,İ,J,K"
        For Each c In Split(dizi, ",")
           
            If c = UCase(x) Then
                deger = i+1
            End If
             i = i + 1
        Next
   
End Function
Kullanıcı avatarı
hemso41
Siteye Alışmış
 
Kayıt: 22 Eyl 2015 10:04
Meslek: BİLGİ İŞLEM
Yaş: 38
İleti: 364
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: izmir/karşıyaka


Forum TextBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Bing[Bot] ve 1 misafir

cron
Bumerang - Yazarkafe