로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
안녕하세요.
Excel Vba로 업무를 편하게 하고자 하나 만들어볼려고하는데..
초짜라서..힘이 드네요.
다른게 아니라.. 첨부하는그림처럼 excel파일1 에서 고정된 영역에 값을 입력하고,
이벤트가 발생되면, 입력된 값들만! 다른폴더에 저장된 excel파일2의 입력된 레코드 가장 아래에
값이 저장되게끔 하는건데..
도움 부탁드릴께요. 수고하세요.
2010.03.01 22:34:42 *.130.73.75
안녕하세요?
그냥 다른 파일 맨 마지막 영역에 복사해 넣으면 되는 건가요? ㅎㅎ
아래 코드 참고하시고.. 첨부파일에서 fileA.xls의 버튼을 실행해보세요.
2개의 파일이 다 열려있어야합니다. 대상 파일이 열려있지 않을때의 에러처리 등등은 생략했습니다.
StackToOtherFile.zip
Option Explicit
Sub saveToFileB() Dim wbSource As Workbook Dim targetFile As String
Set wbSource = ActiveWorkbook targetFile = "fileB.xls"
Range("A2").Select Range(Selection, Selection.End(xlDown)).Select Range(Selection, Selection.End(xlToRight)).Select Selection.Copy Windows(targetFile).Activate Range("A65536").End(xlUp).Offset(1, 0).Select Selection.PasteSpecial Paste:=xlPasteValues Application.CutCopyMode = False wbSource.Activate Range("A2").Select End Sub
새 창으로
선택한 기호
차트안의 데이타 자동 변경방법 알려주세요^^ [3]
이미지 투표방법 문의드립니다. _ 엑셀로 설문조사해서 쉽게 취합하기 [1]
체크박스 클릭 시 자동 자료 입력관련 문의입니다. [1]
문의드립니다~ _DB에서 원하는 목록만 불러오기(고급필터) [1]
SUMIF에 범위를 주고 싶습니다. [1]
열숨기기 한 값은 무시하고 합계를 알 수 있는 함수는 어디 없나요? [7]
석차구하기 [1]
엑셀에서 위아래셀 비교후 숫자큰 것에 자동으로 노란색으로 칠하려면 어떻게 해야되는지 궁금합니다 [3]
엑셀수식문의 [1]
동일한 셀 내용을 찾아서 개수를 세주는 방법이... [3]
계좌번호를 편집하는데요. [1]
자동으로 잡히는 인쇄영역 [1]
엑셀 왕초보입니다.. [3]
수식이 잘못되어 틀린값이 나옵니다. 도와주십시오. [1]
excel vba 질문 드려요. [1]
비교연산자 질문요... [3]
피벗테이블 월별 합계 금액 구하는 법 [1]
셀병합 관련 질문 [1]
시트 이동/복사 시 나오는 에러에 대해 질문드립니다 [1]
재고관리에 대해 아별님께 도움을 구합니다, [1]
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨:30/30"){kind=icon}
아별
안녕하세요?
그냥 다른 파일 맨 마지막 영역에 복사해 넣으면 되는 건가요? ㅎㅎ
아래 코드 참고하시고.. 첨부파일에서 fileA.xls의 버튼을 실행해보세요.
2개의 파일이 다 열려있어야합니다. 대상 파일이 열려있지 않을때의 에러처리 등등은 생략했습니다.
StackToOtherFile.zip
Option Explicit
Sub saveToFileB()
Dim wbSource As Workbook
Dim targetFile As String
Set wbSource = ActiveWorkbook
targetFile = "fileB.xls"
Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Windows(targetFile).Activate
Range("A65536").End(xlUp).Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues
Application.CutCopyMode = False
wbSource.Activate
Range("A2").Select
End Sub