Çalışmanız hakkında biraz daha açıklama yapmış olasaydınız anlaması daha basit olurdu.Anladığım kadarı ile siz güncellemeyi D7,D8 ve D9 hücrelerinden yapacaksınız kopyala yapıştır ile basit olarak hazırladığım kodlar aşağıdadır siz gerisini devam ettirirsiniz.

Sub Boya_degistirme()

'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& HAMMADDE 1

If Range("B3").Value = 1 Then

If Range("B4").Value = 1 Then

    Range("D7").Select

    Selection.Copy

    Range("M4").Select

    ActiveSheet.Paste

    Range("D8").Select

    Selection.Copy

    Range("O4").Select

    ActiveSheet.Paste

    Range("D9").Select

    Selection.Copy

    Range("R4").Select

    ActiveSheet.Paste

End If

End If

If Range("B3").Value = 2 Then

If Range("B4").Value = 1 Then

    Range("D7").Select

    Selection.Copy

    Range("L5").Select

    ActiveSheet.Paste

    Range("D8").Select

    Selection.Copy

    Range("N5").Select

    ActiveSheet.Paste

    Range("D9").Select

    Selection.Copy

    Range("Q5").Select

    ActiveSheet.Paste

End If

End If





'&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& HAMMADDE 2

If Range("B3").Value = 1 Then

If Range("B4").Value = 2 Then

    Range("D7").Select

    Selection.Copy

    Range("M20").Select

    ActiveSheet.Paste

    Range("D8").Select

    Selection.Copy

    Range("O20").Select

    ActiveSheet.Paste

    Range("D9").Select

    Selection.Copy

    Range("R20").Select

    ActiveSheet.Paste

End If

End If

If Range("B3").Value = 2 Then

If Range("B4").Value = 2 Then

    Range("D7").Select

    Selection.Copy

    Range("L21").Select

    ActiveSheet.Paste

    Range("D8").Select

    Selection.Copy

    Range("N21").Select

    ActiveSheet.Paste

    Range("D9").Select

    Selection.Copy

    Range("Q21").Select

    ActiveSheet.Paste

End If

End If







Application.CutCopyMode = False

Range("B3").Select

End Sub