• DİKKAT !

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak Dosya Yükleme tamamen ücretsizdir.

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

Bu konu çözüldü olarak işaretlenmiştir. Çözülmediğini düşünüyorsanız konuyu rapor edebilirsiniz.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

kalibre101

Yeni Üye
Katılım
23 Haz 2022
Mesajlar
42
Çözümler
2
Aldığı beğeni
11
Excel V
Office 2010 TR
Konu Sahibi
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.


HTML:
Kod:
İçeriği görebilmek için Giriş yap ya da Üye ol.
 
Konu Sahibi
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.
Geri
Üst