• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Mükerrer kayıtlar

C

champion

Katılım
14 Aralık 2005
Mesajlar
33
Excel Vers. ve Dili
office 2003 TR
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..
 
Son düzenleme:
Selamlar,

Neden sorunuza dosyanızı eklerkerken VBA şifresini kaldırmıyorsunuz ?
Bu durumda size nasıl yardım edebiliriz ki !
 
Kusura bakmayın tamamen unutmuşum.. Kaldırmaya çalıştım eğer becerememiş isem şifre 5166041
 
Selamlar,

Hangi sütundaki bilgiler eşleşiyorsa mükerrer kayıtlar silinecek lütfen belirtirmisiniz.
 
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.
 
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
Genişletmek için tıkla ...
Ekli dosyayı inceleyiniz.
Form butonuna tıklayınız.:cool:
 
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.
 
CEMİLKİ' Alıntı:
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.
Genişletmek için tıkla ...

Dosyanız hazır.
Ekli dosyayı inceleyiniz.:cool:
Yeni eklediğim butona tıklayınız.
Eski butonada yeni kayıtlar girerken kullanabilirsiniz.:cool:
 
Korhan Ayhan' Alıntı:
Selamlar,

Hangi sütundaki bilgiler eşleşiyorsa mükerrer kayıtlar silinecek lütfen belirtirmisiniz.
Genişletmek için tıkla ...

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.
 
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.

Kod: 
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
 
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
 
Mükerrem Kayıtlar

Evren Gizlen' Alıntı:
Dosyanız hazır.
Ekli dosyayı inceleyiniz.:cool:
Yeni eklediğim butona tıklayınız.
Eski butonada yeni kayıtlar girerken kullanabilirsiniz.:cool:
Genişletmek için tıkla ...

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.
 
CEMİLKİ' Alıntı:
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.
Genişletmek için tıkla ...
Eğer bir problem olacaksa tam tersi olamalı.
Nerede hata veriyor.
Hatalı satırı bildirimisiniz?:cool:
 
Evren Gizlen' Alıntı:
Dosyanız hazır.
Ekli dosyayı inceleyiniz.:cool:
Yeni eklediğim butona tıklayınız.
Eski butonada yeni kayıtlar girerken kullanabilirsiniz.:cool:
Genişletmek için tıkla ...

Sayın Gizlen
8 nolu mesaja eklediğiniz dosya makrosu çalışmıyor, Private Sub UserForm_Initialize() satırı hata veriyor.
Selamlar,
 
ziya' Alıntı:
Sayın Gizlen
8 nolu mesaja eklediğiniz dosya makrosu çalışmıyor, Private Sub UserForm_Initialize() satırı hata veriyor.
Selamlar,
Genişletmek için tıkla ...
Gayet güzel çalışıyor.
Size virüs bulaşmış olmasın sakın!!.:hihoho:
 
CEMİLKİ' Alıntı:
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.
Genişletmek için tıkla ...

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,
 
ziya' Alıntı:
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,
Genişletmek için tıkla ...

Bende 2003 TR kullanıyorum.
Ve hiç bir sorun yok.Gayette güzel çalışıyor.:cool:
 
Tamam hocam, belki bizde başka bir eksik var.
Selamlar,
 
Evren Gizlen' Alıntı:
Bende 2003 TR kullanıyorum.
Ve hiç bir sorun yok.Gayette güzel çalışıyor.:cool:
Genişletmek için tıkla ...

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
 
Cevap yazmak için giriş yap yada kayıt ol.
Geri
Üst