resim ekleme

Katılım
14 Ağustos 2004
Mesajlar
15
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

Administrator
Yönetici
Admin
Katılım
13 Ekim 2004
Mesajlar
16,057
Excel Vers. ve Dili
Excel 2010-32 bit-Türkçe
Excel 365 -32 bit-Türkçe
Kodu aşağıdaki gibi düzenleyin.

Kod:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" and target<>"" Then ekle
End Sub
 
Katılım
5 Nisan 2006
Mesajlar
449
Excel Vers. ve Dili
Office Excel 2003
TÜRKÇE
Kodu aşağıdaki gibi düzenleyin.

Kod:
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...
 
Üst