[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]
Sizlere daha iyi bir deneyim sunabilmek icin sitemizde çerez konumlandırmaktayız, web sitemizi kullanmaya devam ettiğinizde çerezler ile toplanan kişisel verileriniz Veri Politikamız / Bilgilendirmelerimizde belirtilen amaçlar ve yöntemlerle mevzuatına uygun olarak kullanılacaktır.