|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
일단 워크시트 여러개가 있습니다.
메인 시트에서 버트는을 누르면 유저폼을 띄우고 거기서 데이터를 입력하고 "저장"이라는 커맨드 버튼을 누르면 DB라는 명칭의 Worksheets에 사용자가 입력한 내용들이 차곡 차곡 쌓이는 겁니다.
그런데 "저장" 유저폼을 누르면 유저폼 뒤의 화면에 DB워크시트로 이동해서 DB내용이 뒤에 보입니다.
결론은 사용자가 유저폼을 사용하는 동안 유저폼 뒤에 화면이 하나의 워크시트에 고정되어 있기를 원합니다.
잘 설명이 되었는지 모르겠지만... 해결방법이 무엇일까요?
--------------------------------------------------------------------
Dim intRow As Long
Dim 표 As Range
Dim 오더번호1 As Range
Dim sht_DBPP As Worksheet
Set sht_DBPP = Worksheets("DB_PP")
Set 표 = sht_DBPP.Range("A1", Cells(Rows.Count, "A").End(xlUp))
Set 오더번호1 = 표.Find(what:=OrderNo2, lookat:=xlWhole)
' 생산계획 시트에서 선택된 리스트아이템의 오더넘버를 찾아서 행 넘버를 구한다.
intRow = 오더번호1.Row
투입시간2 = TB_투입시간2.Value
투입수량2 = TB_투입수량2.Value
불량수량2 = TB_불량수량2.Value
불량코드2 = TB_불량코드2.Value
비고2 = TB_비고2.Value
생산수량2 = 투입수량2 - 불량수량2
'생산계획 시트에 추가정보를 기입
With sht_DBPP
.Cells(intRow, 5).Value = 투입시간2
.Cells(intRow, 13).Value = 투입수량2
.Cells(intRow, 14).Value = 불량수량2
.Cells(intRow, 15).Value = 불량코드2
.Cells(intRow, 16).Value = 생산수량2
.Cells(intRow, 17).Value = 비고2
MsgBox "저장이 완료되었습니다."
End With
End Sub
=============================================
조삿갓님이 말씀하신대로 코드 수정중 아래에서 문제가 발생했습니다.
Set 표 = sht_DBPP.Range("A1", Cells(Rows.Count, "A").End(xlUp))
이부분에서 오류가 발생합니다. 뭐가 잘못된걸까요?
|
|