• Foruma hoş geldin 👋 Ziyaretçi

    Forum içeriğine ve tüm hizmetlerimize erişim sağlamak için foruma kayıt olmalı ya da giriş yapmalısınız. Foruma üye olmak tamamen ücretsizdir.

    Giriş yap veya Şimdi kayıt ol

Çözüldü Bir dosyadan başka bir dosyaya isim ve resim alma

Bu sorun verilen destek sayesinde çözüme ulaştırılmıştır.
Durum
Konu Çözümlendiği İçin Kapatılmıştır.
V

Vurkan

Yeni Üye
Kullanıcı Bilgileri
Katılım
13 Tem 2023
Mesajlar
112
Çözümler
1
Aldığı beğeni
27
Excel Versiyonu
Office 2019 TR
Konuyu Başlatan
Arkadaşla merhaba.

Ekli dosyalarımdan RESİMLİ LİSTE isimli dosya e okuldan alınan resimli öğrenci listesidir. Öğrenciler okul numarasına göre sıralıdırlar. Dosyada sınıf bilgileri bulunmamaktadır. sınıflar birbirinden amcak okul numaraları tekrar küçülünce ayrılmaktadır. Aynı zamanda her satırda 7 öğrenci var.
diyelimki bir satırda 3 öğrenci, altındaki satırda 7 öğrenci varsa 3 öğrenci olan satırda sınıf bitmiş, alttaki satırda yeni bir sınıf başlamış olur.

Benim yapmak istediğim RESİMLİ LİSTE dosyasından 4. SINIFLAR ŞUBE ÖĞRETMENLER KURULU isimli dosyaya bu verileri sınıf sınıf almak, Örnek olarak 4A isimli sayfaya elle giriş yaptım. Saygılar.
 

Ekli dosyalar

  • 4. SINIFLAR ŞUBE ÖĞRETMENLER KURULU.XLS
    81.5 KB · Gösterim: 7
  • RESİMLİ LİSTE.XLS
    74 KB · Gösterim: 9
Tarihe göre sırala Oylara göre sırala
kapalıysa kitabı açma, resim boyutunu ve ismini değiştirme kodları dahil
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 1 Negatif oyla
Çözüm
Arkadaşlar tekrar merhaba. Zannımca istediğim resim getirme olayında yeterli kriterler bulunmadığından olsa gerek olumlu veya olumsuz bir yanıt alamadım. dosta şeklimi biraz değiştirerek işinizi kolaylaştıracağım kanısıyla yeni bir dosya yüklüyorom.

2023-24 OSMANGAZİ DİN DERSİ PROGRAMI (ÖRNEK) isimli dosyamda 4A isimli sayfamda o sınıfa ait öğrenci isim ve numaralarını getiriyorum. Sizlerden istediğim ismi ve numarası yazılı olan öğrencinin resmini RESİMLİ LİSTE isimli dosyadan bularak getirecek bir kod veya formül. Saygılar.
 

Ekli dosyalar

  • RESİMLİ LİSTE.XLS
    86.5 KB · Gösterim: 3
  • 2023-24 OSMANGAZİ DİN DERSİ PROGRAMI (ÖRNEK).xlsm
    309.9 KB · Gösterim: 3
Olumlu oy 0 Negatif oyla
Arkadaşlar tekrar merhaba. 146 görüntüleyen arkadaştan hiçbiri olumlu yada olumsuz bir görüş belirtmemiş. Saygılar.
 
Olumlu oy 0 Negatif oyla
resimlerle öğrenci adları belirli bir şablonu içermiyor
Resim 322, $A$6'da ama verisi A8 de ; 2 alt satır
oysa
Resim 323, $C$7'de ama verisi C8 de ; 1 alt satır
yine
Resim 367, $L$34'de ama verisi M35 ; 1 alt satır 1 yan sütun
Resim 369 $A$38'de ama verisi A39 ; 1 alt satır
yani resmin adresi ve verisi uyumsuz kimisinde 2 alt satırda kimisinde 1 alt satırda
kimisinde ise hem satır hem de sütun kayması var bu durumda resmin adresini bulsak bile verisi bambaşka bir yerde çıkıyor bu sadece kısa bir araştırmada benim bulduklarım kim bilir nerede ne oynamalar var
o nedenle isteğini çok uygulanabilir değil tabi ki resmin etrafındaki tüm hücreler kontrol edilip veri olanın alınası sağlanabilir ama göremediğim bambaşka kaydırmalar için bir yorumda bulunmam zor.
 
Olumlu oy 0 Negatif oyla
Sayın halily. Belki ben orjinal dosyayı örnek haline getirirken bu kaymalara sebep olmuş olabilirim. Resmin hangi hücreye bağlı olduğunu nasıl bulacağımı söylerseniz orjinal dosyada resim adreslerinin belli bir düzende olup olmadığını kontrol edip size bildirebilirim. Saygılar.
 
Olumlu oy 0 Negatif oyla
bence resmin adresi yerine resmin adını; öğrenci isim ve numarası olarak belirlemeniz daha uygun olur
ayrıca resimlerin altında yazan isim ve numara ile A4 sayfasındaki ad ve numaralar da uyumsuz, kodu denemeye çalıştığımda A4deki veri ile resim dosyasındaki veriler uyumsuz çıktığından aranan bulunamıyor, örneğinizi eklerken lütfen baştan savma eklemeyin. 2 kitapta da aynı veriler olsun ki aradığımızı bulalım
 
Olumlu oy 0 Negatif oyla
Sayın halily dediğinize uygun olarak daha dikkatli bir şekilde başka resimli dosyayı sadece resim değiştir komutuyla resimleri değiştirip okul numarası hariç diğer verileri silerek düzenledim. inşallah bu sefer olur kanaatindeyim. Resimler excel sayfasının içinde indiğinden resim adlarını dediğiniz gibi yapmam mümkün değil. Saygılar.
 

Ekli dosyalar

  • RESİMLİ LİSTE.xlsx
    22.4 KB · Gösterim: 4
  • 2023-24 OSMANGAZİ DİN DERSİ PROGRAMI (ÖRNEK).xlsm
    310 KB · Gösterim: 4
Olumlu oy 0 Negatif oyla
aşağıdaki kodu dener misiniz?
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
yada aşağıdaki hemen hemen aynı kod tek fark bir yerde .value2 almış diğerinde .text
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Son düzenleme:
Olumlu oy 0 Negatif oyla
Not: hata kontrolleri yapılmamıştır.
 
Olumlu oy 0 Negatif oyla
Üstadım merhaba; Bu kod son 7 nolu mesajdaki RESİMLİ LİSTE dosyası için değil mi? Her iki dosyam da aynı klasörün içinde ama

Set xHdfWorkbook = Workbooks("RESİMLİ LİSTE.xlsx") '("RESİMLİ LİSTE.XLS") ' Hedef kitabın yolunu değiştirin

satırında sarı renkli hata verdi. Saygılar.
 
Olumlu oy 0 Negatif oyla
2 kitap da açık mıydı?
 
Olumlu oy 0 Negatif oyla
Üstadım her iki kitabı açarak şimdi denedim aynı satırda hata verdi.
 
Olumlu oy 0 Negatif oyla
Üstadım tekrar merhaba. Yukarıdaki örnek dosyamda deneyince çalıştı. Gerçek dosyama uyarlamaya çalışıyorum saygılar.
 
Olumlu oy 0 Negatif oyla
7. mesajınızdaki osmangazi adındaki dosyayı indirip 8. mesajdaki 2. kodu denedim sorunsuz çalıştı.
Not: resimlerin nereye yapıştırılacağından ya boyutun değişip değişmeyeceğinden emin olmadığım için onlara dokunmadım
ama istenirse resimlerin yeri ve boyutu kopyalanacağı hücreye uydurulabilir ismi de öğrenci numarası olarak değiştirilebilir
 
Olumlu oy 0 Negatif oyla
kodun son hali aşağıdaki gibidir
1 - kitap kapalıysa açar
2 - resmi C:E ve H:J sütunlarının içine sığdırır
3 - ismini değiştirir
Kod:
Değerli Misafirimiz İçeriği Görebilmek İçin Üyemiz İseniz Giriş Yap'ın Ya da Üye Ol'un.
 
Olumlu oy 0 Negatif oyla
Üstadım maalesef gerçek dosyamda son verdiğiniz kod ;

Set xHdfWorkbook = Workbooks.Open(KitapYolu) ' Kitap kapalıysa aç satırında hata verdi. oysa her iki kitapta açıktı.

Orjinal dosyada Sayfa adı Sheet1 şeklinde ondan mıdır diye sayfa adını Sayfa1 yaptım yine olmadı.
 
Olumlu oy 0 Negatif oyla
Kitapyolu, liste kitabının yol & adı bilgisini içerir eğer kitap açık değilse kitabın açılması için gerekli bilgiyi içerir
eğer her 2 kitap da açıksa yani "RESİMLİ LİSTE.xlsx" kitabı açıksa kod zaten oraya gelmemeli,
KitapAdi = "RESİMLİ LİSTE.xlsx"
KitapYolu = ThisWorkbook.Path & "\" & KitapAdi
bu bilgiler doğruysa hata vermemesi gerek
 
Olumlu oy 0 Negatif oyla
Aşağıdaki resimde liste kitabı kapalıydı
s.gif
 
Olumlu oy 0 Negatif oyla
Üstadım Orjinal RESİMLİ LİSTE isimli dosya xls uzantılı. Sizin dediğiniz gibi uzantısını xlsx olarak değiştirdim ama sonuç aynı. Şayet orjinal dosyalarımı size ulaştırabilsem daha kolay olurdu sanki.
Resim boyutlandırmalarınız güzel ancak resimler B ve G sütunundaki hücrelerde olacak. Yandaki birleşik hücreye öğrenci hakkında görüşler yazılacak. Saygılar.
 
Olumlu oy 0 Negatif oyla
Durum
Konu Çözümlendiği İçin Kapatılmıştır.

Konuyu okuyanlar

Toplam: 2 (Kullanıcı: 0, Ziyaretçi: 2)
Geri
Üst