Makroda olan koda Yeni Kod Eklemek

FATİH ASLAN sordu merhaba! Aşağıdaki konu için yardımınıza ihtiyacım var. Yardımcı olursanız sevinirim. Şimdiden ilginize teşekkür ederim. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = “M11” Then hafıza.Range(“B16”).Value = Range(“A3”).Value hafıza.Range(“C16”).Value = Range(“A3”).Value End If End Sub Excel Sayfa1 de yukarıdaki kodun yapmış olduğu işleve ilave olarak aşağıdaki kodu nasıl ilave edebilirim. Aşağıdaki kodu yukardaki koddan kopyalayarak düzenledim ve yapıştırdım fakat hata veriyor.   If Target.Address(0, 0) = “R11” Then Sayfa1.Range(“S16”).Value = Range(“R3”).Value Sayfa1.Range(“T16”).Value = Range(“R3”).Value Selamlar Merhabalar; Yoğunluktan geç dönüş yaptım kusura bakmayın. Eğer iki if işlevi birbiri ile bağlantılı ise aşağıdaki şekilde yapabilrisiniz Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = “M11” Then hafıza.Range(“B16”).Value = Range(“A3”).Value hafıza.Range(“C16”).Value = Range(“A3”).Value ElseIf Target.Address(0, 0) = “R11” Then Sayfa1.Range(“S16”).Value = Range(“R3”).Value Sayfa1.Range(“T16”).Value = Range(“R3”).Value End If End Sub Birbirinden farklı if işlevi ise aşağıdaki şekilde yapabilirsiniz. Private Sub Worksheet_Change(ByVal Target As Range) If Target.Address(0, 0) = “M11” Then hafıza.Range(“B16”).Value = Range(“A3”).Value hafıza.Range(“C16”).Value = Range(“A3”).Value End If If Target.Address(0, 0) = “R11” Then Sayfa1.Range(“S16”).Value = Range(“R3”).Value Sayfa1.Range(“T16”).Value = Range(“R3”).Value End If End Sub