|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):
* 아래줄에 질문을 작성하세요 >>
Public Sub CommandButton10_Click()
Dim emptyRow As Long
Worksheets("ABC").Activate
emptyRow = WorksheetFunction.CountA(Range("A:A")) + 1
ActiveSheet.Cells(emptyRow, 1).Value = TextBox2.Value
ActiveSheet.Cells(emptyRow, 2).Value = TextBox3.Value
ActiveSheet.Cells(emptyRow, 3).Value = TypeName.Value
ActiveSheet.Cells(emptyRow, 4).Value = ComboBox5.Value
ActiveSheet.Cells(emptyRow, 5).Value = TextBox43.Text
Unload Me
End Sub
TextBox2번을 특정시트 A열값들중이랑 비교했을때 그 셀로 이동하는부분에서 막히는데요
저위에 그대로하면 그냥 맨아래에값에만 들어가는데
A열값 = 텍스트박스2번밸류같으면 해당셀에 위에값들이 들어가는 문을
저의 머리로를 너무 한계라서...도움을 요청합니다. |
|