도움이 되셔서 저도 기쁘네요. 달력은 날짜 형태의 셀에서만 작동을 하는 걸로 알고 있어요. 셀을 2개 만드셔서 하나는 날짜 포멧, 다른 하나는 일반으로 포멧을 정하시고 달력 아이콘이 나오는 지 확인해 보셔요. 달력이 나오는 것이 귀찮으시면, 추가기능에서 선택해제하면 사라집니다. 감사합니다.
다른 vba 영상보다 길이도 짧고 핵심만 들어가 있어서 재밌게 배웠습니다. 근데 혹시 미리 작성되어 있는 엑셀 파일을 해당 vba 파일에 넣을 수는 없을까요? 이미 엑셀 표로 정리되어있는 재고 파일이 있는데 새로 만든 제 vba 파일에 집어넣고 싶습니다. 일일이 한 단락씩 직접 집어넣는 것은 비효율적인 것 같은데 방법이 있을까요?
안녕하세요. 와우... 대단하시네요. 엑셀의 신이시네요. 저도 상품목록을 늘려서 테스트를 해봤는데, 안타깝게도 마우스 훨로는 불가능한 것 같네요. 다른 가능한 대안을 말씀드리자면, 제가 마진율 계산기 영상을 최근에 만들었는데, 그 영상에서 하단부분에 표시된 부분으로 가시면 정의폼에 찾기 기능을 추가 하실 수 있습니다. 1:04:48 찾기 기능 사용자 정의폼에 추가하기 추가적으로 나중에 재고관리 영상을 한번 더 업데이트를 할려구 생각하고 있습니다. 감사합니다.
안녕하세요 영상 너무 잘봤습니다 처음이지만 너무 만족스럽게 만들었습니다. 다만, 처음에는 ID에 1 2 3 순서대로 내려가면서 등록이됬엇는데 파일 저장까지 설정하고나서 다시 등록해보니 테이블 디자인 맨 아래쪽으로 입력이되면서 오라오는데 무슨 문제일까요?ㅠ 정렬하기 누르면 위로 올라오긴하는다 다시 등록할때 또 맨아래쪽으로 입력이되요
@@excel_chart 답변 감사드립니다. 추가로 궁금한 점은 처음에는 리스트의 가장 위쪽부터 정리가 되다가 제가 뭘 잘못했는지..데이터가 제일 밑에셀부터 정리가 되어버렸습니다.ㅜㅜ 아래 코드에 제가 잘못한 부분이 있는지 확인 부탁드려도 될까요? Sub 등록() If [날짜] = "" Then Exit Sub If [카테고리] = "" Then Exit Sub If [코드] = "" Then Exit Sub If [품명] = "" Then Exit Sub If [검사명] = "" Then Exit Sub If [검사자] = "" Then Exit Sub If [수량] = "" Then Exit Sub If [소요시간] = "" Then Exit Sub If [합불판정] = "" Then Exit Sub rownum = [LastCell].End(xlUp).Row + 1 Range("b" & rownum) = WorksheetFunction.Max([All_Row]) + 1 Range("c" & rownum) = [날짜] Range("d" & rownum) = [카테고리] Range("e" & rownum) = [코드] Range("f" & rownum) = [품명] Range("g" & rownum) = [검사명] Range("h" & rownum) = [검사자] Range("i" & rownum) = [수량] Range("j" & rownum) = [소요시간] Range("k" & rownum) = [합불판정] Range("l" & rownum) = [비고] ActiveWorkbook.RefreshAll Call 초기화 End Sub 감사합니다.
훌륭하신 질문이셔요. 이 부분은 생각을 못해 봤네요. 현재 생각으로는 상품목록창(유저폼)에 추가적으로 검색을 할 수 있는 부분을 만들고, 해당부분에 작동할수 있는 VBA코드를 만들고, 다른 부분과 연계를 시키는 작업이 필요할 것 같습니다. 작업이 조금 걸릴 것 같은 부분인 것 같네요. 감사합니다.
너무나 좋은 내용 감사합니다! 실습 중에 궁금한 점이 생겨서 질문 드려봅니다! 등록 시 ID의 번호가 1부터 순차적으로 부여가 되는데 혹시나 원하는 패턴으로 등록번호를 부여하는 것도 가능할까요? 예를 들면 G-1로 시작하여 G-2, G-3으로 부여하는 것이 가능한지 궁금합니다!!
안녕하세요. 삭제를 눌러도 반응을 하시지 않는다 말씀으로 추론해보면, 혹시 버튼이 매크로와 연결되었는지를 확인해 해 보셔요. 저는 아래와 같이 작업을 했습니다. Sub 삭제() If IsNumeric([ID]) Then rowNum = [All_Row].Find([ID]).Row Rows(rowNum).Delete Call 초기화 End If
안녕하세요. 정성스러운 댓글에 감사드립니다. 날카로운 지적입니다. 안타깝게도 현재의 코드로는 특정한 자료만 추출해서 저장은 힘듭니다. 왜냐면, 코드를 간단하게 만들기 위해서 시트복사를 이용해서 저장하는 코드를 짜서 그렇습니다. 새로운 코드가 필요한데, 현재 떠오른 생각으로는 전체를 다른 시트에 한번 더 복사하고 (원본자료 보호), 필요한 부분만 추출해서 저장하는 방법이 가능할 것 같습니다.
안녕하세요. 답변이 좀 늦었습니다. 정확히 어떻게 문제인지는 잘 모르겠습니다. 다만, RowNum = [All_Row].Find([ID]).Row 등록할때 문제가 있으면, 이름상자에 정의가 잘 되었는지 확인 해 보실 필요가 있을 것 같습니다. 제가 이 부분에 관련해서 새롭게 코드를 작성했습니다. 한번 적용해 보실래요. 'old VBA code: issue with table and last row finding. 'If [ID] = "신규등록" Then ' rowNum = [LastCell].End(xlUp).Row + 1 ' Range("B" & rowNum) = WorksheetFunction.Max([All_Row]) + 1 새로운 코드입니다. If [ID] = "신규등록" Then Range("B:B").Find(what:="*", searchdirection:=xlPrevious).Offset(1).Select rowNum = ActiveCell.Row Range("B" & rowNum) = WorksheetFunction.Max([All_Row]) + 1 Else rowNum = [All_Row].Find([ID]).Row End If
여기 거래처 나, 상품등록할때 사용자 정의폼 설정할때 시트에 등록된것 불러올때 ... 상단에 이름과 는 상관없이 브이록함수처럼 순서대로만 불러 오는 것 같군요.. 아마도 이름이 바꾼다고해도 인식을 못할듯하고.. 재고현황에 있는 목록과 연관되어 같은이름을 넣어 줘야 인식이 되는 것으로 보이군요.. 저는 그반대로 생각을 했는데.. 0,1,2가들어가는게 ..개래처시트에 있는 행에 있는 목록 이름과연관인줄 알았는데.. 0,1..이 참조 거래처 시트 말한듯한고.. 거래처 열에 0,1,2 번째 순서대로 해당된 값을 재고현황창의 칸의 이름이 있는 거래처명이나 담당자 칸에 집어 넣으라는 뜻으로 2번째 따라 하다보니 ..감이 오는듯합니다..ㅎㅎ 고로 참조 시트에 거래처 나 상품목록의 상단 제목은 엉터리여도,.. 재고관리창에 목록이름(이름창에정장된이름)과 참조시트의 값의 순서는 일치를 해야만 정확한 답이 불러진다는얘기네요..
날카로운 분석이시네요.. 넵. 값을 검증하는 기능은 포함되어 있지 않습니다. 보다 완벽한 해결책으로는 에러 핸드링 관점에 추가적인 코드작업 필요할 것 같습니다. 현재 영상의 관점에서 만들어진 툴의 기준으로는 자료입력 시에 신중하게 입력하셔야 할 것 같습니다. 현재 재고툴은 자동화 부분에 중점을 두고 제작되었습니다.
안녕하세요. 거의 다 완성하셨네요. 최고이셔요. 넵. 저의 코드와도 일치하네요. 그러면, 추측해 볼만한 부분은 아래의 인수정의하는 부분일 수도 있습니다. Dim Last_Row As Integer Dim Start_Col As Integer Dim Start_Row As Integer 아니며, with 또는 end end with 부분일 수 도 있구요. With Sheet1 Start_Col = 2 Start_Row = 19 End With 저는 관련부분을 아래와 같이 작성을 했습니다. Sub 재고관리_저장() Dim WB As Workbook Dim WS As Worksheet Dim Last_Row As Integer Dim Start_Col As Integer Dim Start_Row As Integer '기존의 VBA 파일도 열려있고, 새로운 엑셀파일도 연다. Set WB = Application.Workbooks.Add 'VBA 결과 값을 지정하기 Set WS = WB.Worksheets(1) With Sheet1 Start_Col = 2 Start_Row = 19 Last_Row = .Cells(.Rows.Count, Start_Col).End(xlUp).Row .Range(.Cells(Start_Row - 1, Start_Col), .Cells(Last_Row, Start_Col + 9)).Copy WS.Range("A1")
![ATEEZ(에이티즈) - [GOLDEN HOUR : Part.2] Preview](http://i.ytimg.com/vi/X4PfgRPBUVo/mqdefault.jpg)
잘봤습니다. 응용해서 연습해 보면 좋을 듯합니다. 혹시 자료를 주시면 조금 더 쉽게 응용을 할 수 있을 것 같은데 가능할지요?
안녕하세요, 최근에 이 영상 보고 따라했는대, 너무 잘 돌아가서 너무 기쁨니다, 근대, 달력이 여기 저기 셀을 선텍하면, 계속 따라다니는대, 날짜에만 고정 못 시키나요?
도움이 되셔서 저도 기쁘네요. 달력은 날짜 형태의 셀에서만 작동을 하는 걸로 알고 있어요. 셀을 2개 만드셔서 하나는 날짜 포멧, 다른 하나는 일반으로 포멧을 정하시고 달력 아이콘이 나오는 지 확인해 보셔요. 달력이 나오는 것이 귀찮으시면, 추가기능에서 선택해제하면 사라집니다. 감사합니다.
다른 VBA영상보다 확실히 쉽게 설명하시는 것 같아요. 좋은 영상 감사합니다.👍👍👍
저의 영상이 작은 도움이 되어서 저도 기쁘네요.
다른 vba 영상보다 길이도 짧고 핵심만 들어가 있어서 재밌게 배웠습니다. 근데 혹시 미리 작성되어 있는 엑셀 파일을 해당 vba 파일에 넣을 수는 없을까요? 이미 엑셀 표로 정리되어있는 재고 파일이 있는데 새로 만든 제 vba 파일에 집어넣고 싶습니다. 일일이 한 단락씩 직접 집어넣는 것은 비효율적인 것 같은데 방법이 있을까요?
가능할 것 같은데요. 파일 읽어오기 등을 통해서 작업을 하면 될 것 같은데요. 관련된 영상을 추가적으로 찾아보셔야 할 것 같아요. 이 영상은 빈 시트에서 하나의 툴을 제작하는 걸 기준으로 만들어졌어용..
이거 입력된 데이터를 엑세스에 넣고 불러오고 엑셀은 툴로만 사용가능할까요? 강의가 있으면 좋겠어요 ㅎ
안녕하세요.요즘 재고프로그램에 재미가 푹빠진 직장인입니다 다름이아니라 23:45구간에 땡땡이? 그건 무엇인가요? 아무리 찼아봐도 없어서....;;
재밋게 봐주셔서 감사합니다. 땡땡이는 날짜를 나타내는 셀 안에 아무런 값이 없을 때를 의미합니다.
그래서 "입력값이 있어야 하는데, 없어서 더 이상 진행하면 안되겠네... 나가야 되겠어요.." 이런 의미의 코드라고 보시면 되셔요. 감사합니다.
@@excel_chart 열심히 찼아서 성공! 잘~ 따라가 볼께요~ 감사합니다~
선생님 영상 정독하고 완성했습니다 궁금한 것이 있는데 유저폼 상품 리스트박스에서 목록이 300개가 넘어가면 단추로만 위아래로 움직일 수 있던데 마우스 휠로는 불가능한가요?
안녕하세요. 와우... 대단하시네요. 엑셀의 신이시네요.
저도 상품목록을 늘려서 테스트를 해봤는데, 안타깝게도 마우스 훨로는 불가능한 것 같네요.
다른 가능한 대안을 말씀드리자면, 제가 마진율 계산기 영상을 최근에 만들었는데, 그 영상에서 하단부분에 표시된 부분으로 가시면 정의폼에 찾기 기능을 추가 하실 수 있습니다.
1:04:48 찾기 기능 사용자 정의폼에 추가하기
추가적으로 나중에 재고관리 영상을 한번 더 업데이트를 할려구 생각하고 있습니다. 감사합니다.
파일로 받아서 공부할 수는 없을까요
초보라 따라하기 쉽지 않네요
안녕하세요 영상 너무 잘봤습니다 처음이지만 너무 만족스럽게 만들었습니다.
다만, 처음에는 ID에 1 2 3 순서대로 내려가면서 등록이됬엇는데 파일 저장까지 설정하고나서 다시 등록해보니 테이블 디자인 맨 아래쪽으로 입력이되면서 오라오는데
무슨 문제일까요?ㅠ 정렬하기 누르면 위로 올라오긴하는다 다시 등록할때 또 맨아래쪽으로 입력이되요
좋은 자료 잘 배우고 있습니다. 궁금한 점은 강의 자료 31분쯤 유저폼 생성할때 제가 만든 유저폼에는 한글이 90도 회전되어서 나오던데요. 이럴때 해결 방법이 궁금합니다.
말씀하신 부분을 한번 확인해 봤는데요. 저는 90도 회전이 되어서 나오지 않아서, 안타깝게도 해결방법을 잘 모르겠네요..
@@excel_chart 답변 감사드립니다. 추가로 궁금한 점은 처음에는 리스트의 가장 위쪽부터 정리가 되다가 제가 뭘 잘못했는지..데이터가 제일 밑에셀부터 정리가 되어버렸습니다.ㅜㅜ
아래 코드에 제가 잘못한 부분이 있는지 확인 부탁드려도 될까요?
Sub 등록()
If [날짜] = "" Then Exit Sub
If [카테고리] = "" Then Exit Sub
If [코드] = "" Then Exit Sub
If [품명] = "" Then Exit Sub
If [검사명] = "" Then Exit Sub
If [검사자] = "" Then Exit Sub
If [수량] = "" Then Exit Sub
If [소요시간] = "" Then Exit Sub
If [합불판정] = "" Then Exit Sub
rownum = [LastCell].End(xlUp).Row + 1
Range("b" & rownum) = WorksheetFunction.Max([All_Row]) + 1
Range("c" & rownum) = [날짜]
Range("d" & rownum) = [카테고리]
Range("e" & rownum) = [코드]
Range("f" & rownum) = [품명]
Range("g" & rownum) = [검사명]
Range("h" & rownum) = [검사자]
Range("i" & rownum) = [수량]
Range("j" & rownum) = [소요시간]
Range("k" & rownum) = [합불판정]
Range("l" & rownum) = [비고]
ActiveWorkbook.RefreshAll
Call 초기화
End Sub
감사합니다.
감사합니다. 주인장 그는 신인가?!
좋은 영상 잘보면서 공부 하고 있습니다
문의 드립니다
카테고리 입력 에서 출고 로 수정후
등록버튼을 누르면
1004 런타입 오류가 발생 하였습니다
지정한 이름의 항목이 없습니다
디버그 종류
Range("C" & rownum) = [날짜]
에 노란색 줄무뉘 뜨고면서 애러 발생 합니다
원인을 알수 있을까요?
영상이 도움이 되어서 다행입니다.
제 생각엔 [날짜] 부분이 엑셀시트에서 정의 되어야 하는데 그렇지 않아서 그런것 같아요. 감사합니다.
좋은 자료 감사합니다. 혹시 상품목록이 많은 경우 상품을 검색해서 등록 할 수 있는 방법도 있을거같은데요. 궁금합니다.
훌륭하신 질문이셔요. 이 부분은 생각을 못해 봤네요.
현재 생각으로는 상품목록창(유저폼)에 추가적으로 검색을 할 수 있는 부분을 만들고, 해당부분에 작동할수 있는 VBA코드를 만들고, 다른 부분과 연계를 시키는 작업이 필요할 것 같습니다. 작업이 조금 걸릴 것 같은 부분인 것 같네요. 감사합니다.
@@excel_chart 혹시 보완이 된다면 공유해주시면 감사하겠습니다.
영상 보면서 연습중입니다ㅜㅜ 17분 20초 이후로 넘어가지 않아요.. 직접실행에서 엔터를 치면 ‘1004’ 런타임 오류가 발생했습니다. 응용 프로그램 정의 오류 또는 개체 정의 오류입니다. 라고 나오는데… 문제가 뭘까요..?
여러가지 경우의 수가 있을 수 있겠는데요. 혹시, 직접실행에 ?를 넣으셨는지 확인해 보시면 좋을 것 같구요. 아니면, LastCell을 잘 정의 하셨는지도 점검해 보시면 될 것 같아요.
감사합니다ㅠㅠ
너무나 좋은 내용 감사합니다! 실습 중에 궁금한 점이 생겨서 질문 드려봅니다! 등록 시 ID의 번호가 1부터 순차적으로 부여가 되는데 혹시나 원하는 패턴으로 등록번호를 부여하는 것도 가능할까요? 예를 들면 G-1로 시작하여 G-2, G-3으로 부여하는 것이 가능한지 궁금합니다!!
먼저, 댓글 감사합니다. 가능할 것 같습니다. 현재는 +1을 넣어서 순차적을 증가하는데, 이 부분을 원하시는 형태로 바꾸어 보면 될 것 같네요. 감사합니다.
안녕하세요 몇번이고 정독하면서 영상 잘 봤습니다.
다름이 아니라 파일저장 할때 표에 필터값 적용된 부분만 저장하고 싶은데 이건 어려울까요?
와 정말 차근차근 잘 설명해주셔서 날 잡고 만들어 봐야겠어요! 감사합니다:)
도움이 되셨다니 다행입니다. 화이팅입니다.
안녕하세요. 좋은 내용 감사합니다. 그런데 사용하다보니 첫번째 시트에 입출고 내역이 계속 쌓이니 입력할때마다 화면이 아래로 내려가서 다시 올라오기가 불편하네요. 입출고 내역을 다른 시트에 저장하게 하려면 어떻게 해야할까요? ㅠㅠ
직접실행창이
없는데 어텋게 해야하죠?
Alt + F11을 누르시고, VBA에서 상단에 보기 탭에서 직접실행창을 선택하시면, 하단에 나타납니다. 감사합니다.
이런거어디서배우죠
문의 감사합니다. 일반적으로 엑셀 VBA 서적이나 강좌로 배우실 수도 있구요. 재고관리에 대한 엑셀 프로그램은 이 영상을 통해서 배우실 수 있습니다. 감사합니다.
@@excel_chart 이런대시보드를전문적으로배워보고싶네요
좋은 영상 잘 봤습니다. 현업에 많은 도움이 될것 같습니다. 새해 복 많이 받으세요
영상대로 따라해 보았는데, 수정 프로시져는 선택한 Cell의 Row의 값들을 잘 불러 옵니다. 다만, 자료를 업데이트 하여 다시 저장 하려고 하니, 다른 신규 ID가 채번이 되는데, 기존 자료(ID값 변경없이)를 업데이트 하려먼 어찌 해야 할까요?
먼저, 새해 복 많이 받으세요.
하시려는 업무에 도움이 되었으면 하는 바램입니다.
제가 생각하기엔 52:28부분 부터 보시면 되실 것 같아요.
제가 여러 날에 걸쳐서 작업을 하다가 보니, 수정모드 에러 핸들러 부분이 뒷쪽으로 밀린 것 같아요. 감사합니다.
@@excel_chart 확인 감사합니다.
감사합니다. 배워 보겠습니다.
구독 해야겠습니다.
감사합니다.
좋아요 happy new year🎉🎉🎉
새해복 많이 받으세요
안녕하세요 혹시 아이맥도 이대로 따라하면 가능할까요?
안녕하세요. 맥북에서는 사용자 정의폼이 작동이 안된다고 하네요. 그래서 작동이 완벽히 되지는 않을 수 있겠네요...
정말좋은강의감사합니다
정말 알찬 내용이네요. 감사합니다.
먼저, 좋은 말씀 감사드립니다. 이 영상이 현업에서 하시고자 하시는 일에 조금이나마 도움이 되었으면 하는 바램입니다.
27분 34초 부터 브레이크 포인트 부터 안됩니다. sub 또는 펑션이 정립되지 않았다고 합니다. 방법좀 부탁 드립니다.
여러가지 이유가 있을 수 있을 것 같은데요.
제가 추측하기엔 Sub 초기화() 부분에서 오류가 나지 않았을까 추측을 해 봅니다. 감사합니다.
안녕하세요 혹시 삭제후 번호도 다시 재배열 되게할순없나요??
예를들어 1-5번까지있으면 2번을지우면 자동으로 1234이렇게 재배열되게끔 하는 방법 부탁드려요
안녕하세요
삭제 기능 똑같이 쳐서 했는데도 도저히 어디서 막힌지 모르겠습니다. 삭제 눌러도 반응을 안해요 ㅠㅠ 어디서 문제일까요 대문자로 잘 바뀌었고 플레이 해도 에러는 안뜨는데 도저히 모르겠어요
안녕하세요.
삭제를 눌러도 반응을 하시지 않는다 말씀으로 추론해보면,
혹시 버튼이 매크로와 연결되었는지를 확인해 해 보셔요.
저는 아래와 같이 작업을 했습니다.
Sub 삭제()
If IsNumeric([ID]) Then
rowNum = [All_Row].Find([ID]).Row
Rows(rowNum).Delete
Call 초기화
End If
@@excel_chart 음 도저히 못찾겠어서 다시 새로 처음부터 차근차근 했네요 ㅎㅎ 감사합니다. 잘해결되었습니다. 어디서부터꼬인지ㅎㅎ 정말 좋은 유튜브입니다!!
제품을 새로추가할때 마다 총가격이 수식이 풀리는데
방법이 없을까요?
저는 그런 경우가 없어서 정확히는 잘 모르겠네요.
혹시, 텍스트 상자에 =피벗!$L$4 등과 같이 시트이름을 끌어오게 만드셨나요?
안녕하세요. 재고관리 저장 관련 문의 드립니다.
필요한 요소만 추출하여 저장하고 싶은데 제품명 등 필터링하여 저장하기 누르면 여태 쌓아뒀던 모든 자료가 한꺼번에 저장되는데 혹시 어떤 요소를 비쥬얼 베이직에 추가하거나 변경해야 할까요?
안녕하세요. 정성스러운 댓글에 감사드립니다.
날카로운 지적입니다.
안타깝게도 현재의 코드로는 특정한 자료만 추출해서 저장은 힘듭니다. 왜냐면, 코드를 간단하게 만들기 위해서 시트복사를 이용해서 저장하는 코드를 짜서 그렇습니다. 새로운 코드가 필요한데, 현재 떠오른 생각으로는 전체를 다른 시트에 한번 더 복사하고 (원본자료 보호), 필요한 부분만 추출해서 저장하는 방법이 가능할 것 같습니다.
답변 감사합니다~^^
직접실행 창에 ?[LastCell].End(x1up).address 넣었는데 '1004' 런타임 오류라고 나오고 진행이 안됩니다.
방법을 알려 주실수 없을까요?
안녕하세요.
xlUp 부분에서 문제가 있었던 같네요.
아래를 참고해 주셔요. 감사합니다.
rowNum = [LastCell].End(xlUp).Row + 1
Range("B" & rowNum) = WorksheetFunction.Max([All_Row]) + 1
@@excel_chart 감사합니다! 한줄 빛이 내려온 느낌...! 감사, 감사합니다!
안녕하세요 영상 잘봤습니다. 궁금한게 있습니다.
수정모드 부분에서 하단 재고현황 부분을 더블클릭하면 신규입력창에 값이 복사는 되는데 값을 변경하고 등록을 누루면 신규ID가 생성되고 데이터가 늘어나지, 기존값이 변경되지는 않습니다. 혹시 어떻게 해결해야 되나요?
여러가지 이유가 있을 수 있는데, sub 등록 이나 수정 쪽에서 문제가 생긴 것 같은데, 자세히 말씀드리기 힘든 부분이 있네요...
코딩내역 그대로 따라한건데
영상 수정부분에는 입력하고 저장눌렀을때 신규추가가 아니라 기존내용이 바뀌는 부분이 없어서 저도 열심히 찾아보다가 못찾겠어서 댓글을 남기게 되었습니다 .ㅜㅜ@@excel_chart
저도 이부분이 안됩니다ㅠㅠ혹시 해결방법찾으셨나요?
초기화 신규등록이 안되고 424 런타임오류가 발생합니다ㅠ
오타가 난 부분은 없는데 어찌해야 될까요?
Else
RowNum = [All_Row].Find([ID]).Row 등록할때 ... 91런타임오류가 생기는데 뭐가 문제일까요..
개체변수 또는 with 문의 변수가 설정이 안되었다는데..
잘되다가 .. 피벗테이블 하고나서 안되는듯한데.. 하면서 무얼 지워버렸나 싶네요..아니면 충돌이생긴건가..ㅎ
안녕하세요. 답변이 좀 늦었습니다.
정확히 어떻게 문제인지는 잘 모르겠습니다. 다만,
RowNum = [All_Row].Find([ID]).Row 등록할때 문제가 있으면, 이름상자에 정의가 잘 되었는지 확인 해 보실 필요가 있을 것 같습니다.
제가 이 부분에 관련해서 새롭게 코드를 작성했습니다. 한번 적용해 보실래요.
'old VBA code: issue with table and last row finding.
'If [ID] = "신규등록" Then
' rowNum = [LastCell].End(xlUp).Row + 1
' Range("B" & rowNum) = WorksheetFunction.Max([All_Row]) + 1
새로운 코드입니다.
If [ID] = "신규등록" Then
Range("B:B").Find(what:="*", searchdirection:=xlPrevious).Offset(1).Select
rowNum = ActiveCell.Row
Range("B" & rowNum) = WorksheetFunction.Max([All_Row]) + 1
Else
rowNum = [All_Row].Find([ID]).Row
End If
상품목록창이 실행할 때마다 계속 작아지는 것은 어떤 옵션을 잘못 선택한 것일까요?
질문 감사합니다! 솔직히 처음 접하는 현상이라서 정확히는 잘 모르겠네요.
데이트픽커도 연결하는데 매크로 설정 할수없다고 빨강색 알림뜨고 실행이안되요ㅜ
혹시, 매크로 보안설정에 문제가 아닐까 의심을 해 봅니다.
잘 봤습니다 꼭 메트로에서 지정할때 삽입 수정이 안돼네요 그래서 글 쓸 때마다 지워져서 많이 불편해요
여기 거래처 나, 상품등록할때 사용자 정의폼 설정할때 시트에 등록된것 불러올때 ... 상단에 이름과 는 상관없이 브이록함수처럼 순서대로만 불러 오는 것 같군요.. 아마도 이름이 바꾼다고해도 인식을 못할듯하고.. 재고현황에 있는 목록과 연관되어 같은이름을 넣어 줘야 인식이 되는 것으로 보이군요.. 저는 그반대로 생각을 했는데.. 0,1,2가들어가는게 ..개래처시트에 있는 행에 있는 목록 이름과연관인줄 알았는데.. 0,1..이 참조 거래처 시트 말한듯한고.. 거래처 열에 0,1,2 번째 순서대로 해당된 값을 재고현황창의 칸의 이름이 있는 거래처명이나 담당자 칸에 집어 넣으라는 뜻으로 2번째 따라 하다보니 ..감이 오는듯합니다..ㅎㅎ 고로 참조 시트에 거래처 나 상품목록의 상단 제목은 엉터리여도,.. 재고관리창에 목록이름(이름창에정장된이름)과 참조시트의 값의 순서는 일치를 해야만 정확한 답이 불러진다는얘기네요..
날카로운 분석이시네요.. 넵. 값을 검증하는 기능은 포함되어 있지 않습니다.
보다 완벽한 해결책으로는 에러 핸드링 관점에 추가적인 코드작업 필요할 것 같습니다.
현재 영상의 관점에서 만들어진 툴의 기준으로는 자료입력 시에 신중하게 입력하셔야 할 것 같습니다. 현재 재고툴은 자동화 부분에 중점을 두고 제작되었습니다.
컴퓨터는 ab거래처만 뜨게, 마우스는 cd 거래처만 뜨게 설정은 없나요?
혹시 따로 연락 가능할까요? 궁금한 점이 있어서요.
혹시 엑셀 삽입 일러스트레이션에서 아이콘이 없으면 어떻하나요
제가 올린 영상 중에 무료 아이콘 모음집 영상이 있습니다. 거기서 다운로드 받으세요. 감사합니다.
유용한 정보네요...
도움이 되셨다니 다행입니다.
파일을 하나 부탁드려도 될까요
쉽지않아서요
가져 갈수조 없고 컴퓨터 실력이 없어서요
죄송합니다.
구글시트도 만들어주세여 ㅠ
함수 기입하실때 크게 확대부탁드려요
초짜라 따라하기도 버거운데 에러창뜨면 당황스럽습니다😂
감사합니다.
잘 배웠습니다
초기화 부분에서 안되는데...
똑같이 했는데 안되네요?
어떻게 해야 하나요?
Last_Row = .Cells(.Rows.Count, Start_Col).End(xlUp).Row 이문구에서 '6'런타임오류납니다. 화면정지해서 비교해봐도 틀린게 없는데...
안녕하세요. 거의 다 완성하셨네요. 최고이셔요.
넵. 저의 코드와도 일치하네요.
그러면, 추측해 볼만한 부분은 아래의 인수정의하는 부분일 수도 있습니다.
Dim Last_Row As Integer
Dim Start_Col As Integer
Dim Start_Row As Integer
아니며, with 또는 end end with 부분일 수 도 있구요.
With Sheet1
Start_Col = 2
Start_Row = 19
End With
저는 관련부분을 아래와 같이 작성을 했습니다.
Sub 재고관리_저장()
Dim WB As Workbook
Dim WS As Worksheet
Dim Last_Row As Integer
Dim Start_Col As Integer
Dim Start_Row As Integer
'기존의 VBA 파일도 열려있고, 새로운 엑셀파일도 연다.
Set WB = Application.Workbooks.Add
'VBA 결과 값을 지정하기
Set WS = WB.Worksheets(1)
With Sheet1
Start_Col = 2
Start_Row = 19
Last_Row = .Cells(.Rows.Count, Start_Col).End(xlUp).Row
.Range(.Cells(Start_Row - 1, Start_Col), .Cells(Last_Row, Start_Col + 9)).Copy WS.Range("A1")
End With
@@excel_chart 감사합니다
@@excel_chart 똑같은 오류네요ㅠ
어떻걱 해결하셨을까요??
@@김서진-e6q 먼저 댓글 감사합니다.
그렇군요.. 안타깝게도 정확히 이유가 뭔지는 잘 모르겠네요... 저는 위와 같이 작성한 코드를 이용해서 작성을 했습니다.
혹시, 위의 코드를 복/붙으로 한번 사용해 보시겠어요? 코드 중간에 빈칸이 문제일 수도 있을 것 같습니다.
파일을 저장할때 날짜 부분이 ####으로 뜨는 현상은 왜 발생하는것인가요
직접실행부터 막혔는데용 어디에있는지 보이지도않네요 ㅠㅠ
브레이크 포인트 부터 안돼요 방법좀 부탁 드립니다. ㅜㅜ
'424' 런타임 오류가 발생하였습니다.
개체가 필요합니다.
이렇게 나와요.ㅠㅠ
하는 도중에 못따라 가는 부분 어떻게 하죠 ㅠㅠ
생각보다 어렵습니다 ㅋㅋㅋ