|
윈도우 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 |
|