Sub 거래처발주검색()
'
' 거래처발주검색 매크로
'

'--------코드추가----------
    Application.ScreenUpdating = False
    데이터지우기
'--------코드추가 끝--------

    Range("B3").Select
    Application.CutCopyMode = False
    Application.CutCopyMode = False
    Sheets("수주내역").Range("수주전체내역[#All]").AdvancedFilter Action:=xlFilterCopy, _
        CriteriaRange:=Range("조건"), CopyToRange:=Range("복사위치"), Unique:=False
    Range("A1").Select

'---------코드추가------------
    일련번호표시
     Application.ScreenUpdating = True
'---------코드추가------------
End Sub
