GEEM Set wsA = ThisWorkbook.Sheets("sheet1")
Set wsB = ThisWorkbook.Sheets("sheet2")
wsA.Cells(matchRow, "E").Value = wsB.Cells(i, "J").Value
wsA.Cells(matchRow, "F").Value = wsB.Cells(i, "K").Value
wsA.Cells(matchRow, "G").Value = wsB.Cells(i, "L").Value
wsA.Cells(matchRow, "H").Value = wsB.Cells(i, "M").Value위 코드는 에러없이 잘 작동되구요. 그런데 셀 4개를 각각 작업하던걸
한방에 끝내려고 아래와 같이 수정해서(동일하다고 생각해서) 하면
런타임에러가 나는데(첨부 그림파일)
표현식이 틀린건가요?
wsA.Range(Cells(matchRow, 5), Cells(matchRow, 8)).Value = '오른쪽이 넘 길어 보여드리기 개행
wsB.Range(Cells(i, 10), Cells(i, 13)).Value수정해주시면 감사드리겠습니다.
VBA 코딩하면서 제일 많이 하는 실수일 겁니다.
Range나 Cells 만 사용하면 ActiveSheet. 가 생략된 것입니다.
그리고, 지난 질문들에 대해서 반응이 없으면 답을 드리는 분들도 없어질 겁니다.
아~ 그리고 여기 답을 주시면 제가 감사인사라도 드려야 하는데 최근에 좀 그렇지 못해 죄송합니다. 앞으로 잘 하겠습니다. 그렇지 않아도 저번에 [ 샘플파일을 올리고 질문하는 것이 낫다] 고 핀잔을 주셔서 여기에 질문할 때에는 따로 최선을 다해 샘플파일을 만들어 질문을 올리고 있습니다. 늘 관심주셔서 감사드리고 소중한 시간내어 답글 주신점 또 한번더 감사드립니다. 늘 행복하십시오. 넙죽 (__)
Set wsA = ThisWorkbook.Sheets("sheet1") Set wsB = ThisWorkbook.Sheets("sheet2") wsA.Range("E" & matchrow).Resize(1, 4).Value = wsB.Range("J" & i).Resize(1, 4).Value