Sıralama Makrosu

[dyrbkr]

Selamlar

Ekteki dosyamda sıralama makrosu var karşısındaki hücreyi alamıyorum yardım edebilirmisinis

 

[veyselemre]

[vb:1:603c23d169]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)
Cells(sat, 2) = s1.Cells(x, 3)
Cells(sat, 3) = s1.Cells(x, 4)
sat = sat + 1
End If
Next
Return
End Sub[/vb:1:603c23d169]

 

[dyrbkr]

teşekkür ederim