resim ekleme

[wolwaren]

öncelikle herkese selam ederim....
amacım şu bir sayfadaki resmi başka bir sayfaya taşımak için makro yapmak
yardımcı olabilirmisiniz?
dosya ekte

 

[Ömer]

Merhaba,

Linki inceleyiniz...

http://www.excel.web.tr/f136/personel-bilgileri-resimli-3-rnek-dosya-t22790.html

.

 

[wolwaren]

if koşulu tamam ya else

yani eğer hücrede birşey yazmıyosa resim gelmesin ve boş klasın ama olmuyor üzerine resim geliyor
örnek daha önceden yapılmış bir çalışma çok güzel ama hücre boş olduğunda resim de silinsin
-----------------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
Application.ScreenUpdating = False
Shapes("resim").Delete
If Target.Address <> "$B$4" Then Exit Sub
Sheets("Resim").Select
ActiveSheet.Shapes([B4]).Copy
[a1].PasteSpecial
Sheets("FORM").Select
Selection.ShapeRange.Name = "resim"
[B4].Select
else
?
End Sub

 

[wolwaren]

else ?

arkadaşlar cevap verebilecek kimse yokmu?

 

[Ömer]

Bu şekilde deneyiniz...

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
    Application.ScreenUpdating = False
        Shapes("resim").Delete
        If Target.Address <> "$B$4" Then Exit Sub
        If Target = "" Then
            Shapes("resim").Delete
        Else
            Sheets("Resim").Select
            ActiveSheet.Shapes([B4]).Copy
            [A1].PasteSpecial
            Sheets("FORM").Select
            Selection.ShapeRange.Name = "resim"
            [B4].Select
        End If
    Application.ScreenUpdating = True
End Sub

.

 

[wolwaren]

sayın ömer teşekkürler

emeğinize sağlık teşekkür ederim...