Re:복사,붙여넣기 매크로인데요,질문 있습니다.

[곽완근]

Sub 한방에붙여넣기()

    Application.DisplayAlerts = False '경고를 무시
    j = 1
    For i = 1 To 10
   
        Workbooks.Open Filename:="C:\곽분이\" & i & ".xls"
       
        Windows(i & ".xls").Activate
        ActiveWindow.WindowState = xlNormal
        Rows("14:37").Select
        Selection.Copy
       
        Windows("all 부산.xls").Activate
        ActiveWindow.WindowState = xlNormal
        Cells(j, 1).Select
            ActiveSheet.Paste
        Windows(i & ".xls").Activate
        ActiveWindow.WindowState = xlNormal
        ActiveWindow.WindowState = xlNormal
        ActiveWindow.Close
        j = j + 24
       
    Next
   
    Application.DisplayAlerts = True  ' 경고기능 재개
   
End Sub

문장앞뒤에 위와 같이 문구를 삽입하시면 됩니다. ^^

[곽완근]

Application.DisplayAlert!s 문장중 뒤에서 두번째 느낌표는 빼세요 왜붙었는지 모르겠습니다. - -;

[곽분이]

아이고~~고마워요~~//바쁜 중에 이리 세세한 답변을 주셔서요//땡큐~~

[곽완근]

별말씀을 ..오늘 주식배당 받으셔서 좋겠어요 ^^;

[곽분이]

배당금...주식이 아니라 돈.^^//아꼈다가 나중에 쇠주 한 잔 사리다.ㅎㅎㅎ