rapor süreleri

[ocak26]

merhaba arkadaşlar
liste ekte yardımcı olursanız sevinirim
Teşekkür ederim.

 

[Orion1]

Dosyanız ektedir.

Sub rapor59()
Dim sonsat As Long, sh As Worksheet
Sheets("liste").Select
Set sh = Sheets("Sayfa2")
sh.Range("A1:B" & Rows.Count).ClearContents
Application.ScreenUpdating = False
Range("A1").AutoFilter
Range("A1").AutoFilter field:=5, Criteria1:="rapor"
Range("A1").CurrentRegion.Offset(0, 2).Copy sh.Range("A1")
Range("A1").AutoFilter
sh.Range("F:H,C:D").Delete
Application.ScreenUpdating = True
sh.Select
MsgBox "İzin süreleri çıkarıldı." & vbLf & "evrengizlen@hotmail.com"
End Sub