Sayfa'daki resimleri bulma

[M.ACAR]

Ekli dosya'da resimleri resim dosyasından C16 hücresinden başlayarak C sütununda dolu hücrelerin olduğu hücrelerden işaretleyerek A2 hücresine çağırmak istiyorum,üzerinde biraz çalıştım fakat,hücreyi mause ile işaretlediğim anda resim dosyasını açıyor,dosya'yı gizlediğim zaman da sayfa bulunan grafiği 1 numara kabul edip buna göre resimleri buluyor,birde satır renklendirme de karıştı,nasıl bir formül uygulamak gerekir,yardım ederseniz sevinirim.

 

[omerceri]

Resim sayfasındaki resimlerin adını ait yanındaki sütunda yazan isimle (DÜZ KANAL.... gibi) değiştirdim. Ona göre bir makro yazdım. Renklendirmeyi anlamadım. Örnek dosya ekte.

 

[M.ACAR]

Sayın : Ömerceri yardımınıziçin teşekkür ederim,fakat c sütunu işaretlenip resim geldiğinde mause ikonu istemdışı olarak resim üzerine gidiyor,bunun işaretlenen hücrede kalması gerekiyor,bu sorun nasıl giderilebilir.

 

[omerceri]

End If satırından önce aşağıdaki kodu ekleyin yan hücreye geçsin
Target.Offset(0, 1).Select

 

[omerceri]

Benim yazdığım kodların üzerine eklediğiniz kodlarlar ne yapmak istediğinizi yazarsanız tüm sorunlar hallolacak.

 

[M.ACAR]

Sayın : Ömerceri cevap için teşekkür ederim,sizin kodlara eklediğim kodlar ile hesap formunda işaretli olan hücrede B:V satırının istediğim renkte belirginleştiriyor,bu şekilde olduğunda hangi satırda isem o satır bilgilerini daha kolay takip edebilme olanağı sağlaması açısından yapmıştım,fakat bu kod olduğunda copy-paste özelliğinide kullanamıyorum,farklı bir düşünceniz varsa kodu iptal edebilirim,Saygılarımla.

 

[omerceri]

kodları aşağıdaki gibi değiştirin
Private Sub Worksheet_SelectionChange(ByVal Target As Range)


If Target.Column = 3 And Target.Value <> "" And Target.Value <> "PARÇA ADI" Then
Cells.Interior.ColorIndex = xlNone
Rows(Target.Row & ":" & Target.Row).Interior.ColorIndex = 3
If Sheets("METRAJ").Shapes.Count = 2 Then
Sheets("METRAJ").Shapes("Resim").Delete
End If
Sheets("Resim").Shapes(Target(1)).Copy
Range("a2").PasteSpecial
Selection.Name = "Resim"
Target.Offset(0, 1).Select
End If
End Sub

 

[M.ACAR]

Çok teşekkürler ;Ömerceri , yardımlarınız ve verdiğiniz bilgiler için

 

[aydın3838]

sayın m.acar
bir sorum olacak

bu resimleri göstermede formul kullanılmış fakat resimlerin isimlerini nereye yazdınız

veya isim yokmu istenilen resmi neye öre buluyor

öğrenmek isterim

 

[M.ACAR]

Sayın :aydın3838 resimlerin bulunduğu resimlerim adlı bir sayfa yaptım gizli olan sayfa'dır

 

[aydın3838]

bu gizli sayfayı nasıl açacağız peki

farklı bir gizleme kullanılmış

 

[M.ACAR]

menü çubuğundan biçim-sayfa-gizle yada göster

 

[aydın3838]

sayın m.acar
teşekkür ederim ben başka yerlerde aramışım
unutkanlık bazan oluyor
yinede teşekür ederim saygılar

formda sormuş olduğum bir soru var

aktif kitaptan başka klasöre sayfa ekleme

bakabilirmisiniz rica etsem
içinden çıkamadım