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