엑셀 VBA로 조건에 맞는 다른시트의 값 불러와 수정하고 저장하기

VBA
작성자
은준이아빠
작성일
2022-11-16 15:29
조회
84
엑셀버전 : M365

운영체제 : 윈도우11

질문 요약 : 엑셀 VBA로 조건에 맞는 다른시트의 값 불러와 수정하고 저장하기

안녕하세요.
다음과 같은 내용을 구현하고 싶은데 도움 요청드립니다.
1. 두개의 시트가 있습니다.
 (1) 검색시트
 (2) 데이터시트
2. 검색시트의 "G4" 전표번호를 입력하면 데이터시트의 자료가 검색됩니다.
3. 검색된 내용을 수정하고 저장하면 데이터시트의 자료가 수정된다.
 (1) 수정된 내용이 동일한 행이면 자료만 수정
 (2) 수정된 내용이 행추가 내용 포함 이면 데이터시트에 행추가 되어 수정내용 저장
 (3) 수정된 내용이 행삭제 내용 포함 이면 데이터시트에 행삭제 되어 수정내용 저장
입니다.
아래와 같이 자료를 불러오기 VBA를 완성하였습니다.
그런데 위 3번과 같이 수정하여 저장하기는 만들기가 어려워 도움을 요청합니다.
감사합니다.
Sub CorrectData()
    Dim T(), Rev As Variant
    Dim i As Integer, n As Integer
        Application.ScreenUpdating = False
            Rev = Sheet16.Range("A4").CurrentRegion
                For i = 1 To UBound(Rev)
                    If Rev(i, 1) = Sheet17.Range("g4") Then
                        ReDim Preserve T(1 To 13, n)
                            T(1, n) = Rev(i, 1)
                            T(2, n) = Rev(i, 2)
                            T(3, n) = Rev(i, 3)
                            T(4, n) = Rev(i, 4)
                            T(5, n) = Rev(i, 5)
                            T(6, n) = Rev(i, 6)
                            T(7, n) = Rev(i, 7)
                            T(8, n) = Rev(i, 8)
                            T(9, n) = Rev(i, 9)
                            T(10, n) = Rev(i, 10)
                            T(11, n) = Rev(i, 11)
                            T(12, n) = Rev(i, 12)
                            T(13, n) = Rev(i, 13)
                                n = n + 1
                    End If
                Next i
                    If n > 0 Then
                       Sheet17.Range("A9:M" & Rows.Count).ClearContents
                       Sheet17.Range("A9").Resize(n, 13) = Application.Transpose(T)
                        Else
                        MsgBox "일치하는 데이터가 없습니다.", 64, "검색실패"
                    End If
End Sub
스크랩
공유
전체 3

  • 2022-11-16 23:54

    ㅠㅠ 도와주세요,


  • 2022-11-18 16:14

    @은준이아빠 님 자세한 내용은 첨부 word file 참조

     

     

    첨부파일 : Journal-Manual-44506.docx


  • 2022-11-18 16:15

    @은준이아빠 님 VBA macro file

    첨부파일 : Journal-VBA-Re-44506.zip


전체 8,510
번호 카테고리 제목 작성자 작성일 추천 조회
알림
「🎉 올해의 책 투표」 '진짜쓰는 실무엑셀' 이 후보에 선정되었습니다! (👉깜짝 이벤트) (51)
오빠두엑셀 | 2022.11.07 | 추천 23 | 조회 7890
오빠두엑셀 2022.11.07 23 7890
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (105)
오빠두엑셀 | 2021.10.28 | 추천 135 | 조회 8506
오빠두엑셀 2021.10.28 135 8506
44963 VBA
New 일정간격마다 모두재계산&파일 열자마자 매크로 실행
KangU | 20:54 | 추천 0 | 조회 5
KangU 20:54 - 5
44962 함수/공식
New 누적 합계 구하기 함수 관련 엑셀파일
짱구 | 20:15 | 추천 0 | 조회 8
짱구 20:15 - 8
44959 함수/공식
New 안녕하세요! 엑셀 뉴비, 고수분들께 도움을 구하고자 합니다 ㅠㅠ 엑셀파일첨부파일 (1)
U_ho | 18:45 | 추천 0 | 조회 13
U_ho 18:45 - 13
44956 함수/공식
New 고수님들 도와주세요 (1)
LUKE. | 17:58 | 추천 0 | 조회 15
LUKE. 17:58 - 15
44955 함수/공식
New 따로 수정이나 새로고침 하지않아도 실시간으로 계산값이 변경되는 날짜계산기 (2) 답변완료
KangU | 17:45 | 추천 0 | 조회 20
KangU 17:45 - 20
44953 함수/공식
New 엑셀 날짜 함수 사용시 날짜 표시 안되는 이슈 첨부파일 (2)
junee562 | 16:59 | 추천 0 | 조회 19
junee562 16:59 - 19
44950 함수/공식
New vlookup을 활용한 여러 조건 시 결과값을 불러오고 싶습니다. 엑셀파일 (1)
DBOX | 16:50 | 추천 0 | 조회 25
DBOX 16:50 - 25
44946 함수/공식
New 정산금액을 공문에 참조하려고 하는데 n/a가 뜹니다. 엑셀파일 (3)
야근쟁이 | 16:17 | 추천 0 | 조회 22
야근쟁이 16:17 - 22
44941 함수/공식
New COUNT 함수 관련 2가지 조건의 수를 구하고 싶습니다. 첨부파일 (2) 답변완료
2039290jf1 | 14:11 | 추천 0 | 조회 24
2039290jf1 14:11 - 24
44940 VBA
New 엑셀 매크로 AutoFill 관련 문의 (1)
원더우먼 | 12:53 | 추천 0 | 조회 29
원더우먼 12:53 - 29
44938 기능/도구
New 온라인그림 선택이 안되요. 첨부파일 (1)
굿걸♡ | 11:57 | 추천 0 | 조회 22
굿걸♡ 11:57 - 22
44937 함수/공식
New 다중조건 if 관련 문의 (2) 답변완료
지도현 | 11:50 | 추천 0 | 조회 37
지도현 11:50 - 37
44935 함수/공식
New 엑셀 2007,2010 오프라인 도움말파일 구해요
나야 | 11:41 | 추천 0 | 조회 19
나야 11:41 - 19
44932 VBA
New VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기 (1)
고바마 | 11:02 | 추천 0 | 조회 34
고바마 11:02 - 34
44930 VBA
New vba를 이용하여 수식 결과값 추출 시트를 만들고 싶습니다. 첨부파일 (1)
코모 | 10:26 | 추천 0 | 조회 42
코모 10:26 - 42
44929 함수/공식
New [관심]!!경우의수 적용하여, 값 판단법 좀 알려주세요..ㅜ 엑셀파일첨부파일 (5)
ak스타 | 10:22 | 추천 0 | 조회 28
ak스타 10:22 - 28
44927 함수/공식
New 다중 sumifs 기타 값 계산 엑셀파일첨부파일 (3) 답변완료
선크 | 10:18 | 추천 0 | 조회 33
선크 10:18 - 33
44915 VBA
New 괄호안의 숫자 합계 구하기 VBA 또는 수식 엑셀파일첨부파일 (4) 답변완료
007 | 2022.11.27 | 추천 0 | 조회 62
007 2022.11.27 - 62
44913 함수/공식
New 함수 결과값이 이상합니다 첨부파일 (1)
엄기용 | 2022.11.27 | 추천 0 | 조회 31
엄기용 2022.11.27 - 31
44907 함수/공식
New 시간만 구하는 방법.. 첨부파일 (4) 답변완료
candle0723 | 2022.11.27 | 추천 0 | 조회 38
candle0723 2022.11.27 - 38
44904 문서서식
New 표시형식 문의 드립니다 (1)
거꾸로문 | 2022.11.26 | 추천 0 | 조회 29
거꾸로문 2022.11.26 - 29
44901 VBA
New 안녕하세요. vba로 단위 변환 질문드립니다.
Jes | 2022.11.26 | 추천 0 | 조회 38
Jes 2022.11.26 - 38
44899 차트/그래프
New 슬라이서 서식을 변경 한 후, 다른 엑셀 파일에서도 사용할 수 있는 방법이 있을까요?
twou**** | 2022.11.26 | 추천 0 | 조회 27
twou**** 2022.11.26 - 27
44896 VBA
New 여러 문자들 중 참조 문자에 있는 값 찾기 vba 엑셀파일첨부파일 (4)
007 | 2022.11.26 | 추천 0 | 조회 61
007 2022.11.26 - 61
44892 기능/도구
New 필터랑 행 숨기기 된 상태에서 자동채우기 안 되나요?
오리파 | 2022.11.25 | 추천 0 | 조회 25
오리파 2022.11.25 - 25
44887 함수/공식
New 다중조건을 만족하는 여러개의 값 구하는 함수식 문의드립니다. (1)
함수시르미 | 2022.11.25 | 추천 0 | 조회 53
함수시르미 2022.11.25 - 53
44886 VBA
New 엑세스 및 엑셀 연동 VBA INSERT구문 질문 엑셀파일
H.B | 2022.11.25 | 추천 0 | 조회 33
H.B 2022.11.25 - 33
44885 함수/공식
New 엑셀로 전투 시뮬레이션을 만들 수 있을까요? (3)
네버 | 2022.11.25 | 추천 0 | 조회 59
네버 2022.11.25 - 59
44881 VBA
New VBA 링크 설정시 현재시트로 설정하는법 첨부파일 (2)
엑셀왕이될거야22 | 2022.11.25 | 추천 0 | 조회 31
엑셀왕이될거야22 2022.11.25 - 31
44878 함수/공식
New 인덱스 매치 시 범위 합계구하기 엑셀파일 (3) 답변완료
야근쟁이 | 2022.11.25 | 추천 0 | 조회 47
야근쟁이 2022.11.25 - 47