şartlı rapor oluşturma hk.

[frestylee]

merhaba arkadaslar sizlerin yardımı ile hazırlamış oldugum çalışmamda,yine siz excel üstatları için basit olan bir sorunum var,ekli dosya da açıklama olarak belirttim ve yardımlarınıza ihtiyacım var,şimdiden tşk ederim,iyi çalışmalar.

 

[Orion1]

Dosyanız ektedir.

Sub eksik_aktar_59()
Dim sh As Worksheet, sat As Long
Set sh = Sheets("EKSİK_RAPOR")
Sheets("2010").Select
Application.ScreenUpdating = False
sh.Range("A:R").Clear
Range("A2").AutoFilter
sat = Cells(65536, "B").End(xlUp).Row
If sat < 3 Then
    If ActiveSheet.AutoFilterMode = False Then ActiveSheet.Range("A2").AutoFilter
    Exit Sub
End If
Range("A2").AutoFilter Field:=18, Criteria1:="EKSİK"
Range("A2").CurrentRegion.Copy
sh.Range("A2").PasteSpecial (xlPasteValuesAndNumberFormats)
Range("A2").AutoFilter Field:=18
Range("A1:R2").Copy
sh.Range("A2").PasteSpecial (xlPasteFormats)
Application.CutCopyMode = False
sh.Select
Range("A1").Select
Application.ScreenUpdating = True
MsgBox "Eksikler aktarıldı." & vbLf & _
"evrengizlen@hotmail.com", vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[frestylee]

iş yerinde internet kesintisi nedeniyle geç cevap yazıyorum kusura bakmayın.tam istediğim gibi olmus çok teşekkür ederim,iyi çalışmalar

 

[Orion1]

iş yerinde internet kesintisi nedeniyle geç cevap yazıyorum kusura bakmayın.tam istediğim gibi olmus çok teşekkür ederim,iyi çalışmalar

Rica ederim.
İyi çalışmalar.