|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 최신버전
* 아래줄에 질문을 작성하세요 >>
시트2에 있는 콤보박스에서 제목을 선택하면
시트3에서 해당제목에 있는 내용을 시트2에 복사가 되었으면 좋겠습니다.
(시트2에 복사되는 부분: B3부터 아래로)
아래 코드를 사용하려고 했는데 T 값에 뭐라고 입력해야할지를 모르겠네요 ㅠㅠ
이것저것 동영상 보면서 참고해서 만든 코드라 잘 못됐을 수도 있습니다.
사용가능한 코드가 있다면 알려주세요..
감사합니다.
(*각 시트명 참고 - 시트2: 정보입력, 시트3: 필요정보)
Private Sub ComboBox1_Change()
Dim T As Variant
Dim rng As Range
If Sheets("정보입력").ComboBox1.Value <> "선택하세요" And Sheets("정보입력").ComboBox1.Value <> "" Then
T = ????????????????
Set rng = Sheets("정보입력").Range("b3:b45")
With T
.SetSourceData Sheets("필요정보").Range(Sheets("정보입력").ComboBox1.Value)
End With
End If
End Sub
==============[깡초님 글에 대한 답변입니다]==============
Private Sub ComboBox1_Change()
Dim var As Variant
var = Application.Match(ComboBox1.Text, Worksheets("필요정보").Rows(1), 0)
Dim column As Integer
Dim endrow As Integer
If Not IsError(var) Then
column = var
Else
'MsgBox "Not Found !!!", vbInformation
Exit Sub
End If
endrow = Worksheets("필요정보").Cells(Rows.count, 1).End(xlUp).Row
Worksheets("필요정보").Range(Worksheets("필요정보").Cells(2, column), Worksheets("필요정보").Cells(endrow, column)).Copy
Worksheets("정보입력").Range("B3").PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
End Sub
참고하세요 |
|