最初のシートの2番目のセルの値に基づいて、1つのセルから別のシートのセルにデータをコピーしますか？

Question

3番目のセルの値（ 'yes'または空白）に基づいて、別のシートのセルにあるシートのセルの値をコピーしようとしています。 例：

Cell A1: Monday 
Cell B1: Yes 

コピーSheet2のセルB5への細胞A1の値B1 = Yes場合。セルB2が空の場合（または「いいえ」）何もしないでください。これは可能ですか？
私はif文を使ってそれをやろうとしていましたが、運がないのです。

[EDIT]ここに私のコードがある（しかし、それはまだ動作しません）：あなたはSheet2の上でこの式を試すことができます

Sub ColorWhite() 
Range("B01:B15").Value = Yes 

With Selection.Font 
    .ThemeColor = x1ThemeColorDark1 
    .TintAndShade = 0 
End 

Range("B01:B15").Value Not Yes 
Selection.EntireRow.Hidden = True 

End Sub 

Answer 1

、セルB5

IF(Sheet1!B1 = "Yes", A1, "") 

確認したい場合両方B1 = YesとB2でnothingまたはNo：

IF(AND(Sheet1!B1 = "Yes", OR(Sheet1!B2 = "", Sheet1!B2="No")), A1, "") 

してドラッグし、それが

---

を必要とされている範囲の上にドロップし、[EDIT]ここでは、VBAはあなたのコメントをもとにしてみてくださいです。理解し、適応しやすいように、私は（これを行うには、より効率的な方法があるでしょう）それをシンプルに保ち：提案のための

Sub ColorWhite() 
Dim c As Range 
For Each c In Worksheets("Sheet1").Range("B1:B15") 
    If c.Value = "Yes" Then 
     With Worksheets("Sheet2").Range(c.Address).Offset(0, -1) 
      .Value = Worksheets("Sheet1").Range(c.Address).Offset(0, -1).Value 
      With .Font 
       .ThemeColor = xlThemeColorDark1 
       .TintAndShade = 0 
      End With 
     End With 
    End If 
Next c 
End Sub