|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
안녕하세요?
회사에서 사번을 기준으로 Data를 관리하고자 합니다.
먼저 입력창을 통해 내용을 입력하는 방식을 적용하려고 하고요,
해당 사번으로 아무런 내용도 입력되지 않은 경우와 기존 입력된 내용에 추가하는 두 가지로 만들어 보고 있습니다.
아래와 같이 작성했는데요....
최초 입력은 잘 작동하는데, 내용을 추가하는 경우는 작동을 하지 않고 있습니다.
해당 사번으로 입력된 마지막 셀값을 구하지 못하는 것 같습니다.
고수분들의 지도편달 부탁 드립니다.
감사합니다.
****************************
Sub msave()
Dim sabun As String
Dim rngCell As Range
Dim intNum As Integer
Dim intStart As Integer
sabun = mBox7.Text
hrsabun = mBox1.Text
Set rngCell = Worksheets("Sheet1").Columns("A:A").Find(what:=sabun, lookat:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False)
'같은 사번에 입력된 내용이 있으면 그 다음에 내용을 추가
If Not rngCell Is Nothing Then
rngCell.Offset(0, Range("rngCell").Columns.Count + 1) = mBox1.Text
rngCell.Offset(0, Range("rngCell").Columns.Count + 2) = mBox2.Text
Else
'해당 사번으로 최초 입력되는 경우
intStart = Application.CountA(Worksheets("Sheet1").Columns(1)) + 1
Cells(intStart, 1) = TextBox1.Text
Cells(intStart, 2) = TextBox2.Text
Cells(intStart, 3) = mBox1.Text
Cells(intStart, 4) = mBox2.Text
End If
End If
End Sub
|
|