sıralama

[dyrbkr]

Selamlar
ekteki dosyayı nasıl sıralıyacagımı gösterebilirmisiniz
xp turkce

 

[veyselemre]

[vb:1:874ed36898]Sub aktar()
Dim x, s1, s2, sat, kriter
Set s1 = [Sayfa1]
Set s2 = [Sayfa2]
sat = 3
s2.Select
Columns(1).ClearContents
kriter = [c1]
GoSub aktar
kriter = [d1]
GoSub aktar
Exit Sub
aktar:
For x = 1 To s1.[a65536].End(3).Row
If s1.Cells(x, 1) = kriter Then
Cells(sat, 1) = s1.Cells(x, 2)
sat = sat + 1
End If
Next
Return
End Sub[/vb:1:874ed36898]

 

[dyrbkr]

hızır gibi yetiştiniz teşekkürler