- Katılım
- 27 Ocak 2021
- Mesajlar
- 96
- Excel Vers. ve Dili
- 2019 turkce
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
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