TC Kimlik No ya göre resim çağırma
02-03-2018, 14:54 #1
Arkadaşlar selamlar, Bir kamu kuruluşunda çalışmaktayım.Bir hususta yardımınıza ihtiyacım var.Şöyle ki;
Bilgisayarın "C" diskinde "Kurum" isimli bir klasör var, bu klasörün içinde de yaklaşık 2000 tane klasör var. Bu 2000 tane klasörün isimleri TC kimlik numaraları yani sayılar. Her klasörde de jpeg formatında bir resim var ve resmin ismi "foto"
Benim TC Numaram 12345678911 ise benim resmim
C:/Kurum/12345678911/foto.jpeg bu konumda.
Bir excel sayfasında a1 hücresine TC kimlik numaramı yazdığımda, resmimi bu konumdan otomatik çağırmak istiyorum.
İnternette bir çok örnek var ancak benim fotografların her biri ayrı klasörde olduğu için kendime uyarlayamadım.
Bu hususta yardımcı olursanız sevinirim.
moonty tarafından gönderilmiş daha fazla mesaj bul
02-03-2018, 16:12 #2
Forum sayfalarının üst orta kısmındaki ARAMA bölümüne resim+çağırma veya resim+getirme ya da resim+gösterme
gibi anahtar kelime grupları yazarak arama yaparsanız çok sayıda örnek ve uygulama bulabilirsiniz.
07-03-2018, 14:28 #3
Bu kadar uzun cevap yazıncaya kadar sorunuma çözüm yazabilirdiniz diye düşünüyorum. Ayrıca nereden arama yapacağımı biliyorum. 2006 dan beridir üyesiyim bu forumun. İlginize teşekkürler
07-03-2018, 15:19 #4
Uyarlamaya çalıştığınız kod'u bir örnek belge uygulayıp foruma eklememişsiniz. Uyarlamaya çalıştığırız kod da bilinmiyor.
Mecut duruma göre;
ARAMAyı dahi başkası yapıp ihtiyacınıza en uygun çözümü bulsun ve o çözümü de mümkünse bir belgeye uygulasın, hatta belirttiğiniz gibi bir dizine fotoğraflar ekleyip denemeler de yaparak çözüm budur diye göndersin istiyormuşsunuz gibi görünüyor.
Bunu yapacak bir üyenin destek vermesini beklemelisiniz.
07-03-2018, 15:54 #5
Ben cüzi bir ücret karşılığında yardımcı olabilirim.
Not: Kamu kurumunda çalıştığınızı şimdi fark ettim. Kurumunuz bu cüzi ücreti de karşılamaz..... O zaman, Ömer Beyin dediği gibi vakti olan bir üye yardımcı olabilir.
07-03-2018, 17:16 #6
Kamu görevlisi olmanızı göz önüne alarak aşağıdaki gibi bir basit bir kod oluşturdum.
Kod'u, alt taraftan uygulama yapacağınız sayfanın adına fareyle sağ tıklayıp KOD GÖRÜNTÜLEyi
seçtiğinizde açılacak VBA ekranında sağdaki boş alana yapıştırın.
Oluşturulan kod ister istemez bazı varsayımlara dayanmak durumunda.
A1 hücresine yazdığınız TC kimlik numarasına göre C/Kurum/TCkimlik/TCkimlik.jpg
yolu ve adındaki resim A3 hücresine getirilir.
A1'e yazılan yol ve adda resim yoksa A3 boşaltılır.
Resim uzantısı kod'da jpg, gerekirse o uzantıyı kod'da değiştirirsiniz.
Kod A1 hücresinde değişiklik yapıldığında otomatik olarak çalışır.
A3 hücresinin genişlik ve yüksekliğini uygun yükseklik ve genişliğe ayarlarsınız.
Kod'da sadece A3 hücresinin en/boy oranına göre basit bir boyutlandırma var. (Zaten resimler vesikalık fotoğraflardır sanıyorum.)
Detay ayaralama/boyutlandırma gerekirse yapılabilir.
For Each rsm In ActiveSheet.Shapes
a = rsm.Top: b = [A3].Top: c = rsm.Left: d = [A3].Left
If a = b And c = d Then rsm.Delete
yol = "C:\Kurum\" & A1.Text & "\" & A1.Text & ".jpg"
Resim.Top = .Top: Resim.Left = .Left
Resim.ShapeRange.LockAspectRatio = msoTrue
Resim.Width = .ColumnWidth: Resim.Height = .RowHeight
07-03-2018, 20:38 #7
moonty tarafından gönderildi
Foruma Giriş Tarihi : 04.04.2006
Foruma Üye Olma Yılı Excelce : =ETARİHLİ("04.04.2006";BUGÜN();"YM")
Sonuç 11 Yıl Çıkıyor 07.03.2018 Tarihi itibariyle.
Resimli örneklere de baya yer verildi bu forumda.
07-03-2018, 20:55 #8
Dilimin döndüğünce, kırıcı olmadan durumu belirtmeye çalıştım ama,
Sayın HALUK Beyefendinin cevabıyla KAMU GÖREVLİSİ olduğu dikkatimi çekince
pek uğraştığım/ilgilendiğim konu olmamasına rağmen yine de bir kod önerisinde bulundum.
Duygularıma tencüman oldunuz Sayın YEŞERTENER.
08-03-2018, 07:24 #9
Öncelikle teşekkürler, daha önce de söylediğim gibi bu konuyu açmadan önce epeyce araştırdım, uğraştım ancak her bir klasör ismi ayrı bir tc numarası olduğu için uygun kodu üretemedim. Diğer benzerlerinden uyarlamaya çalıştım ancak klasör ismi sürekli değişeceğinden "yol" tanımlama kısmını yapamamıştım. Bu yüzden bu konuyu açtım.
Necdet bey, bir moderatör olarak bir üye ile bu şekilde dalga geçip tiye almanız da pek hoş değil. Aynı şeyi başkası size yapsa pek hoşunuza gitmezdi sanırım.
08-03-2018, 13:00 #10
Ben bu foruma geldiğimde ki sizden 1 yıl önce excelin e'sinin bir ayağını bile bilmiyordum. Bende kamuda çalıştım ve emekli oldum.
Benim amacım sizinle dalga geçmek değil, eleştirmek. Bu forumu sanırım sadece ihtiyaç duyduğunuzda işinizi yapmak olarak kullanmışsınız.
Öğrenme için çalışmamışsınız.
Hep almışsınız ama hiç vermemişsiniz.