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

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

kalibre101

Yeni Üye
Kullanıcı Bilgileri
Katılım
23 Haz 2022
Mesajlar
42
Çözümler
2
Aldığı beğeni
10
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
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.


Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 

kalibre101

Yeni Üye
Kullanıcı Bilgileri
Katılım
23 Haz 2022
Mesajlar
42
Çözümler
2
Aldığı beğeni
10
Excel Versiyonu
Office 2010 TR
Konuyu Başlatan
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

bu kodla sorunum çözüldü
 
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Üst