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