미해결 엑셀2016윈도우10
시트에 있는 값 불러오기
안녕하세요 질문드립니다.
거래처가 A상사~Z상사까지 여러개의 거래처가 있습니다.
공급가액, 부가세, 합계, 면세 값을
해당하는 시트에서 불러오고 싶은데 불러오는 방법 있을까요?
A 상사 공급가액, 부가세, 합계는 A상사(과세) 시트에서 값을 불러와야하고
A 상사 면세는 A상사(면세) 시트에서 값을 불러와야합니다.
노란색으로 표시해놓은 금액을 불러와야 합니다.
지금은 시트가 몇개 없지만 Z상사까지 시트가 있을경우 수기로 입력하기엔 양이 방대해서 여쭤봅니다.
t
P
홍
댓글 10
[202201] 시트에서는 각 상사마다의 시트이름을 고려한 참조주소를 편집한 후, INDIRECT 함수로 공급가액, 부가세액, 합계액, 면세액을 구합니다. C~Z 상사의 과세/면세 시트가 만들어지면 #ref 에러가 사라집니다. 댓글채택과 함께... 첨부파일 참고하여 업무에 적용해 보세요.
[202201] 시트에있는 거래처명이 강원종합상사일때
시트명을 강원상사(과세), 강원상사(면세) 이런식으로 거래처명을 줄이게 되면 오류값이 출력되는건가요?
첨부해주신 매크로를 다른 엑셀파일에도 적용하려면 명령어를 복사해서 붙여넣기 해야되나요?
다른 엑셀파일에도 첨부된 매크로로 똑같이 적용해서 사용하고 싶은데 방법을 잘 몰라서 알려주실 수 있나요?
사업자상호가 ooo 이라면 아래 사업자상호탭이 ooo(과세) ooo(면세) 쌍으로 안되어 있어도 되게 수정했습니다.
Sub finds()
sc = Sheets.Count
LB = Cells(Rows.Count, "b").End(3).Row
For i = 2 To sc
For c = 4 To LB
'/////////////////////////과세만따로///////////////////////////////
If Sheets(i).Name = Sheets("202201").Cells(c, "b") & "(과세)" Then
Sheets("202201").Cells(c, 8) = Sheets(i).Cells(Rows.Count, 10).End(3).Value
Sheets("202201").Cells(c, 10) = Sheets(i).Cells(Rows.Count, 11).End(3).Value
Sheets("202201").Cells(c, 12) = Sheets(i).Cells(Rows.Count, 12).End(3).Value
End If
Next c
Next i
'////////////////면세만 따로 있는것////////////////////////////////
For i = 2 To sc
For c = 4 To LB
If Sheets(i).Name = Sheets("202201").Cells(c, "b") & "(면세)" Then
Sheets("202201").Cells(c, 14) = Sheets(i).Cells(Rows.Count, 13).End(3).Value
End If
Next c
Next i
End Sub