Listeden otomatik süzme

[tweeter]

Merhaba arkadaşlar.
Söyle bir listem var diyelim.

sn cinsiyeti adı soyadı doğum yılı
1 erkek mehmet 1966
2 kız ayşe 1987
3 kız yıldız 1988
4 erkek şakir 1977

buradan otomatik olarak başka bir sayfaya erkek olanların bilgilerini sıramak istiyorum. Nasıl yaparım.

Yardımcı olursanız çok sevinirim. Teşekkürler.

 

[barb_aros]

makrolarla yapılabiliyor...
kodlarını gönderiyorum... inşallah işini görür...


Sub deneme()
'
' deneme Makro
' Makro BİGA_İLÇE_TARIM_MÜDÜRLÜĞÜ tarafından 24.08.2006 tarihinde kaydedildi.
'

'
Range("B1").Select
Selection.AutoFilter
Selection.AutoFilter Field:=2, Criteria1:="erkek"
Range("A25").Select
Selection.Copy
Sheets("Sayfa2").Select
Range("B2").Select
ActiveSheet.Paste
Range("F3").Select
End Sub

 

[tweeter]

Teşekkür

Teşekkürler barbaros. Yalnız makronda bir gülme işareti var onu çözemedim.

 

[barb_aros]

ikinoktanın yanına "D" herfi gelince gülüyor... kodları pencerede göndrmeyi bilmediğimden oldu... direkt yapıştırdım ":_D" alt çizgi olmadan yazarsan orayı sorun çözülür

 

[tweeter]

sonuca ulaşmıyor

değerli arkadaşım

makronu yazdım ama sonuca ulaşmıyor. Denemek için yazdığım dosyayı gönderiyorum sana. Yardımcı olursan çok sevinirim.

 

[Merhum İdris SERDAR]

Kodları bir mödül'ün içine koymalısınız.

 

[vedat]

birde bu dosyada dene
umarım isteğin olmuştur

 

[barb_aros]

ekteki dosyada makroyu çalıştır...

inşallah işini görür

 

[tweeter]

Yardımcı olan tüm arkadaşlara teşekkürler