Mükerrer kayıtlar

[champion]

Mükerrer kayıtlar için yardım lütfen

Merhaba arkadaşlar
Bu konu ile ilgili bir çok örnek var forumda biliyorum ama benim ki biraz daha karışık.Dosyay bakınca anlayacaksınız?
Ekteki dosyada mükerrer girişler var.Ama liste biraz uzun ve karışık.Benim istediğim tüm sayfayı kontrol edip tamamen mükerrer olan kayıtları çıkartmak.

Mesela ; Aynı sipariş numarası ile birden fazla malzeme sipariş edilmiş olabilir bunda sorun yok.Ama listede aynı kayıt no,sipraiş no,tarih v.s ile girilmiş kayıtlar var bunları çıkartmak için ne yapabilirm acaba..

 

[Korhan Ayhan]

Selamlar,

Neden sorunuza dosyanızı eklerkerken VBA şifresini kaldırmıyorsunuz ?
Bu durumda size nasıl yardım edebiliriz ki !

 

[champion]

Kusura bakmayın tamamen unutmuşum.. Kaldırmaya çalıştım eğer becerememiş isem şifre 5166041

 

[Korhan Ayhan]

Selamlar,

Hangi sütundaki bilgiler eşleşiyorsa mükerrer kayıtlar silinecek lütfen belirtirmisiniz.

 

[CEMİLKİ]

Mükerrer kayıt

Selam arkadaşlar.
Benim farklı bir sorum var.Belli bir tarihte girilen kayıtların belli bir tarih geçmeden başka bir listeye geçememesi,ve geçerken de yanındaki sütununda diğer listenin yanına geçmesi.Listem ektedir.

 

[Orion1]

Selam arkadaşlar.
Benim farklı bir sorum var.Belli bir tarihte girilen kayıtların belli bir tarih geçmeden başka bir listeye geçememesi,ve geçerken de yanındaki sütununda diğer listenin yanına geçmesi.Listem ektedir

Ekli dosyayı inceleyiniz.
Form butonuna tıklayınız.

 

[CEMİLKİ]

Yardımınız için çok teşekkür ederim. Hazırlamış olduğunuz form ile ilgili ufak bir sorum olacak. Mesela 100 kişilik bir liste oluşturduğumda ve formu çalıştırdığimda isimleri toplu olarak seçip aynı anda işlemi 100 kişi için birden gerçekleştirebilir miyim?
Yardımlarınız için şimdiden teşekkür ederim.

 

[Orion1]

Yardımınız için çok teşekkür ederim. Hazırlamış olduğunuz form ile ilgili ufak bir sorum olacak. Mesela 100 kişilik bir liste oluşturduğumda ve formu çalıştırdığimda isimleri toplu olarak seçip aynı anda işlemi 100 kişi için birden gerçekleştirebilir miyim?
Yardımlarınız için şimdiden teşekkür ederim.

Dosyanız hazır.
Ekli dosyayı inceleyiniz.
Yeni eklediğim butona tıklayınız.
Eski butonada yeni kayıtlar girerken kullanabilirsiniz.

 

[champion]

Selamlar,

Hangi sütundaki bilgiler eşleşiyorsa mükerrer kayıtlar silinecek lütfen belirtirmisiniz.

Bütün sutünlardaki bilgiler aynı olanlar silinecek. Resme bakrsanız kırmızı renkli girişler üsttekilerin aynısı tamamen. Böyle kayıtların temizlenmesini istiyoeum

Yardımlarınız için teşekkür ederim.

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz. Yalnız sayfanızda M sütunundaki #YOK sonucu döndüren formüller sıkıntı yaratabilir. Çalışmanızın yedeğini alarak kodu denemenizi öneririm.

Kod A-U sütunlarındaki verileri birleştirdikten sonra mükerrer kayıt kontrolü yaparak silme işlemini gerçekleştirir.

Sub MÜKERRER_SİL()
    Application.Calculation = xlCalculationAutomatic
    [IV2] = "=A2&B2&C2&D2&E2&F2&G2&H2&I2&J2&K2&L2&M2&N2&O2&P2&Q2&R2&S2&T2&U2"
    [IV2].AutoFill Destination:=Range("IV2:IV" & [A65536].End(3).Row), Type:=xlFillDefault
    Range("IV2:IV" & [A65536].End(3).Row).Value = Range("IV2:IV" & [A65536].End(3).Row).Value
    Application.Calculation = xlCalculationManual
    For X = [IV65536].End(3).Row To 2 Step -1
    If WorksheetFunction.CountIf(Range("IV2:IV" & X), Cells(X, "IV")) > 1 Then
    Rows(X).Delete
    End If
    Next
    Application.Calculation = xlCalculationAutomatic
    Columns(256).Delete
    MsgBox "İŞLEMİNİZ TAMAMLANMIŞTIR.", vbInformation
End Sub

 

[champion]

Yardımlarınız için çok çok teşekkür ederim

 

[poc0312]

korhan ayhan kod için teşekürler ancak bu kod tüm çalışma sayfasını kaplıyor galiba ben sadece A VE B hücrelerini kapsayacak bişey istiyorum mümkünmüdür

 

[CEMİLKİ]

Mükerrem Kayıtlar

Dosyanız hazır.
Ekli dosyayı inceleyiniz.
Yeni eklediğim butona tıklayınız.
Eski butonada yeni kayıtlar girerken kullanabilirsiniz.

Bu programı evde kullanabiliyorum.Ama iş yerinde kullanamıyorum.
EV..Excel 2003 ENG
İŞ.. Excel 2003 TR
Yardımlarının için teşekkür ederim.

 

[Orion1]

Bu programı evde kullanabiliyorum.Ama iş yerinde kullanamıyorum.
EV..Excel 2003 ENG
İŞ.. Excel 2003 TR
Yardımlarının için teşekkür ederim.

Eğer bir problem olacaksa tam tersi olamalı.
Nerede hata veriyor.
Hatalı satırı bildirimisiniz?

 

[ziya]

Dosyanız hazır.
Ekli dosyayı inceleyiniz.
Yeni eklediğim butona tıklayınız.
Eski butonada yeni kayıtlar girerken kullanabilirsiniz.

Sayın Gizlen
8 nolu mesaja eklediğiniz dosya makrosu çalışmıyor, Private Sub UserForm_Initialize() satırı hata veriyor.
Selamlar,

 

[Orion1]

Sayın Gizlen
8 nolu mesaja eklediğiniz dosya makrosu çalışmıyor, Private Sub UserForm_Initialize() satırı hata veriyor.
Selamlar,

Gayet güzel çalışıyor.
Size virüs bulaşmış olmasın sakın!!.:hihoho:

 

[ziya]

Bu programı evde kullanabiliyorum.Ama iş yerinde kullanamıyorum.
EV..Excel 2003 ENG
İŞ.. Excel 2003 TR
Yardımlarının için teşekkür ederim.

Sn Gizlen
CEMİLKİ benzer birşey söylüyor, ben de 2003 TR kullanıyorum, bilmiyorum TR versiyonuyla ilgisi var mı. Siz 2003 TR de denediniz mi?
Selamlar,

 

[Orion1]

Sn Gizlen
CEMİLKİ benzer birşey söylüyor, ben de 2003 TR kullanıyorum, bilmiyorum TR versiyonuyla ilgisi var mı. Siz 2003 TR de denediniz mi?
Selamlar,

Bende 2003 TR kullanıyorum.
Ve hiç bir sorun yok.Gayette güzel çalışıyor.

 

[ziya]

Tamam hocam, belki bizde başka bir eksik var.
Selamlar,

 

[CEMİLKİ]

Bende 2003 TR kullanıyorum.
Ve hiç bir sorun yok.Gayette güzel çalışıyor.

Programı çalıştırmak istediğimde could not loadon object because it is not available on this machine.
Bu yazıya tamam dediğim zaman
Compile error.can't find projector library yazısı geliyor tamam deyince de alttaki yazı çıkıyor.


sgBox "Kayıtlar Aktarıldı..!!", vbOKOnly + vbInformation, Application.UserName
End Sub

Private Sub CommandButton3_Click()
Dim i As Long
For i = 0 To ListBox1.ListCount - 1
ListBox1.Selected(i) = False
Next
End Sub

Private Sub UserForm_Click()

End Sub

Private Sub UserForm_Initialize()
Sheets("Sheet1").Select
Me.Caption = "KAYIT -- " & Format(Date, "dd.mm.yyyy")
ListBox1.ColumnCount = 3
ListBox1.ColumnWidths = "170;150;70"
ListBox1.ColumnHeads = True
ListBox1.RowSource = "A2:C" & Cells(65536, "A").End(xlUp).Row
End Sub