OfficeTutor.com
배움터 나눔터 교육센터 오튜장터
 통합검색  
  Home > 나눔터 > 엑셀 > 묻고답하기
엑셀
워드
액세스
파워포인트
아웃룩
프런트페이지
인포패스
원노트
비지오
쉐어포인트
포토드로우
퍼블리셔
오피스공통
MVP 안내
MVP 명예의 전당
MVP 카페

 

 

 

 
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 임정진 (ljjm205)

추천:  1
파일:     bb1 update.xlsm (21.6KB) 조회:  25
제목:   9런타임 오류가 발생
     
  윈도우 10
엑세 버전 2007

메크로와, 비주얼 베이직을 이용해서 자료를 만들고 있는데
구역 란에 문자는 오류가 안 나타 나는데
숫자만 입력 하면 9런타임 오류가 발생 했다고 뜹니다.
그리고 업데이트 시트에 입력을 하고 업데이트라는 버틀을 누르면
해당 시트로 자료가 이동을 하는데
해당 표도 그대로 이동을 해서 다시 표를 만들어야 하는데
업데이트를 하면 해당 자료가 시트로 복사가 되고 업데이트에 입력한
자료는 그대로 두는 방법은 없나요?
마지막으로 해당 시트로 자료가 업데이트가 되면 자료가 맨 상단으로
가게끔 하는 방법은 없는지 궁금합니다. 

Sub updat()

 구역 = Range("A2")

  Select Case 구역
    
    Case "15"
        L = Sheets(구역).Cells(Rows.Count, "A").End(xlUp).Row + 1
        Range("A2:F2").Copy Sheets(구역).Cells(L, 1)
        Range("A2:F2").Clear
        
    Case "16"
        L = Sheets(구역).Cells(Rows.Count, "A").End(xlUp).Row + 1
        Range("A2:F2").Copy Sheets(구역).Cells(L, 1)
        Range("A2:F2").Clear
        
    Case "17"
        L = Sheets(구역).Cells(Rows.Count, "A").End(xlUp).Row + 1
        Range("A2:F2").Copy Sheets(구역).Cells(L, 1)
        Range("A2:F2").Clear
        
    Case "P1"
        L = Sheets(구역).Cells(Rows.Count, "A").End(xlUp).Row + 1
        Range("A2:F2").Copy Sheets(구역).Cells(L, 1)
        Range("A2:F2").Clear

    Case "X1"
        L = Sheets(구역).Cells(Rows.Count, "A").End(xlUp).Row + 1
        Range("A2:F2").Copy Sheets(구역).Cells(L, 1)
        Range("A2:F2").Clear

 End Select

 
 

End Sub
 
[불량 게시물 신고]  
dew아래 한줄을 추가하세요.
Dim 구역 As String
10-11 (15:36)
삭제 ■신고
        
  

작성일 : 2018-10-11(15:22)
최종수정일 : 2018-10-11(15:22)
 
 
 
회사소개 | 이용약관 | 개인정보 처리방침 | 회원정보수정 | 교육신청 및 문의 | 이메일무단수집거부 위로

오피스튜터 블로그 오피스튜터페이스북 오피스튜터유투브
110-722 서울 종로구 세종대로23길 47, 601-74 ㈜오피스튜터 ☎1544-4102 대표이사 : 전경수
개인정보관리책임자 : 이희진(privacy@officetutor.com) 사업자등록번호 120-86-14501
통신판매업신고 2013-서울종로-0547
norton
Copyright ⓒ OfficeTutor.com 이 페이지의 저작권은 ㈜오피스튜터와 콘텐츠 제공자에게 있습니다. 무단 복제를 금합니다.
Microsoft 및 Office 로고는 미국, 대한민국 및/또는 기타 국가에서의 Microsoft Corporation 등록 상표 또는 상표입니다.