Bir Ödev Hakkında Yardım Lütfen !

[serus20]

Merhaba Arkadaşlar Benim Sizlere Göre Ufak Bir Problemim Var Hoca Excel de Makro Kullanarak 1. sayfaya girilen isim soyisim ve cinsiyet bilgilerinden cinsiyet bilgilerini toplayarak 2. sayfaya Erkek olanların 3. sayfaya ise bayan olanların Bilgileri aktarılacak problem yaratan soru bu arkadaşlar Rica Etsem En azından bir bilgi veya ön yönten göreterirseniz sevinirim Tşk ederim Şimdiden :yardim: :yardim: :yardim:

__________________________________________________ ________________________________
Form konularını dolaştım ama anlamadığım için işime yarar bir bilgi bulamadım ...

[N.Ziya Hiçdurmaz]

Sub test()
Set s1 = Sheets("sayfa1")
Set s2 = Sheets("sayfa2")
Set s3 = Sheets("sayfa3")
s1.Select
For Each cinsiyet In Range("b1:b20")
If cinsiyet = "erkek" Then
cinsiyet.Offset(0, -1).Copy
s2.Select
s = WorksheetFunction.CountA([a1:A65000]) + 1
Range("a" & s).PasteSpecial
End If
Next
s1.Select
For Each cinsiyet2 In Range("b1:b20")
If cinsiyet2 = "bayan" Then
cinsiyet2.Offset(0, -1).Copy
s3.Select
ss = WorksheetFunction.CountA([a1:A65000]) + 1
Range("a" & ss).PasteSpecial
End If
Next
End Sub

[serus20]

Çok Tşk Ederim Yardımın İçin Tam Anlamı İle Mükemmel Bana Düşen Yazım Mantığını Anlayıp Biraz Daha Geliştirmek Tekrar Tekrar Tşk Ederim Ellerine Sağlık
__________________________________________________ _________________
Emeğe Sayğı