|
* 아래줄에 질문을 작성하세요 >>
첫번째 고민 거리 입니다.ㅠㅠ;;
첨부 파일에서 userform2에서 입력을 해주면..
그 userform2 에서 입력 한 곳에다가..
┗━━━┛ 형식으로 되어야 하는데여..
한개를 추가 했을 경우는 간단한데.. 여러 개를 추가 했을 경우에는 위에 있는┗━━━┛
을 없애고.. 다시 입력된 곳에다가 ┗━━━┛ 이 추가 되게 하는 것을 질문 합니다..
2번째 고민거리는여..
userform3 에서 검색 조건입력 에서 어떤것 한가지만 입력을 해서 조회를 하면여..
그에 해당 하는 사람을 찾아서여..
sheet2 에 입력이 되게 할려구 합니다..
가르쳐 주세요..
그럼.. 언제나 즐거운 하루 되세요^^:
==============[MsgBox님 글에 대한 답변입니다]==============
첫번째 질문에 대한 요지 파악이...
두번째 질문에 대한 문제는 이렇게 풀어봤습니다...
Private Sub CommandButton1_Click()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim da1 As Long
Dim qa1 As Range
Set sh1 = Worksheets("sheet1")
Set sh2 = Worksheets("sheet2")
da1 = sh1.Range("a6").End(xlDown).row
Set qa1 = sh1.Range("a6:a" & da1).Find(what:=TextBox1)
If qa1 Is Nothing Then
MsgBox "찾으시는 자료가 없습니다."
Exit Sub
Else
sh2.Select
Range("a3:e3").Select
Selection.Insert shift:=xlDown
With qa1
sh2.Range("a3") = .Offset(0, 0)
sh2.Range("b3") = .Offset(0, 1)
sh2.Range("c3") = .Offset(0, 2)
sh2.Range("d3") = .Offset(0, 3)
sh2.Range("e3") = .Offset(0, 4)
End With
End If
End Sub
find를 이용했습니다....
님이 더 많은 지식을 가지고 있으시겠지만...
틀리더라도...
항상 행복한 웃음이 함께하시길.... |
|