DOKUMANISTAN.COM
|| İÇERİK

Makroda olan koda Yeni Kod Eklemek

Soru Cevap Bölümü
|| İÇERİK

FATİH ASLAN sordu

Excel Soruları

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

Excel Cevapları

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

Mustafa ÇETİN
Mustafa ÇETİN

Yorumlar - Makroda olan koda Yeni Kod Eklemek için

Yorum bırakın

E-posta hesabınız yayımlanmayacak.

This site uses Akismet to reduce spam. Learn how your comment data is processed.