VBA 위치관련 엑셀 작업입니다.

BS4, BT4, BU4, BV4 도 원래 있어야 하는 값인가요?
그리고 한줄만 하면 되는건가요?
AK21 주위에 있는 값들을 BO2 정도로 옮겨서 VBA를 실행하면 안되는건가요?
첨부된 문서는 좀 복잡하고 헷갈리네요.

결과만 있는 시트가 필요합니다.

1. BS4, BT4, BU4, BV4는 임의로 넣는 조건 값이라서 없어도 됩니다.

2. 조건값(BS4, BT4, BU4, BV4)이랑 조건에 맞는 결과값을 분리하고 싶습니다.
    BS4, BT4, BU4, BV4의 조건에 의해서 BS2에서 시작해서 CF2이상의 값도 나올 수도 있습니다.

  CF2이상 이라는 말은 젬시트에는 BS2가 2라서 CF2에만 값이 있지만 BS4, BT4, BU4, BV4 조건에
  맞는 값이 더 있으면 CG2에도 값이 들어가게 됩니다.

  예로 BS2의 값이 4이면  BS2~CP2까지 값이 입력이 됩니다.

지금 회사라서 결과만 있는 시트는 집 컴퓨터에 있어서 첨부를 못 하겠습니다.

새해 복 많이 받으세요.

새해 복 많이 받으세요.

파일을 받아서 실행보았습니다.

번거롭게 해 드려 죄송하지만 몇 가지 수정 부탁드립니다.

1. 주황색 채우기한 조건값 2019-12-10(AK21)->BS4, 9:00(AL21)->BT4, 15:34(AM21)-> BU4로, 2060(AQ21)-> BV4로 옮겨주시면 안 될까요?
  임으로 주는 값이지만 조건값이 AK21, AL21, AM21, AQ21에 있을 경우에만 작동합니다.
  제가 BS4-> 2019-12-10 수기로 입력, BT4->9:00 수기로 입력, BU4-> 15:34 수기로 입력, BV4->2060 수기로 입력했을때 BS2에 결과 값을 나오게 하고 싶습니다.

2. 결과값이 AS6에 가는 것이 아니라 BS2에 로 가게 해 주십시요.

3. 현재시트나 전체시트를 클릭을 하면 결과값이 나오는데 한번 더 클릭하면 똑 같은 값이 바로 옆에 붙습니다.
  클릭한 수 만큼 똑 같은 값이 연속으로 해서 붙고, 조건값이 달라질 수도 있는데 그럼은 이전의 값은 다 지운 상태에서 새로운 값을 넣고 싶습니다. 이걸 수정 부탁드립니다.

제가 설명을 한다고 했는데 이해가 안 되는 부분이 있으면 더 자세하게 설명을 해 보겠습니다.

편안한 밤 보내세요. 감사합니다.

제가 VBA에 설명을 달았는데 안보셨나 봅니다.
1. 조건값의 위치 수정 - 아래를 수정하시면 됩니다. 큰 따옴표 안에 있는 값
For Each Proc1 In Range("AK21:AK" & Cells(Rows.Count, "AK").End(xlUp).Row)
For Each Proc1 In Range("BS4:BS" & Cells(Rows.Count, "BS").End(xlUp).Row)

한줄의 결과만 필요하면 아래처럼 수정하면 됩니다.
For Each Proc1 In Range("BS4")

수기 입력값 위치도 VBA 중간에 설명을 달았습니다.
첫 위치 BS4 에서 오른쪽으로 3번째니까 6을 3으로 고치면 됩니다.
ExitValue = Cells(Proc1.Row, Proc1.Column + 3).Value

2. VBA에 출력위치도 적었습니다.
Set PrintPos = Range("AS6") 에서 BS2 로 바꾸면 됩니다.

3. 이전의 값 지우기도 VBA에 적었습니다.
앞의 ' 를 지우면 그 줄이 작동합니다. AN2:ZC900 를 지우기 원하는 범위로 바꾸면 됩니다.
Range("AN2:ZC900").Clear

조언 감사합니다

익명님 안녕하세요.

지금 여러모로 님의 조언대로 고쳐 가면서 위치는 변경하였습니다.

다면 디버그가 발생하여 나도 익명님이 이 파일을 제일 잘 알기에 부탁합니다.

디버그는 DataStartRow = Range("X:X").Find(what:=Proc1.Value).Row이고

첨부파일에 설명이 되어 있습니다.

또 한 파일에 많은 시트가 있어 한번 클릭으로 모든 시트에 적용할 수 있게 만들어 주신걸로 알고 있습니다.

하지만 미흡한 저이기에 해결 방법을 모르겠습니다.

callsub와 Dosomething 매크로가 무엇을 의미하는지 모르겠고 한번 클릭으로 모든 시트에 적용될 수 있게 부탁드립니다.

번거롭게 생각하지 마시고 너무 답답하여 부탁드립니다.

저번에 취미라고 말씀드렸는데...
위와 같이 답을 한 이유는 그래도 VBA를 조금은 이해하고 배우려고 하시는것 같았거든요.
그리하여 다 잘 하셨는데 찾고자 하는 값을 잘못 입력하여 문제가 발생했네요.
바로 위에 적은 부분만 확인한 것이니 안 되는 거 있으면 댓글 주세요.

디버그가 발생한 이유는 값을 찾지 못했기 때문입니다. 2019년인데 2010으로....
값을 찾지 못할 때는 빨간색으로 칠하게 만들었습니다.
시트당 하나씩만 작업하시는 것 같아서 1줄만 하도록 수정했습니다.
여러줄을 할 때도 사용하도록 자취를 남겨놨으니 수정하시면 됩니다.
callsub 는 현재 시트만 작업하는 것이고
Dosomething 은 전체 시트를 작업하는 것입니다.

댓글 감사합니다 바로 확인은 힘들고 저녁 늦게 확인해 보겠습니다 바로 언어는 제게는 힘들고 우선 함수부터 열심히 해 보겠습니다 좋은 하루되세요