|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002): 2002
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP): WinXP
3. CPU (486,PentiumI/II/III/IV...): PIV
4. RAM (32,64,128,256,512MB,1G...): 1G
* 아래줄에 질문을 작성하세요 >>
게시판을 아무리 뒤져도 제가 알고 싶은 걸 찾기 어려워 올립니다.
제가 하려는건 이런겁니다.
목록관리.Xls가 있음(sheet 2개=입력, 목록)
- 입력에서 드랍다운박스, 일반 항목을 입력하고 단추(등록버튼)을 클릭하면
목록 sheet에 1 records 씩 insert해주는 로직을 구현하려 합니다.
==============[터프가이님 글에 대한 답변입니다]==============
안녕하세요? 터프가이 님!
설마요? 이곳 게시판에 올라와 있는 게시물이 십만여 건이 넘는데, 정말 다 찾아보셨나요?
질문하신 것은 아래와 같이 한 줄짜리 코드면 해결이 됩니다
Sub 등록()
Worksheets("목록").Range("A65536").End(xlUp).Offset(1, 0).Resize(columnsize:=6).Value = Application.WorksheetFunction.Transpose(Range("C3:C8"))
End Sub
첨부한 파일을 참고하세요
그럼...행운이 있으시길...! |
|