resim ekleme

[burhanaysan]

excel sayfasına aşağıda eklediğim makro ile ilgili adresteki resmi çağırabiliyoruz.

Sub ekle()
Range("A3").Select
resimadi = Range("A1").Text & ".jpg"
ActiveSheet.Pictures.Insert("C:\Belgelerim\Resimlerim\" & resimadi).Select
Selection.ShapeRange.LockAspectRatio = msoFalse
Selection.ShapeRange.Height = 198.75
Selection.ShapeRange.Width = 226.5
Selection.ShapeRange.Rotation = 0#
End Sub


ben bu makronun

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then ekle
End Sub

makrosu ile çalışmasını istiyorum.fakat hücre boşken hata veriyor.
yani çöyle bir makroyu soruyorum: "eğer A1 hücresi boşsa , boş bırak, değilse , ekle makrosunu çalıştır." ... bu mümkün mü?

 

[Levent Menteşoğlu]

Kodu aşağıdaki gibi düzenleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" and target<>"" Then ekle
End Sub

 

[enteresan]

Kodu aşağıdaki gibi düzenleyin.

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" and target<>"" Then ekle
End Sub

Sevgili leventm hocam,
A1 hücresindeki değer değiştiğinde, bir önceki resmin silinmesi mümkün mü? Dosyanın şişmemesi açısından....

Saygılarımla...