엑셀 매크로 관련 문의드립니다

안녕하세요, 현재 각 조건을 만족하는 값을 찾아서 가져오는 매크로를 구현하였는데,

한가지만 더 추가하고 싶어서요

 

Workbooks("Item Code Master(Product Index)_GMPDC").Sheets("BD") T열(Column) 값이 "Y"면

rFind.EntireRow.Cells(1, "W").Copy Cells(rWhat.Row, "R") 값을 공백으로 바꾸고 싶은데, 가능할지 문의드립니다.

 

아니면 Workbooks("Item Code Master(Product Index)_GMPDC").Sheets("BD") T열 값이 "Y"면

rFind.EntireRow.Cells(1, "W").Copy Cells(rWhat.Row, "R") 값만 가져오고,

 

아닐경우 , 하기 2가지 값을 가져온다 식으로 함수식이 가능할까요?

rFind.EntireRow.Cells(1, "U").Copy Cells(rWhat.Row, "Q")
rFind.EntireRow.Cells(1, "W").Copy Cells(rWhat.Row, "R")

 

아래는 현재 사용하고 있는 매크로 구문입니다.

 

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
rFind.EntireRow.Cells(1, "U").Copy Cells(rWhat.Row, "Q")
rFind.EntireRow.Cells(1, "W").Copy Cells(rWhat.Row, "R")


End If

Next

End Sub