• DİKKAT

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

Listeleme nasıl yapılır?

  • Konbuyu başlatan Konbuyu başlatan redheat
  • Başlangıç tarihi Başlangıç tarihi
Katılım
18 Şubat 2007
Mesajlar
90
Excel Vers. ve Dili
2003
Merhabalar,

Yapmak istediğim, verilerin olduğu sayfadan yazılan sicil numarasını filtreleyerek aynı sicil numarasına ait farklı tarihleri liste sayfasında birleştirmek. Soruyla ilgili örnek dosya ekte..Acil yardımcı olursanız sevinirim.. Teşekkürler.
 

Ekli dosyalar

Dosyanız ektedir.:cool:
Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
Dim s1 As Worksheet, sat As Long
If Intersect(Target, [C3]) Is Nothing Then Exit Sub
Set s1 = Sheets("veri")
Application.ScreenUpdating = False
s1.Range("A4").AutoFilter
sat = s1.Cells(65536, "A").End(xlUp).Row
Range("A8:D" & sat).ClearContents
s1.Range("A4").AutoFilter field:=1, Criteria1:=Target.Value
s1.Range("A4:D" & sat).CurrentRegion.Copy Range("A8")
s1.Range("A4").AutoFilter

End Sub
 

Ekli dosyalar

Aşağıdaki kodları deneyebilirsiniz.

C3 hücresine veri girdiğinizde otomatik olarak bilgiler listelenir.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [c3]) Is Nothing Then Exit Sub
Set s1 = Sheets("veri")
Set s2 = Sheets("liste")
sicil = s2.[c3].Value
s2.Range("b9:c500").ClearContents
For i = 5 To s1.Cells(65536, "a").End(3).Row
    If s1.Cells(i, "a").Value = sicil Then
            adi = s1.Cells(i, "b").Value
            sat = s2.[b65536].End(3).Row + 1
            s2.Cells(sat, "b").Value = s1.Cells(i, "c").Value
            s2.Cells(sat, "c").Value = s1.Cells(i, "d").Value
    End If
Next i
s2.[c4].Value = adi
Set s1 = Nothing
Set s2 = Nothing
End Sub
 

Ekli dosyalar

arkadaşlar çok teşekkür ederim istediğim şekilde. Evren üstada tşk ederim, sizinki daha karışık geldiği için reep beyin yazdığı kodu uyarladım. Fakat kodları gerçek dosyaya uyarladım ve şöyle bisorunum var. veri sayfasında şuan mevcut olan 3000 adet kayıt var, yazılan kodlar şuan olan veriler içerisinde işe yaramıyor.. şuanki verilerin altına yeni bilgiler eklediğimde yalnızca son eklenenleri buluyor.. bu sorun neden kaynaklanabilir?
 
Asıl dosyanızda 5-6 kayıt bırakarak ekleyebilir misiniz?
 
Kodlarınızdaki aşağıdaki bölümleri değiştiriniz.


Kod:
s2.Range("b9:c[COLOR=red]5000[/COLOR]").ClearContents
For i = [COLOR=red]3[/COLOR] To s1.Cells(65536, "b").End(3).Row
 
arkadaşlar çok teşekkür ederim istediğim şekilde. Evren üstada tşk ederim, sizinki daha karışık geldiği için reep beyin yazdığı kodu uyarladım. Fakat kodları gerçek dosyaya uyarladım ve şöyle bisorunum var. veri sayfasında şuan mevcut olan 3000 adet kayıt var, yazılan kodlar şuan olan veriler içerisinde işe yaramıyor.. şuanki verilerin altına yeni bilgiler eklediğimde yalnızca son eklenenleri buluyor.. bu sorun neden kaynaklanabilir?
Benim yazdığım kodun nersei karışık.
Gayet basit.Autofilter ile verileri alıyorum.
Bu kodlar hız olarakta en hızlı çalışan koddur.:cool:
 
for döngüsünün nasıl kullanıldığını şimdi öğrendim :D tşk.ler
 
Benim yazdığım kodun nersei karışık.
Gayet basit.Autofilter ile verileri alıyorum.
Bu kodlar hız olarakta en hızlı çalışan koddur.:cool:


yok hocam ondan değilde ne bilim işte diğerini uyarlaması daha basit gibi geldi, önemli olan sonuç. her ikisiylede ulaşılıyor :) ama yinede çook tşk ederim ;) parmaklarınıza sağlık :)
 
yok hocam ondan değilde ne bilim işte diğerini uyarlaması daha basit gibi geldi, önemli olan sonuç. her ikisiylede ulaşılıyor :) ama yinede çook tşk ederim ;) parmaklarınıza sağlık :)
Hız konusunu yabana atmayın.
Çok büyük kayıtlarda önemi ortaya çıkar.:cool:
 
Geri
Üst