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

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

• 2 Ağu 2023

• #2

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

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

• 2 Ağu 2023

• #3

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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 2 Ağu 2023

• #4

resimlerle öğrenci adları belirli bir şablonu içermiyor
Resim 322, $A$6'da ama verisi A8 de ; 2 alt SATIR
oysa
Resim 323, $C$7'de ama verisi C8 de ; 1 alt SATIR
yine
Resim 367, $L$34'de ama verisi M35 ; 1 alt SATIR 1 yan sütun
Resim 369 $A$38'de ama verisi A39 ; 1 alt SATIR
yani resmin adresi ve verisi uyumsuz kimisinde 2 alt satırda kimisinde 1 alt satırda
kimisinde ise hem SATIR 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

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

• 2 Ağu 2023

• #5

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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 2 Ağu 2023

• #6

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

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

• 3 Ağu 2023

• #7

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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #8

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: 3 Ağu 2023

Olumlu oy 0 Negatif oyla

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #9

Not: hata kontrolleri yapılmamıştır.

 

Olumlu oy 0 Negatif oyla

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

• 3 Ağu 2023

• #10

Ü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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #11

2 kitap da açık mıydı?

 

Olumlu oy 0 Negatif oyla

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

• 3 Ağu 2023

• #12

Üstadım her iki kitabı açarak şimdi denedim aynı satırda hata verdi.

 

Olumlu oy 0 Negatif oyla

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

• 3 Ağu 2023

• #13

Üstadım tekrar merhaba. Yukarıdaki örnek dosyamda deneyince çalıştı. Gerçek dosyama uyarlamaya çalışıyorum saygılar.

 

Olumlu oy 0 Negatif oyla

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #14

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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #15

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

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

• 3 Ağu 2023

• #16

Ü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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #17

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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #18

Aşağıdaki resimde liste kitabı kapalıydı

 

Olumlu oy 0 Negatif oyla

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

• 3 Ağu 2023

• #19

Ü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

halily

Destek Ekibi

Kullanıcı Bilgileri

Katılım

29 Ağu 2021

Mesajlar

1,916

Çözümler

258

Aldığı beğeni

1,878

Excel Versiyonu

Office 2019 TR

• 3 Ağu 2023

• #20

Vurkan' Alıntı:

Ü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.

Genişletmek için tıkla...

o zaman son koda gerek yok 8. mesajdaki kod zaten işinizi görür
dosyanızı dosya paylaşım sitesine ekleyip özel mesajdan adresini yollayabilirsiniz.

 

Olumlu oy 0 Negatif oyla