값을 찾아올때, 음영색깔도 그대로 가져오기

VBA
작성자
RED HERO
작성일
2022-12-09 14:03
조회
96
엑셀버전 : 엑셀2016

운영체제 : 윈도우10

안녕하세요

 

하기 작성된 VBA 구문처럼 다른 파일 시트에 있는 값을 가져올때 , 만약 셀 색깔이 있다면 똑같이 가져오고 싶습니다..

 

혹시 방법이 있을까요??

 

Private Sub CommandButton1_Click()

Dim rFind As Range
Dim rWhat As Range

Sheets("AWB").[Q2:R100000].ClearContents

For Each rWhat In Sheets("AWB").[M2:M100000].SpecialCells(2)

Set rFind = Workbooks("Item Code Master(Product Index)_GMPDC").Sheets("BD").Range("J:S").Find(rWhat, , , xlWhole)

If Not rFind Is Nothing Then
Cells(rWhat.Row, "Q") = rFind.EntireRow.Cells(1, "T")
Cells(rWhat.Row, "R") = rFind.EntireRow.Cells(1, "V")

End If

Next

End Sub

스크랩
공유
전체 1

  • 2022-12-09 14:09

    @RED HERO 님  

    =이걸로 대입하는 것은  해당셀에 값을 대입하는 거죠..

    원래의 것 그대로 색깔등등의 속성을 가져올려면 copy로 처리해주면 됩니다..

    ex)    Range("A1").copy   Range("C1")


전체 9,316
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (6)
오빠두엑셀 | 2023.01.25 | 추천 6 | 조회 2298
오빠두엑셀 2023.01.25 6 2298
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (123)
오빠두엑셀 | 2021.10.28 | 추천 157 | 조회 9711
오빠두엑셀 2021.10.28 157 9711
48433 VBA
New [매크로]중복 고유값 삭제할때 값이 없는 데이터 삭제 엑셀파일첨부파일 (2)
진영조 | 01:00 | 추천 0 | 조회 32
진영조 01:00 - 32
48432 함수/공식
New 근무 시간 중 특정 시간대에 할당된 값을 가져오고 싶습니다. 첨부파일 (3)
홍준호 | 00:16 | 추천 0 | 조회 33
홍준호 00:16 - 33
48430 함수/공식
New 원하는 시간대별 최저,최고온도 구하는 수식 첨부파일 (1)
| 2023.01.29 | 추천 0 | 조회 19
2023.01.29 - 19
48419 함수/공식
New 중복된 항목에 대한 합계 수식 중 마지막 것을 알수있을까요?( 통합 x 중복된항목제거 x) 첨부파일 (2)
| 2023.01.29 | 추천 0 | 조회 30
2023.01.29 - 30
48417 함수/공식
New 텍스트 결합 문의 및 데이터 표로 만들기 문의 엑셀파일첨부파일 (3)
사랑찾기 | 2023.01.29 | 추천 0 | 조회 31
사랑찾기 2023.01.29 - 31
48414 함수/공식
New 세로순서 검색 방법문의 첨부파일
작은소녀 | 2023.01.29 | 추천 0 | 조회 28
작은소녀 2023.01.29 - 28
48395 피벗테이블
New 누적 데이터를 피벗 테이블로 표시할 때 그 피봇 테이블 자체에 함수를 적용 할 수 있나요??
딜레마 | 2023.01.29 | 추천 0 | 조회 41
딜레마 2023.01.29 - 41
48388 VBA
New 특정한 폴더의 특정셀값만 불러올 수 있을까요? 엑셀파일 (2)
wwg | 2023.01.29 | 추천 0 | 조회 45
wwg 2023.01.29 - 45
48379 함수/공식
New 같은 수식으로 여러 시트에 있는 자료를 VLOOKUP으로 끌고 올 수 있을까요? 엑셀파일 (4) 답변완료
redp**** | 2023.01.28 | 추천 0 | 조회 40
redp**** 2023.01.28 - 40
48367 피벗테이블
New 피벗테이블 새로고침시 행높이 자동바뀜 현상 질문드립니다. 엑셀파일첨부파일 (4)
월마리아 | 2023.01.28 | 추천 0 | 조회 36
월마리아 2023.01.28 - 36
48354 함수/공식
New 붙여 넣기 또는 자동채우기 작업 중 리소스 부족 에러
낑깡 | 2023.01.28 | 추천 0 | 조회 27
낑깡 2023.01.28 - 27
48351 함수/공식
New 2개 이상의 조건이 부합 시 결제일별로 순번을 매기고 싶어요. 엑셀파일첨부파일 (2) 답변완료
단팥 | 2023.01.28 | 추천 0 | 조회 45
단팥 2023.01.28 - 45
48333 문서서식
New 강의 자료 다운로드시 한셀로 열립니다. (2)
나 공부 | 2023.01.28 | 추천 0 | 조회 51
나 공부 2023.01.28 - 51
48292 함수/공식
New 글자수 (byte) 자르기 질문입니다. (1)
스타몰 | 2023.01.27 | 추천 0 | 조회 33
스타몰 2023.01.27 - 33
48284 함수/공식
New 초보적인 질문이라고 생각합니다만 도움 부탁드러요 엑셀파일첨부파일 (4) 답변완료
오동 | 2023.01.27 | 추천 0 | 조회 55
오동 2023.01.27 - 55
48280 함수/공식
New countif 사용하면서, 배열 중 하나와 일치하면 카운트하는 방법은 없을까요? (1)
호호홋 | 2023.01.27 | 추천 0 | 조회 40
호호홋 2023.01.27 - 40
48278 문서서식
New 출장보고서 데이터 취합 및 분석을 위한 양식 문의건 엑셀파일첨부파일 (1)
아빠의꿈 | 2023.01.27 | 추천 0 | 조회 37
아빠의꿈 2023.01.27 - 37
48276 VBA
New 워드 (docx) 파일을 형식 그대로 엑셀로 변환이 가능할까요?
야너두엑셀할수있어 | 2023.01.27 | 추천 0 | 조회 34
야너두엑셀할수있어 2023.01.27 - 34
48272 함수/공식
New 서버에 있는 엑셀파일 참조 오류 (3)
매너겜 | 2023.01.27 | 추천 0 | 조회 39
매너겜 2023.01.27 - 39
48267 VBA
New 실시간 데이터 값이 같을때 그 값을 어떻게 기록하나요? 엑셀파일첨부파일 (7) 답변완료
나민준 | 2023.01.27 | 추천 0 | 조회 62
나민준 2023.01.27 - 62
48257 대시보드
New 대시보드) 타임라인 생성 후, 연도/월/일로 자유롭게 보고 싶은데 그렇게 하다보면 그래프가 잘 안떠요.
헤일리 | 2023.01.27 | 추천 0 | 조회 47
헤일리 2023.01.27 - 47
48253 함수/공식
New 2칸 건너서 총 합계 구하는 방법 엑셀파일 (2) 답변완료
유령회원 | 2023.01.27 | 추천 0 | 조회 57
유령회원 2023.01.27 - 57
48249 함수/공식
New 이름에 맞춰 자동 조건에 맞는 텍스트가 써질 수 있게 하는 방법 문의 엑셀파일첨부파일 (1) 답변완료
노랑 | 2023.01.27 | 추천 0 | 조회 58
노랑 2023.01.27 - 58
48248 VBA
New vba 리스트박스 다중선택값을 column별로 각각의 텍스트박스로 받기. 엑셀파일 (1) 답변완료
119구조대 | 2023.01.27 | 추천 0 | 조회 37
119구조대 2023.01.27 - 37
48247 함수/공식
New 평가 점수 관련 수식이 어렵습니다 도움부탁드립니다 ! 첨부파일 (1)
쫑월드 | 2023.01.27 | 추천 0 | 조회 37
쫑월드 2023.01.27 - 37
48245 함수/공식
New 정렬 관련 해결방법 (1)
oOo | 2023.01.27 | 추천 0 | 조회 41
oOo 2023.01.27 - 41
48243 함수/공식
New sum함수 뒤에 이어서 붙이라는데 모르겠어요. 엑셀파일 (4)
jhti**** | 2023.01.27 | 추천 0 | 조회 43
jhti**** 2023.01.27 - 43
48242 차트/그래프
New 차트 값이 없을때 데이터레이블 없애는법 첨부파일
실무자 | 2023.01.27 | 추천 0 | 조회 30
실무자 2023.01.27 - 30
48239 차트/그래프
New 간트차트에서 오차막대 서식 저장 문의
아닛호옹이 | 2023.01.27 | 추천 0 | 조회 36
아닛호옹이 2023.01.27 - 36
48233 VBA
New S로 시작하는 엑셀파일을 여는 VBA 명령문 첨부파일 (2) 답변완료
나지 | 2023.01.27 | 추천 0 | 조회 48
나지 2023.01.27 - 48