Veri dogrulama

[muharremege]

Arkadaslar Merhaba ,

formda okudum veri dogrulama ile ilgili ama bir türlü yapamadim

CINSIYET: bay , bayan

yönetim : baskan , sekreter, sayman, ve devam edecek

bir türlü yapamadim
yardimci olusaniz sevinirim

 

[Orion1]

Ekli dosyayı inceleyiniz.

 

[muharremege]

hocam cok sagol
fakat bu nasil oldu ;(((((((((( ben 2 saatir ugrasiyorum
birde yönetim kismini daha bir kac sey ekliyecem nasil olacak ?

bunu menüden bir secenek varmi onunlami yaptin ?

anlatirsan cok sevinirim

 

[Orion1]

hocam cok sagol
fakat bu nasil oldu ;(((((((((( ben 2 saatir ugrasiyorum
birde yönetim kismini daha bir kac sey ekliyecem nasil olacak ?

bunu menüden bir secenek varmi onunlami yaptin ?

anlatirsan cok sevinirim

Önce uygulayacağım alanı seçiyorum.
toolbardan Veri'yi seçiyorum.
açılan sekmedende Veri doğrulamayı seçiyorum.
yine açılan listeden veri doğrulamayı seçiyorum
çıkan userformda AYARLAR sekmesinden
Lİste ' yi seçiyorum.
Ve formül kutusuna BAY;BAYAN yazıyorum.
tamama basıyorum işlem tamamdır.

 

[muharremege]

Cok ama cok tesekür ederim

 

[muharremege]

Hocam birsey daha soracam,

data bölümündeki yer alan Cinsiyet sekmesi altindaki Bayan yazanlari Bayan bölümne nasil gönderebiliriz

Tesekkürler

 

[Orion1]

Hocam birsey daha soracam,

data bölümündeki yer alan Cinsiyet sekmesi altindaki Bayan yazanlari Bayan bölümne nasil gönderebiliriz

Tesekkürler

Dosyanız ektedir.

Sub bayan()
Dim sh As Worksheet
Set sh = Sheets("DATA")
Sheets("BAYAN").Select
Range("A:K").ClearContents
Application.ScreenUpdating = False
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=7, Criteria1:="BAYAN"
sh.Range("A1").CurrentRegion.Copy Range("A1")
sh.Range("A1").AutoFilter
Application.ScreenUpdating = True
Range("A2").Select
MsgBox "İşlem Tamamlanmıştır." & vbLf & "İşlem tamamlandı" & vbLf & "evrengizlen@hotmail.com"
End Sub

 

[muharremege]

Hocam cok ama cok tesekkürler

 

[Orion1]

Hocam cok ama cok tesekkürler

Rica ederim.
iyi geceler.