[Yardım]  resim çağırma lütfen yardım edin

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

resim çağırma lütfen yardım edin

İleti#1)  muhit01 » 28 Eyl 2018 01:47

personel bilgi formu.zip


merhaba öncelikle ismim muhittin
formda yeniyim inanın çok araştırdım fakat ne yaptıysam olmadı beceremedim ve gerçekten yardıma ihtiyacım var
ekte personel bilgileri ile ilgili bir excel hazırladım fakat klasör içerisindeki resimleri personel ismine göre resim alanına getirmeyi başaramadım lütfen yardım edin bir haftadır araştırıyorum .
şimdiden teşekkürlerimi sunarım .

değerli site yöneticilerim konuyu yanlış yere açtıysam sizlerdende özür dilerim .

herkese saygılar .
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#2)  rastbin » 28 Eyl 2018 10:39

Kod: Tümünü seç
   
        With ActiveSheet.Pictures.Insert("resim yolu")
            .Left = 500
            .Top = 700
            .Width = 123
            .Height = 134
        End With
    End If


resme sağ tıkla özellikler de konumdaki yazanı al "resim yolu" yazan yere yapıştır.
Kullanıcı avatarı
rastbin
Yeni Başlamış
 
Kayıt: 13 Ağu 2018 10:31
Meslek: Bilgi Teknolojileri Uzmanı
Yaş: 25
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

Cevap: resim çağırma lütfen yardım edin

İleti#3)  tasad » 28 Eyl 2018 11:05

Sheet2 kod bölümünü tamamen sil ve aşağıdaki kodları kaydet.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c6]) Is Nothing Then Exit Sub
'ActiveSheet.DrawingObjects.Delete
Dim ResimDosyaYolu As String
Dim Resim As Object
ResimDosyaYolu = ActiveWorkbook.Path & "\" & Range("c6") & ".gif"
Set Resim = ActiveSheet.Pictures.Insert(ResimDosyaYolu)
     With Range("g10")
     Resim.Top = .Top
     Resim.Left = .Left
     Resim.Height = .Height
     Resim.Width = .Width
     End With
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 261
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: resim çağırma lütfen yardım edin

İleti#4)  rastbin » 28 Eyl 2018 11:08

arkadaşın paylaştığı kodun en başına

Kod: Tümünü seç
ActiveSheet.Pictures.Delete


ekleyiniz.resimleri üst üste kaydeder yoksa.
Kullanıcı avatarı
rastbin
Yeni Başlamış
 
Kayıt: 13 Ağu 2018 10:31
Meslek: Bilgi Teknolojileri Uzmanı
Yaş: 25
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#5)  muhit01 » 28 Eyl 2018 11:52

tasad yazdı:Sheet2 kod bölümünü tamamen sil ve aşağıdaki kodları kaydet.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c6]) Is Nothing Then Exit Sub
'ActiveSheet.DrawingObjects.Delete
Dim ResimDosyaYolu As String
Dim Resim As Object
ResimDosyaYolu = ActiveWorkbook.Path & "\" & Range("c6") & ".gif"
Set Resim = ActiveSheet.Pictures.Insert(ResimDosyaYolu)
     With Range("g10")
     Resim.Top = .Top
     Resim.Left = .Left
     Resim.Height = .Height
     Resim.Width = .Width
     End With
End Sub



tasad ve rastbin hocam ikinizede teşekkürlerimi sunarım .
evet tasad hocamın verdiği kod süper oldu rastbin hocam sizde haklısınız denedim şimdi resimleri üst üste kaydediyor verdiğiniz kodu tasad hocamın verdiği kodun en başına yapıştırdıgımda hata veriyor nasıl düzeltebilirim acaba
ikinizede saygılarımı sunarım .
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#6)  rastbin » 28 Eyl 2018 11:59

Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)


hemen altına yapıştırınız.
Kullanıcı avatarı
rastbin
Yeni Başlamış
 
Kayıt: 13 Ağu 2018 10:31
Meslek: Bilgi Teknolojileri Uzmanı
Yaş: 25
İleti: 56
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#7)  muhit01 » 28 Eyl 2018 12:01

muhit01 yazdı:
tasad yazdı:Sheet2 kod bölümünü tamamen sil ve aşağıdaki kodları kaydet.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c6]) Is Nothing Then Exit Sub
'ActiveSheet.DrawingObjects.Delete
Dim ResimDosyaYolu As String
Dim Resim As Object
ResimDosyaYolu = ActiveWorkbook.Path & "\" & Range("c6") & ".gif"
Set Resim = ActiveSheet.Pictures.Insert(ResimDosyaYolu)
     With Range("g10")
     Resim.Top = .Top
     Resim.Left = .Left
     Resim.Height = .Height
     Resim.Width = .Width
     End With
End Sub



tasad ve rastbin hocam ikinizede teşekkürlerimi sunarım .
evet tasad hocamın verdiği kod süper oldu rastbin hocam sizde haklısınız denedim şimdi resimleri üst üste kaydediyor verdiğiniz kodu tasad hocamın verdiği kodun en başına yapıştırdıgımda hata veriyor nasıl düzeltebilirim acaba
ikinizede saygılarımı sunarım .


hocalarım her ikinizdende özür dilerim tasad hocamın kodu mükemmel çalışıyor elinize sağlık . rastbin hocam gönderdiğiniz kodu yanlış yere yapıştırmışım düzelttim gayet sağlıklı çalışıyor sizinde elinize sağlık
her ikinizede tekrar tekrar teşekkürlerimi sunarım
saygılar .
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#8)  muhit01 » 28 Eyl 2018 13:36

hocalarım çok özür dilerim bir noktada daha değerli yardımlarınıza ihtiyacım var .
çalışma sayfası ile resimler aynı klasörde dolaysiyle resimler çoğaldıkça sorun olacak sanıyorum
çalışma sayfasının bulunduğu klasör içine ( RESİMLER ) isminde bir klasör daha oluşturup resimleri o klasör içinden çağırmak istiyorum
kodda nasılbir değişiklik yapmam gerek acaba

Saygılar.
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#9)  şahin » 28 Eyl 2018 16:20

Dosyanız ekte. Klasörden resmi isim üzerinden değilde sicil no üzerinden arama yapacak, birden fazla aynı isimde kişi olabileceğinden dolayı..

personel bilgi formu.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 341
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: resim çağırma lütfen yardım edin

İleti#10)  tasad » 28 Eyl 2018 18:17

Aşağıdaki kodlar işinizi görür.
Kod: Tümünü seç
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [c6]) Is Nothing Then Exit Sub
ActiveSheet.Pictures.Delete
Dim ResimDosyaYolu As String
Dim Resim As Object
ResimDosyaYolu = ThisWorkbook.Path & "\resimler\" & Range("c6") & ".gif"
Set Resim = ActiveSheet.Pictures.Insert(ResimDosyaYolu)
     With Range("g10")
     Resim.Top = .Top
     Resim.Left = .Left
     Resim.Height = .Height
     Resim.Width = .Width
     End With
End Sub
Kullanıcı avatarı
tasad
Siteye Alışmış
 
Kayıt: 04 Şub 2018 11:46
Meslek: muhasebeci
Yaş: 26
İleti: 261
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: ısparta

Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#11)  şahin » 28 Eyl 2018 22:21

muhit01 yazdı:hocalarım çok özür dilerim bir noktada daha değerli yardımlarınıza ihtiyacım var .
çalışma sayfası ile resimler aynı klasörde dolaysiyle resimler çoğaldıkça sorun olacak sanıyorum
çalışma sayfasının bulunduğu klasör içine ( RESİMLER ) isminde bir klasör daha oluşturup resimleri o klasör içinden çağırmak istiyorum
kodda nasılbir değişiklik yapmam gerek acaba

Saygılar.


Kod: Tümünü seç
ResimDosyaYolu = ActiveWorkbook.Path & "\" & Range("c6") & ".gif"


bu satırı aşağıdaki satır ile değiştirin

Kod: Tümünü seç
ResimDosyaYolu = ActiveWorkbook.Path & "\RESİMLER\" & Range("c6") & ".gif"
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 341
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#12)  muhit01 » 07 Ekm 2018 20:29

şahin yazdı:Dosyanız ekte. Klasörden resmi isim üzerinden değilde sicil no üzerinden arama yapacak, birden fazla aynı isimde kişi olabileceğinden dolayı..

personel bilgi formu.rar


Şahin hocam merhaba kesinlikle doğru tespitiniz ben bunu düşünememiştim [ilginc]

sizden esinlenerek Tc isim ve tc numaraları ile resim çağırmak iyi olacak sanırım .
Hocam birde sizlerden ricam tablodaki tüm alanları resimde dahil olmak üzere
önce proje seç bölümünden projeyi seçtikten sonra sadece o projedeki tüm personellerin Personel seç bölümüne gelmesi
Personel seç bölümünden de personeli seçince seçilen personele ait tüm bilgilerin karttaki yerlerine otomatik veri tabanından çekilip eklenmesi .

Düşeyara ve benzeri kodlarla yapmaya çalıştım ama olmadı yardımcı olursanız çok sevinirim
veri tabanı bu kadar değil tabi ama ortalama 1000 personel olacak

Değerli Yardımlarınızı Rica Ederim

SAYGILARIMLA .
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#13)  şahin » 08 Ekm 2018 00:29

Ekte

PERSONEL BİLGİ KARTI.rar
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 341
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#14)  muhit01 » 08 Ekm 2018 16:39

şahin yazdı:Ekte

PERSONEL BİLGİ KARTI.rar


Şahin Hocam merhaba ,

çok teşekkür ederim elinize sağlık hocam.

hocam veriler yerine oturuyor fakat resimler personele göre değişmiyor nasıl düzeltebilirim şahin hocam

saygılarımla .
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#15)  muhit01 » 08 Ekm 2018 18:14

muhit01 yazdı:
şahin yazdı:Ekte

PERSONEL BİLGİ KARTI.rar


Şahin Hocam merhaba ,

çok teşekkür ederim elinize sağlık hocam.

hocam veriler yerine oturuyor fakat resimler personele göre değişmiyor nasıl düzeltebilirim şahin hocam

saygılarımla .


şahin hocam şimdi birşey dikkatimi çekti personel bilgileri iki ayrı pc de de yerine oturuyor fakat resimler pc nin birinde değişirken diğer pc de değişmiyor acaba sebebi nedir hocam .

saygılar.
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#16)  şahin » 08 Ekm 2018 21:12

Klasörü zip dosyasından çıkarın masüstüne c: veya d: nin içerisine orada çalıştırın.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 341
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#17)  muhit01 » 09 Ekm 2018 13:01

şahin yazdı:Klasörü zip dosyasından çıkarın masüstüne c: veya d: nin içerisine orada çalıştırın.


Şahin Hocam çok özür dilerim sürekli rahatsızlık veriyorum .
denedim C içinde hocam yine resimler sabit kalıyor .

yardımcı olursanız çok sevinirim hocam .

saygılarımla .
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#18)  şahin » 09 Ekm 2018 21:22

Ahmet Türkmen ile Mustaf ünlünün resimleri var, aşağıdaki zip.indirin klsörü çıkartın yeniden deneyin, ne hatası verecek bakalım, bende çalışıyor, birde makro güvenlik ayarlarını kontrol edin..
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 341
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Cevap: Cevap: resim çağırma lütfen yardım edin

İleti#19)  muhit01 » 10 Ekm 2018 10:04

şahin yazdı:Ahmet Türkmen ile Mustaf ünlünün resimleri var, aşağıdaki zip.indirin klsörü çıkartın yeniden deneyin, ne hatası verecek bakalım, bende çalışıyor, birde makro güvenlik ayarlarını kontrol edin..


Tekrar Merhaba şahin Hocam ,

Hocam macro güvenlik ayarlarında da her seçeneği denedim yine resim aynı bilgiler değişiyor resim değişmiyor .
ne yaptıysam olmadı hocam . Diğer pc de çok güzel çalışıyor
Kullanıcı avatarı
muhit01
Yeni Başlamış
 
Kayıt: 28 Eyl 2018 01:36
Meslek: güvenlik
Yaş: 38
İleti: 13
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: adana

Cevap: resim çağırma lütfen yardım edin

İleti#20)  şahin » 10 Ekm 2018 21:45

Ofis sürümü eski mi acaba çalışmayan bilgisayarda, bende de sıkıntı yok çalışıyor, bir hata veriyor mu ismi değiştirdiğinde ?
Kullanıcı avatarı
şahin
Siteye Alışmış
 
Kayıt: 30 Eyl 2016 23:24
Meslek: memur
Yaş: 29
İleti: 341
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: bursa

Sonraki

Forum Genel Makro Soruları

Online Kullanıcılar

Bu forumu görüntüleyenler: Google [Bot] ve 3 misafir

cron
Bumerang - Yazarkafe