Birden fazla hücrede değişiklik olunca çalışan makro

[kalibre101]

merhabalar aşagıdaki gibi kodum var M5 hücresi değişince makro çalışıyor bura kadar sıkıntı yok , ben M5 hücresine ek olarak M13 hücresi değişincede aynı makro çalışsın istiyorum yani m5 veya m13 de değişiklik olunca çalışsın istiyorum düzeltme yapablirseniz memnun olurum.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [M5]) Is Nothing Then Exit Sub
On Error Resume Next
ActiveSheet.DrawingObjects.Delete
Dim resimyolu As String
Dim resim As Picture
resimyolu = ActiveWorkbook.Path & "\" & Sheets(2).[M5] & ".jpg"
Set resim = ActiveSheet.Pictures.Insert(resimyolu)
With Range("V2")
resim.Top = .Top
resim.Left = .Left
resim.Height = .Height
resim.Width = .Width
End With
[K19] = "Yukarıda beyan ettiğim tarihler arasında" & " " & [M13] & " " & "Gün kullanmak istiyorum." & Chr(10) & "Arz Ederim" & " " & Date
End Sub

 

[Muzaffer Ali]

Merhaba.
2. satırdaki [M5] bunu silin yerine bunu kopyalayın Range("M5, M13")

 

[kalibre101]

Merhaba.
2. satırdaki [M5] bunu silin yerine bunu kopyalayın Range("M5, M13")

denedim fakat olmuyor sadece m5 de çalışıyor

 

[veyselemre]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Union([M5], [M13])) Is Nothing Then Exit Sub
    If [M5].Value <> "" And [M13].Value <> "" Then
        If ActiveSheet.DrawingObjects.Count > 0 Then ActiveSheet.DrawingObjects.Delete
        Dim resimyolu$, resim As Picture
        resimyolu = ActiveWorkbook.Path & "\" & [M5] & ".jpg"
        If Dir(resimyolu) <> "" Then
            Set resim = ActiveSheet.Pictures.Insert(resimyolu)
            With Range("V2")
                resim.Top = .Top
                resim.Left = .Left
                resim.Height = .Height
                resim.Width = .Width
            End With
            [K19].Value = "Yukarıda beyan ettiğim tarihler arasında" & " " & [M13] & " " & "Gün kullanmak istiyorum." & Chr(10) & "Arz Ederim" & " " & Date
        End If
    End If
End Sub

 

[kalibre101]

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Union([M5], [M13])) Is Nothing Then Exit Sub
    If [M5].Value <> "" And [M13].Value <> "" Then
        If ActiveSheet.DrawingObjects.Count > 0 Then ActiveSheet.DrawingObjects.Delete
        Dim resimyolu$, resim As Picture
        resimyolu = ActiveWorkbook.Path & "\" & [M5] & ".jpg"
        If Dir(resimyolu) <> "" Then
            Set resim = ActiveSheet.Pictures.Insert(resimyolu)
            With Range("V2")
                resim.Top = .Top
                resim.Left = .Left
                resim.Height = .Height
                resim.Width = .Width
            End With
            [K19].Value = "Yukarıda beyan ettiğim tarihler arasında" & " " & [M13] & " " & "Gün kullanmak istiyorum." & Chr(10) & "Arz Ederim" & " " & Date
        End If
    End If
End Sub

ilginiz için teşekkür ederim fakat bu kodda çalışmadı ne m5 nede m13 değişince işlem yapmıyor

 

[kalibre101]

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Union([M5], [M13])) Is Nothing Then Exit Sub
On Error Resume Next
ActiveSheet.DrawingObjects.Delete
Dim resimyolu As String
Dim resim As Picture
resimyolu = ActiveWorkbook.Path & "\" & Sheets(2).[M5] & ".jpg"
Set resim = ActiveSheet.Pictures.Insert(resimyolu)
With Range("V2")
resim.Top = .Top
resim.Left = .Left
resim.Height = .Height
resim.Width = .Width
End With
[K19] = "Yukarıda beyan ettiğim tarihler arasında" & " " & [M13] & " " & "Gün kullanmak istiyorum." & Chr(10) & "Arz Ederim" & " " & Date
End Sub
kodu bu şekilde yazınca birde korumalı hücre varmış kaldırınca çalıştı ilginiz için teşekkür ederim