veriden isim listesi oluşturmak

[yucel baygul]

buna benzer bir tablo gördüm ama bu dosyaya uygulayamadım. ekteki dosyada VERİ sayfasından LİSTE sayfasına isim listesi yaptırmak istiyorum. ilgilenenlere teşekkür ederim.

 

[mehmett]

Menülerden aşağıdaki sırayı takip edin;

Veri, Filtre Uygula, Gelişmiş Filtre, Yalnızca Benzersiz Kayıtlar, Başka bir yere kopyala

 

[yucel baygul]

sn mehmett çok teşkkürler. yeni kayıtlar girildiğinde sanırım kopyaladığım listeye eklenmeyecektir. bunu dikkate almam gerekiyormu. yada listeye yeni bir kişi eklendiğinde otomatik olarak kopyalanan listeye ekleyebilecek yerleşik fonksiyonları kullanarak bir kod varmı? kısacası yeni biri eklendiğinde veri doğrulama listesinde kullanacağım listeye otomatik eklensin istiyorum. ilgilenenlere çok teşekkürler.

 

[muygun]

slm.
verilerinizi
sıra no ,
isim (tamamı yada birkaç harf),
sicil no
tarih (gün,ay,yıl)
makbuz no,
ve durumu bazında listeleyebilirsiniz.

 

[yucel baygul]

sn muygun çok güzel ve değişik bir çalışma emin olun bunuda kullanağım. çok teşekkür ederim. benim istediğim aidat ödemesini yamış ve yapacak olan (2005,2006 ve daha sonrası) kişileri ayrı bir sayfaya sıralamak. yeni kişiler üye aidatı ödediği zaman o listeye eklenmeli. bu konudada yardımcı olursanız sevinirim.

 

[Korhan Ayhan]

Selamlar,

VERİ isimli sayfanızın kod kısmına aşağıdaki kodları uygularmısınız. C sütununa SİCİL NO girdiğinizde LİSTE isimli sayfanızdaki verileri günceller.

Private Sub Worksheet_Change(ByVal Target As Range)
    Application.ScreenUpdating = False
    On Error Resume Next
    If Intersect(Target, [C2:C65536]) Is Nothing Then Exit Sub
    Set S1 = Sheets("VERİ")
    Set S2 = Sheets("LİSTE")
    S1.Columns("B:C").AdvancedFilter Action:=xlFilterInPlace, Unique:=True
    S1.[A2:C65536].Copy
    S2.Select
    S2.[A2].Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    S2.[B2:C65536].Sort Key1:=S2.[B2], Order1:=xlAscending, _
    Header:=xlGuess, OrderCustom:=1, MatchCase:=False, _
    Orientation:=xlTopToBottom, DataOption1:=xlSortNormal
    S2.[A2].Select
    S1.Select
    ActiveSheet.ShowAllData
    Cells(65536, 2).End(xlUp).Offset(1, 0).Select
    Application.ScreenUpdating = True
End Sub

 

[yucel baygul]

sn COST CONTROL ilginize teşekkür ederim. emek vermişsiniz.benim istediğim VERİ sayfasındaki B sütununa yeni bir isim girdiğinde LİSTE sayfasıdaki B sütununa eklenecek, daha önce var olan bir isim olduğunda isim Liste sayfasındaki B sütunuda yinelenmeyecek. yani isim birden fazla tekrarlanmayacak. eğer yapılabiliyorsa yerleşik fonksiyonlarla olması benim için daha uygun olacak. ilgilenenlere emek harcayanlara teşekkürler

 

[Korhan Ayhan]

Selamlar,

Vermiş olduğum kod LİSTE sayfasına benzersiz kayıtları alıyor siz daha farklı birşeymi istiyorsunuz ?

Kodun mantığı şu şekildedir. B sütununa isim girip daha sonra sicil no girdiğiniz anda kod tetiklenip isim listesini güncellemektedir. Siz B sütununa isim girdiğimde demişsiniz fakat girilen kişinin sicil nosu olmayacakmı bu kısmını anlamadım.

 

[yucel baygul]

sn COST CONTROL belirli bir süre için olmuyor. yani üyeliği kabul edilene kadar sicil nosu olmuyor. o sebeble bu bir problem. ama yinede çok teşekkür ederim. zahmet verdim size.