Ve Kullanımı İle İlgili Basit Bir Konu

[fatih1111]

Arkadaşlar ekte örneğini verdiğim çalışmayı istediğim gibi sonuçlandıramadım maalesef. Ve fonksiyonun kullanımı ile ilgili basit bir şey aslında. Yardımcı olursanız cok sevinirim. Ek dosyada açıklama mevcut.

 

[Orion1]

ekli dosyayayı inceleyiniz.

Sub suz59()
Dim sh As Worksheet
Set sh = Sheets("C-7")
Sheets("Sayfa1").Select
Application.ScreenUpdating = False
Range("A3:H" & Rows.Count).Clear
sh.Range("A1").AutoFilter
sh.Range("A1").AutoFilter field:=1, Criteria1:=Range("B1").Value
sh.Range("A1").AutoFilter field:=7, Criteria1:=Range("D1").Value
sh.Range("A1").CurrentRegion.Offset(1, 0).Copy Range("A3")
sh.Range("A1").AutoFilter
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
    vbOKOnly + vbInformation, Application.UserName

End Sub

 

[fatih1111]

ekli dosyayayı inceleyiniz.

hocam teşekkür ederim,filter ile gerçekten çok kolay bir işlemmiş.

Birde acaba excell kodlarıyla da bu işlemi nasıl gerçekleştirebiliriz?

 

[Orion1]

hocam teşekkür ederim,filter ile gerçekten çok kolay bir işlemmiş.

Birde acaba excell kodlarıyla da bu işlemi nasıl gerçekleştirebiliriz?

dosyayı güncelledim.
2 nolu mesajdan indirebilirisiniz.