다른 매크로의 for문 값 받기

VBA
작성자
kimki****
작성일
2021-10-13 09:18
조회
44
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

두 매크로를 call로 연결하였습니다. myfile변수를 주고 받은 것처럼 for 문의 i 값을 받아서 넘기고 싶은데 어떻게 하면 될까요?

 

Sub 시작1()

LR1 = Sheets("파일명").Cells(Rows.Count, 1).End(xlUp).Row

'시트에 있는 이름으로 파일 열기
For i = 2 To LR1

MYFILE1 = Sheets("파일명").Cells(i, 1).Value
MYFILE2 = Sheets("파일명").Cells(i, 2).Value
FPATH1 = ThisWorkbook.Path + "\" + MYFILE1
FPATH2 = ThisWorkbook.Path + "\" + MYFILE2

'파일열기
Workbooks.Open Filename:=FPATH1
'
Workbooks.Open Filename:=FPATH2

'''시작
'
Call 시작2(MYFILE1, MYFILE2)

 

next i

end sub


Sub 시작2(MYFILE1 As String, MYFILE2 As String, i As Integer)

''전처리과정생략 -옮기지 않을게요-

 

'헤더 앞에 문자추가

val1 = Workbooks("1여기부터").Sheets("파일명").Cells(i, E).Value

For y = 4 To 34
val2 = Windows(MYFILE1).Cells(1, y).Value

Windows(MYFILE1).Cells(1, y).Value = val1 & val2

Next y

end sub

전체 3

전체 4,216
번호 카테고리 제목 작성자 작성일 추천 조회
4200 VBA
New VBA의 Find활용 특정날짜 복붙 첨부파일
H.B | 19:37 | 추천 1 | 조회 6
H.B 19:37 1 6
4199 함수/공식
New 부품과 완제품 수량 연동 질문입니다. 첨부파일 (1)
receive | 17:54 | 추천 1 | 조회 16
receive 17:54 1 16
4198 VBA
New 시트별 셀수정 관련 질문드립니다 첨부파일 (2)
ehrud**** | 15:38 | 추천 0 | 조회 25
ehrud**** 15:38 0 25
4197 기능/도구
New 엑셀 추가기능 XFILTER를 사용한 파일이 XFILTER 가 설치되어있는 다른PC에서 열때 오류가 납니다.
No14 | 14:35 | 추천 2 | 조회 16
No14 14:35 2 16
4196 기능/도구
New 엑셀데이터유효성검사 질문입니다 꼭 도와주세용 첨부파일 (3)
하곰 | 14:20 | 추천 0 | 조회 27
하곰 14:20 0 27
4195 함수/공식
New 동적엑셀 서식 (2)
| 13:20 | 추천 0 | 조회 25
13:20 0 25
4194 함수/공식
New 합계 및 합수값 해결방법 첨부파일 (2)
kk**** | 12:52 | 추천 0 | 조회 24
kk**** 12:52 0 24
4193 VBA
New 특정날짜 데이터만 COPY 붙이기 첨부파일 (3)
H.B | 12:37 | 추천 0 | 조회 23
H.B 12:37 0 23
4192 함수/공식
New 강의실내용 교재로 받을수 있나요?
호반안개 | 11:11 | 추천 0 | 조회 29
호반안개 11:11 0 29
4191 함수/공식
New 월별 매출을 위해 서식을 짜고있습니다 첨부파일 (2)
크래용 | 10:23 | 추천 0 | 조회 37
크래용 10:23 0 37
4190 VBA
New ParseJSON 함수 자리차지 첨부파일 (3) 답변완료
하늘의 꿈 | 02:41 | 추천 0 | 조회 35
하늘의 꿈 02:41 0 35
4189 VBA
New vba listbox 에 head 추가하는 방법 (1)
서민철 | 2021.10.17 | 추천 0 | 조회 31
서민철 2021.10.17 0 31
4188 함수/공식
New 다품목 안전 재고 관리시 사용할 수 있는 함수 문의
엑셀왕왕초보 | 2021.10.17 | 추천 0 | 조회 27
엑셀왕왕초보 2021.10.17 0 27
4187 함수/공식
New importrange로 불러온 그림이 인쇄가 안됩니다..ㅠㅠ (2) 답변완료
민 쌤 | 2021.10.17 | 추천 0 | 조회 25
민 쌤 2021.10.17 0 25
4186 함수/공식
New 꼭 도와 주세요. 첨부파일 (3)
그린의달인 | 2021.10.16 | 추천 1 | 조회 62
그린의달인 2021.10.16 1 62
4185 함수/공식
New 공백 유지하는 중복 제거 문의 첨부파일 (4) 답변완료
clairebear8 | 2021.10.16 | 추천 0 | 조회 48
clairebear8 2021.10.16 0 48
4184 함수/공식
New 엑셀 공식 도와주세요~ 첨부파일 (1)
ma**** | 2021.10.16 | 추천 0 | 조회 55
ma**** 2021.10.16 0 55
4183
New 제가 만든 엑셀VBA가 오류들이 있어 도움을 청합니다. 첨부파일 (1)
유림아빠 | 2021.10.16 | 추천 0 | 조회 36
유림아빠 2021.10.16 0 36
4182 차트/그래프
New 이런 챠트도 가능한지요 (1)
| 2021.10.16 | 추천 0 | 조회 59
2021.10.16 0 59
4181 함수/공식
New 중복값 제거 및 특정조건을 만족하는 값만 표시 첨부파일 (4)
리부트짱가 | 2021.10.16 | 추천 0 | 조회 51
리부트짱가 2021.10.16 0 51
4180 VBA
New pdf파일저장 + 드롭다운 매크로 VBA 문의드립니다. 첨부파일 (1)
호두마루 | 2021.10.16 | 추천 1 | 조회 31
호두마루 2021.10.16 1 31
4179 기능/도구
다중조건을 다수의 셀에 입력하는 방법 (1)
seeking | 2021.10.15 | 추천 0 | 조회 40
seeking 2021.10.15 0 40
4178 함수/공식
같은 값끼리 같은 색을 적용하고 싶습니다 첨부파일 (6) 답변완료
유령회원 | 2021.10.15 | 추천 0 | 조회 40
유령회원 2021.10.15 0 40
4177 VBA
VBA로 날짜 입력하는데 형식이 날짜형실으로 바꿀수있을까요? (1)
박종만 | 2021.10.15 | 추천 0 | 조회 36
박종만 2021.10.15 0 36
4176 VBA
VBA에서 엑셀파일 여는 버튼을 만들었습니다. 첨부파일 (2) 답변완료
늘푸른2 | 2021.10.15 | 추천 0 | 조회 40
늘푸른2 2021.10.15 0 40
4175 VBA
살려주세욤.. 다중조건+중복제거 데이터유효성검사.. 첨부파일
지져스 | 2021.10.15 | 추천 0 | 조회 47
지져스 2021.10.15 0 47
4174 차트/그래프
차트 시간축 간격을 조정하는 방법 첨부파일 (1)
kimki**** | 2021.10.15 | 추천 0 | 조회 24
kimki**** 2021.10.15 0 24
4173 VBA
웹 크롤링 관련 문의 (2) 답변완료
숯검뎅이 | 2021.10.15 | 추천 0 | 조회 38
숯검뎅이 2021.10.15 0 38
4172 VBA
유저폼 리스트박스 검색 첨부파일 (2) 답변완료
007 | 2021.10.14 | 추천 0 | 조회 47
007 2021.10.14 0 47
4171 VBA
셀선택 관련 문의 드려요. (3) 답변완료
033cola | 2021.10.14 | 추천 0 | 조회 37
033cola 2021.10.14 0 37