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

VBA

작성자

RED HERO

작성일

2022-12-09 14:03

조회

엑셀버전 : 엑셀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

End Sub

공감

0명

RED HERO

회원등급 : 3레벨

포인트 : 131 EP

총질문 : 9 개 (마감율 : 67%)

채택답변 : 0 개

게시글

전체 1

마법의손 님 350

2022-12-09 14:09

@RED HERO 님

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

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

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

« 2개의 조건과 일치하는 대상자들의 중앙값구하기

엑셀(EXCEL) Worksheet_SelectionChange VBA관련 »

목록보기

전체 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