Grup Resim Alma (Aktarma)

[1Al2Ver]

Merhaba,

Dosya, içeriği genişlediği için kaldırıldı,

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Dosya, içeriği genişlediği için kaldırıldı.

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Data sayfasında, Gruplar ve Ürünler karışık yazılmakta

1) A1'e göre A3, A5 ve A7 den seçim yapıldığında, A7 seçimine ait resimlerin (Toplam 9 adet) , Data sayfasından, Süz sayfasındaki sütunlara gelmesi,

Örneğin ;
Data D1'deki resmin ; Süz C2:C15'e
Data E1'deki resmin ; Süz E2:E15'e
Data F1'deki resmin ; Süz G2:G15'e gelmesi gibi

2) Çağırılan resmin boyutu ne olursa olsun, resim tanınan aralığa yerleşmeli (Örn;C2:C15)

şeklinde bir isteğim var,

Teşekkür ederim.

 

[1Al2Ver]

Merhaba,

Bu isteğin gerçekleşmesi zor mu ? Şayet öyle ise, başka bir çözüm aramam gerekecek, ancak o çözüm de nasıl olacak doğrusu bilmiyorum.

Yardımlarınızı bekliyorum.

Teşekkür ederim.

 

[halit3]

iyi günler dosyanın içine not olarak açıklama yaptım o doğrultuda işlem yaparsanız olur ekli dosyanızı kontrol ediniz.

 

[1Al2Ver]

iyi günler dosyanın içine not olarak açıklama yaptım o doğrultuda işlem yaparsanız olur ekli dosyanızı kontrol ediniz.

Sayın halit3 merhaba,

Zahmetiniz için teşekkür ederim,

"Bu dosyanın yanına Resimler Klasörü aç ve resimleri bunun içine koy" cümlesinden hareketle, "Resimler" isimli bir klasör açtım, .jpg uzantılı resimleri de bu klasöre kopyaladım, ama sanırım bir şeyi eksik yada yanlış yapıyorum.

Kod'daki ; resim1 = ThisWorkbook.Path & "\Resimler\" & Sheets("Süz").Cells(3, 1).Value & ".jpg" satırındaki "\Resimler\" yolu, "Resimler" klasörüne mi işaret etmektedir ?

Süz sayfasındaki "Resim Oluştur" butonu tıklanınca , "Resimler" klasöründen resim getirecek sanırım, bu işlem bir dış veri al işlemi ise hem "Resimler" klasörü hem de "Resimleme" dosyası bir başka klasörde (Örn; GRUPLA) birlikte mi olmalılar ?

Mümkünse ve zahmet olmayacaksa işlemleri adım adım anlatmanızı rica ediyorum,

Çözüm ve zahmetiniz için tekrar teşekkür ederim.

Saygılarımla.

 

[halit3]

resim1 ;resimin olduğu yol
resim1 klasörünün bulunduğu yol ; ThisWorkbook.Path & "\Resimler\"
resimin adı ;Sheets("Süz").Cells(3, 1).Value
resimin uzantısı ; ".jpg"

bunları birleştirirsen
resim1 in yerini belli eder
resim1 = ThisWorkbook.Path & "\Resimler\" & Sheets("Süz").Cells(3, 1).Value & ".jpg"

bu durumda bu kodlarır çalışması için bütün resimlerin hepsi Resimler klasörünün içinde ve bu kullandığn dosyanın yanında olması gerekiyor

 

[1Al2Ver]

Sayın halit3 tekrar merhaba,

Teşekkür ederim,

1) Kullandığım dosyanın adı ; "GrupResimle"
2) Yeni açılan ve resimlerin içinde olduğu klasör, (Resimler isimli klasör) masaüstünde,
3) GrupResimle dosyası ve "Resimler" klasörü, ikisi bir arada olarak masaüstünde "YeniKlasör" isimli klasörde,
4) Resimler klasöründeki resimler, lufer1.jpg, mantar.jpg şeklinde devam etmekte

bu sıralamayı uyguluyorum, sonuç alamadım,

Sizi de yoruyor ve meşgul ediyorum ama mümkün ise, sizin dosya yollarına göre bir örnek dosya ve klasör ekleyebilirseniz, dosya ve klasör yollarını benim bilgisayara göre düzenlemeye çalışırım, çok makbule geçer, başarısızlığımı amatörlüğüme verin lütfen,

Tekrar teşekkür ederim.

 

[halit3]

bu klasörü aç içinde resimler klasörü var ve deneme dosyası var resimlerin hepsini buradaki resimler klasörüne koy ve deneme dosyasını aç buradan kamut düğmesine dıkladığın zaman resimler gelecektir

 

[1Al2Ver]

Sayın halit3 merhaba,

Ben de aynı yolu denemiştim, acaba resim adlarını ( örn; lufer1.jpg) resim1.jpg mi yapmak gerekiyor ?

Denediğim Yol ; Gönderdiğiniz "deneme proğramı.rar" dosyasını C sürücüsüne, C:\deneme proğramı olarak (klasör olarak) kayıt ettim, dolayısıyla C:\deneme programı klasöründe; Resimler isimli bir klasör ve Resimleme.xls isimli bir dosya oldu,

Sonra sırasıyla 4 adet .jpg uzantılı resmi ( isimleri ; lufer1.jpg, lufer2.jpg, lufer3.jpg ve lufer4.jpg ) Resimler Klasörü'ne kayıt ettim, sonra resimleme.xls'yi açıp "Süz" sayfasında RESİM OLUŞTUR butonuna tıkladım, ama sonuç alamadım, benden kaynaklanan bir eksik yada yanlış uygulama mı var acaba?

Not; Bu uygulama ile Resimleme.xls dosyasında "Veriler "sayfasındaki resimlerin yolu yazılı hücrelerin bir önemi kalmadı mı ?

Zahmetleriniz için teşekkür ederim, beceriksizliğim için de özür dilerim.

 

[halit3]

dosyayı yeniden resimlerde dahil olmak üzere gönderiyorum komut düğmesine tıkla resimler gelecek resimlerin adı süz sayfasında yazıyor

 

[1Al2Ver]

dosyayı yeniden resimlerde dahil olmak üzere gönderiyorum komut düğmesine tıkla resimler gelecek resimlerin adı süz sayfasında yazıyor

Sayın halit3 tekrar merhaba,

Öncelikle sabrınız, anlayışınız ve yardımlarınız için bir kez daha teşekkür ederim,

Süz sayfasında A7'den seçme yapıp ilgili komut düğmesi tıklandığında A7'den seçilene ait resmin yanı sıra, diğer resimlerden de gelen olmakta, bu doğal mıdır ?

Amacım, A7'den seçilen isme ait 9 resmin açılması, dolayısıyla onlarca isim ve her birine ait 9'ar resim olacak, örneklersek A7'den seçilen isimler 70 tane ise ise bu isimlere ait te, en çok, 70*9 = 560 adet jpg resim var, ( hepsinde 9 adet resim olmayabiliyor )

A7'den "lüfer" seçilirse lüfere ait 9 resim,
A7'den "levrek" seçilirse levreke ait 9 resim, şeklinde olmalı,

Çözümünüz bunu yapıyor ve ben görememiş olabilirim,

Ancak yukarıda cevap aradığım soruda da görüleceği gibi, süzülen isim'e ait resimle beraber farklı isimdeki resimler de geldi ( A7'den lüfer seçtim, "Resimlerim" klasöründeki bütün resimler geldi )

Bu sorularıma da bir çözüm olursa, proje tamamlanacak,

Tekrar teşekkür ederim.

 

[halit3]

verdiğin örneklere ait resim adları bir yerde yazılı olmalı oradan bu resim isimlerini seçsin burada buna bir örnek varmı

 

[1Al2Ver]

verdiğin örneklere ait resim adları bir yerde yazılı olmalı oradan bu resim isimlerini seçsin burada buna bir örnek varmı

Sayın halit3 merhaba,

Örnek dosyamın "data" sayfasında F2:N aralığında kayıtlı,

Örneğin E2 de kayıtlı "lüfer" için F2:N2 aralığında, dosya yolu belli olan (C:\Documents and Settings\1Al2Ver\Desktop\BALIKLAR\lüfer1.jpg) resim yolu var,

Teşekkür ederim,

 

[halit3]

1-resimlerin hepsini aynı klasöre at
2-data sayfasına hangi resimin gurup olarak gelmesini istiyorsan aynı sutuna yaz
3-süz sayfasında mavi renkli açılan kutudan data sayfasındaki verilerden birini seç
veriye ait sutundaki bilgiler sıralanacaktır
4- kaydırıcı komut düğmesiylede resimleri değiştir

 

[1Al2Ver]

1-resimlerin hepsini aynı klasöre at
2-data sayfasına hangi resimin gurup olarak gelmesini istiyorsan aynı sutuna yaz
3-süz sayfasında mavi renkli açılan kutudan data sayfasındaki verilerden birini seç
veriye ait sutundaki bilgiler sıralanacaktır
4- kaydırıcı komut düğmesiylede resimleri değiştir

Sayın halit3 merhaba,

Öncelikle tüm zahmetlerinize sonsuz teşekkür etmek istiyorum, sağolun, çok emek harcamışsınız, ancak bir iki noktada düzenleme gerekiyor,

Benim arzu ettiğim yöntem ;

Aşamalar sırası ile ;

1) "Süz" sayfası I1 hücresinden, "Data" sayfası B sütunundaki Ana Grup'u seçeceğim,

2) "Süz" sayfası I3 hücresinden, "Data" sayfası C sütunundaki Alt Grup'u seçeceğim,

3) "Süz" sayfası I5 hücresinden, "Data" sayfası D sütunundaki Tipi seçeceğim,

4) "Süz" sayfası I7 hücresinden, "Data" sayfası E sütunundaki Çeşidi seçeceğim,

5) "Data" sayfası E sütunundaki (çeşidi) isme göre ( örneğin E2=Lüfer ) E2:N2 aralığına 9 adet resim yolu yada adı ekleyeceğim,

6) "Süz" sayfası I7'deki en son seçim olan isme ait ( örneğimizde Lüfer ) 9 adet resim "Süz" sayfasında C, E, G sütunlarına gelecek,

Yukarıda 4 maddede açıkladıklarınızdan hareketle ;

1) Resimlerin hepsi aynı klasöre kopyalandı,

2) "data sayfasına hangi resimin gurup olarak gelmesini istiyorsan aynı sutuna yaz" dan kastınız "Data(2)" sayfasının B sütununda, B6:B14 aralığı mıdır? Bunu da denedim, kastedilen "Data" sayfası ise resimlerin F2:N2 aralığında kayıtlı olması ve E2'ye ait olması gerekiyor,

3)"süz sayfasında mavi renkli açılan kutudan data sayfasındaki verilerden birini seç" ten hareketle "Çeşidi" seçildiğinde, (örneğin 13.sırada "Kıymalı" ibaresi var)
açılan listede yemeklerin çeşitleri ( bir nevi özellikleri ) listeleniyor, 13.sıradaki kıymalı ibaresi hangi yemeğin Ana Grup--Alt Grup--Tipi'ne ait, bu görülemiyor, yani hangi yemeğin kıymalısı bilinemiyor,

Sonuç olarak ; 4 seçenek sonucu elde edilen, en son seçilen "Çeşit" e göre, 9 adet resmin "Süz" sayfasında görülmesi gerekiyor,

Örneklersem;

1) Ana Grup---- Ana Yemek, Alt Grup----Balık, Tipi----Izgara, Çeşidi----Lüfer , burada en son seçilen "Çeşidi----Lüfer" dir, 9 adet resim Lüfer'e ait

2) Ana Grup---- Salata, Alt Grup----Mevsim, Tipi----Yeşillik, Çeşidi----Kaşarlı , burada en son seçilen "Çeşidi----Kaşarlı" dır, 9 adet resim Kaşarlı'ya ait

Bu yöntemle her defasında son seçim olan "Çeşidi" ne ait 9 resimi listelemek istiyorum,

Tekrar teşekkür ederim,

 

[halit3]

data 2 sayfasına baktınmı onun gibi data sayfasına guruplurı yazacaksın mavi açılan listeden hangi gurubu seçersen o gruba ait resimler gelecek

 

[1Al2Ver]

data 2 sayfasına baktınmı onun gibi data sayfasına guruplurı yazacaksın mavi açılan listeden hangi gurubu seçersen o gruba ait resimler gelecek

Evet baktım, formatı farklı,

Bu durumda

1) Data sayfasını sileyim ve Data(2) sayfası kalsın mı ?

2) Çeşide ait resimleri Data(2) sayfası'nda, (örneğin B5'te kayıtlı lüfer için) B6:B14 aralığına kayıt edeyim mi ?

Mümkün olabiliyor ise, son mesajımdaki gibi 4 adet açılır kutu yaparak ve resimleri sütunda değilde satırda (örneğin F2:N2 gibi) kayıt edip görmek olası mı ?

Herşey için tekrar teşekkür ederim, size zahmet veriyorum, lütfen kusuruma bakmayın,

Saygılarımla.

 

[halit3]

Data sayfasını Data(2) sayfası gibi yap satırda aramıyacak sutunda araıyacak
örnek ana yemek seçtiğin zaman
ANAYEMEKBALIKIZGARALüfer

I1 satırından başlayarak altalta getirecek ve bunlara ait resimler varsa resimler tobloda görükecek

 

[1Al2Ver]

Data sayfasını Data(2) sayfası gibi yap satırda aramıyacak sutunda araıyacak
örnek ana yemek seçtiğin zaman
ANAYEMEKBALIKIZGARALüfer

I1 satırından başlayarak altalta getirecek ve bunlara ait resimler varsa resimler tobloda görükecek

Sayın halit3 merhaba,

Önerilerinizi ek'li resimdeki gibi uyguladım,

Ancak I1'de tekli açılır kutu ile 4 ncü seçeneğe ait resimler nasıl gelecek çözemedim doğrusu, çünkü kod bunu yapmıyor,

Ana Grubu ; ANA Yemek, Alt Gurubu ; Et, TİPİ ; Köfte olan ancak Çeşidi'nde ayrılan ; Kadınbudu Köfte, İzmir Köfte ve Izgara Köfte için seçimi nasıl yapacağım, zamanınız olduğunda ek'li resime göre anlatırmısınız,

16.mesajımdaki doğrultuda bir çözüm olamıyor sanırım ?

Şu da olabilir, seçimi Data sayfasından yapmak ve Süz sayfasına aktarmak, yani 4 açılır kutu ile seçeyim, aktar düğmesi ile 4 ncü seçime ait olan 9 resimi aktarayım, her aktarmada bir önceki resimler silinsin, olabilir mi ?

Teşekkür ederim.