Listeleme nasıl yapılır?

[redheat]

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.

 

[Orion1]

Dosyanız ektedir.

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

 

[Recep İpek]

Aşağıdaki kodları deneyebilirsiniz.

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

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

 

[redheat]

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?

 

[Recep İpek]

Asıl dosyanızda 5-6 kayıt bırakarak ekleyebilir misiniz?

 

[redheat]

tşkler ekledim

 

[Recep İpek]

Kodlarınızdaki aşağıdaki bölümleri değiştiriniz.

s2.Range("b9:c[COLOR=red]5000[/COLOR]").ClearContents
For i = [COLOR=red]3[/COLOR] To s1.Cells(65536, "b").End(3).Row

 

[Orion1]

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.

 

[redheat]

for döngüsünün nasıl kullanıldığını şimdi öğrendim tşk.ler

 

[redheat]

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.

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

 

[Orion1]

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.