excelde tablo sıralama

[olgun1916]

daha once konu açmıstım ama kımse yanıtlamadı.

Ekteki dosyada yer alan 3 örnek tabloyu her tablonun içindeki vergi no ya göre alt alta sıralayabilirmiyiz. yani elimizde böyle bin tane tablo olduğunu varsayarsak vergi numarası baz alınarak yukardan aşağıya buyukluk sırasına göre dizilsin ama tablodaki veriler sıralama yapınca karışmasın.[/ATTACH]

 

[muygun]

Merhaba;
Önceki sorunuz gözden kaçmış olabilir.
1000 tablodaki yansıması ne olur bilemem ama en azından size fikir verir.
Eki inceleyin.
İyi çalışmalar.

 

[olgun1916]

Teşekürler tam istediğim gibi olmuş.Bu tür excel fonksiyonlarını kullanabılmem ıcın ankarada ileri excel egıtımı veren yer varmı? Bilen arkadaşlar yazarsa sevınırım.

 

[dEdE]

Merhaba,
Ben de makrolu bir çözüm üretmiştim.
Alternatif olsun.

Sub TabloSırala()
    Set s1 = Sheets("Sayfa2")
    Set s2 = Sheets("Sayfa3")
    ss1 = s1.[A65536].End(3).Row
    s = 1
    
    s2.[A:D].Clear
    For i = 7 To ss1 Step 18
        s2.Cells(s, 4).Value = s1.Cells(i, 1).Value
        s = s + 1
    Next
    s2.Range("D:D").Sort Key1:=s2.[D1], Order1:=1
    
    For k = 1 To s2.[D65536].End(3).Row
    Set Aranan = s1.Range("A:A").Find(s2.Cells(k, 4).Value, , xlValues, xlWhole)
    If Not Aranan Is Nothing Then
        r1 = Aranan.Row - 6
        R2 = Aranan.Row + 11
        s2ss = s2.[A65536].End(3).Row + 1
        s1.Range("A" & r1 & ":C" & R2).Copy s2.Range("A" & s2ss)
    End If
    Next
    s2.[A1:D1].Delete (xlUp)
    s2.[D:D].ClearContents
    MsgBox "Tablolar Sayfa3' sıralandı. ", vbOKOnly, "dEdE Başarılar Diler."
End Sub

 

[olgun1916]

teşekkürler hocam