Eski bir web tarayıcısı kullanıyorsunuz. Bu veya diğer siteleri görüntülemekte sorunlar yaşayabilirsiniz.. Tarayıcınızı güncellemeli veya alternatif bir tarayıcı kullanmalısınız.
Merhaba arkadaşlar. Tüm bilgisayarlarımızda microsoft olmadığı için pek makro kullanmıyorum. Ancak bizi çok büyük bir dertten kurtaracak personel albümü için kullandığımız makro ile ilgili talebime ilişkin örnek klasörü ekte gönderiyorum. Makro kullanmadığım için umarım anlatabilmişimdir, Teşekkür ederim
Fotoğrafları, hücrelere eklemek yerine ilgili hücrelere "HÜRE AÇIKLAMASI" olarak eklemek daha pratik olur.
Fotoğrafların belgeyle aynı dizinde olduğu varsayıldı.
Bunun için;
-- İlgili sayfada uygun bir alana bir şekil/metin kutusu/düğme ekleyin,
-- ALT+F11 tuşlarına basarak VBA ekranını açın,
-- Belgede mevcut kodların tümünü silin,
-- İlgili sayfanın kod bölümüne aşağıdaki ikinci kodu yapıştırın.
-- Sayfafya eklediğiniz şekil/metin kutusu/düğmeye fareyle sağ tıklayıp MAKRO ATAyı seçin,
-- Açılacak küçük ekrandan aşağıdaki ikinci makronun adını seçerek işlemi onaylayın.
Ayrıca; ilgili sayfanın SAYFA YAPISInda aşağıdaki görselde yer alan kısmı "SAYFADA GÖRÜNTÜLENDİĞİ GİBİ" şeklinde ayarlarsanız yazdırırken de sorun yaşamazsınız.
Açılışta GİRİŞ sayfasının aktif sayfa olması için de aşağıdaki birnci kodu, VBA ekranında ThisWorkbook (BuÇalışmaKitabı) bölümüne yapıştırın.
Belgeyi de *xlsb, *.xlsm veya *xls gibi makro çalıştırabileceğiniz bir türde kaydettiğinizden emin olun.
Merhaba sayın Baran. Bir arkadaştan yardım alarak da uyguladım ama sonuç alamadım malesef. Uyguladığım ilişkin örnek dosyayı gönderiyorum. Bakabilir misiniz? size zahmet
İşlemin birden fazla sayfada uygulanacağından söz edilmemişti.
Ayrıca kodun sadece bir Modul'de yer alması yeterli olduğundan; kodu sadece Module2'de yer alıyor.
Belgeyi RAR'dan çıkartıp, fotoğraflarla aynı dizine kaydettikten sonra düğmeye tıklayarak kodu çalıştırabilirsiniz.
Kod eklediğim belgeye uygulandı ve sayfadaki düğmeyle ilişkilendirildi, kulanıma hazır.
Kodun yeniden düzenlenmiş hali
(tüm sayfalar taranır, F1 hücresi boş olmayan sayfalarda arama, fotoğraf ekleme işlemi yapılır)
aşağıdaki gibi.
Teşekkür ederim sayın Baran elinize sağlık. Sayı değiştiğinde önceki sayıdan az ise önceki eklenen resimleri kaldırmıyor. Size zahmet örnek dosyaya bakabilir misiniz?
Belge, yeniden gözden geçirildi, eski belge yerine bu cevap ekindeki belgeyi kullanın.
6 numaralı cevaptaki kod da bu belgedeki koda göre güncellendi.
Fotoğrafı olmayanlar için, bu mesaj ekindeki YOK.webp isimli fotoğrafı, fotoğraflarınızın bulunduğu dizine kaydedin.
Belgedeki kodun çalışma sistemi:
-- F1 hücresi dolu olan sayfalarda işlem yapılır.
-- Fotoğraf ekleme işlemi başlarken, varsa önceki resimler (hücre açıklamaları) silinir, ardından var/yok kontrolüne göre fotoğraf ekleme işlemi yapılır.
-- Sicil Bilgisi dolu olan ama fotoğrafı olmayanlar için, yukarıda belirttiği YOK.webp görüntüsü kullanılır.
-- Fotoğraf için ayrılmış bir satırdaki hücrelerin tümü boşsa, bu satırın 1 önceki, kendisi ve 1 sonraki satır gizlenir.
-- Fotoğrafı olmayanlar GİRİŞ sayfası S sütununa listelenir.
Merhaba sayın Baran sizin ve forumdaki arkadaşların Ramazan bayramı mübarek olsun.
Emekleriniz için tekrar teşekkür ederim elinize sağlık. Belge son haliyle tamam hepsini yükledim sorunsuz çalıştı.
Sadece ilk örnek dosya için yazdığınız hangi sayfada kapatılırsa kapatılsın açtığımızda GİRİŞ sayfasının açılması kodu eklenmemiş
Ancak daha önce öngöremediğim 2 istek daha ortaya çıktı sayın Baran. Örnek dosyada belirttiklerimi de ekleyebilirsek takip açısından sıkıntı kalmayacak. Tekrar teşekkür ederim her şey için.
Konu sahibinin isteği üzerine, örnek dosyaya ilişkin bağlantı tarafımca silinmiştir. Ömer BARAN 26.05.2020 00:03
.
Giriş sayfasının açılmasıyla ilgili kod ve açıklama 2 numaralı cevapta var.
Ortaya çıkan yeni ihtiyaçların ne olduğuna dair bir açıklama göremedim.
Belgede, hangi sayfa, hangi alan, istek nedir?
.
Bu konu açılış mesajına ilişkin kodlamalarda;
-- Liste sayfası hiç kullanılmıyor.
-- Giriş sayfası sadece S sütunu kullanılıyor.
-- Diğer sayfalarda işlem yapılıyor (F1 hücresi dolu olan sayfalar)
-- Bu işlemler sırasında da adet/unvan vs kontrolü yapılmıyor.
Kodlama basitçe şöyle; F1 hücresi dolu olan sayfalarda, 3'üncü satırdan başlayarak 3 satırlık satır ritimi ve
B sütunundan başlayarak da 2 sütünluk sütun ritimine göre SAYI olan hücrelerde işlem yapılıyor ve bu SAYI
ile aynı isme sahip fotoğraf varsa bunu açıklamaya eklemek.
Yani, yeni isteğinizle mevcut fotoğraf ekleme kodlaması arasında herhangi bir bağlantı/ortak nokta yok.
Bu yeni istekleriniz için tamamen ayrı bir kodlama yapılması gerekecek.
Bu kod, işlemin tetiklenmesi bakımından mevcut fotoğraf ekleme makrosuna bağlanabilir tabi ama
belirttiğim gibi bu yeni işlem için yeni bir makro oluşturacak veya formül ile çözüm bulunacak.
.
Liste sayfasında; -- K4 hücresine (adeti 10'dan fazla olanlar için sıra numarası elde edilir) =EĞER(VE(TOPLA.ÇARPIM(--($F$4:$F4&$D$4:$D4=F4&D4))=1;TOPLA.ÇARPIM(($F$4:$F$64=F4)*($D$4:$D$64=D4))>10);MAK($K$3:K3)+1;"") -- L4 hücresine (mükerrer sicil numaraları için sıra numarası elde edilir) =EĞER(VE(EĞERSAY($B$4:B4;B4)=1;EĞERSAY($B$4:$B$64;B4)>1);MAK($L$3:L3)+1;"") Giriş sayfasında da bu sıra numuraları üzerinden istediğiniz veriler çekilebilir.
.
Merhaba sayın Baran nasılsınız? Mükerrer kayıtlar için verdiğiniz formülü uygulayıp yardımcı alan ile Giriş sayfası P sütununa aldım
Belgedeki açılan fotoğraf alanından fazla olanları tespit etmek için ise bir şeyler yaptım ama tam olarak beceremedim. Ekli dosyada bahsettiğim şekilde yapabilir miyiz? acaba bakabilir misiniz?
Biraz zor oldu ama yardımcı alan kullanarak belgedeki açılan fotoğraf alanından fazla olanları tespit etmek için formül işini hallettim sayın Baran. Bununla birlikte tamamen kullanmaya başladığımızda bir sorun ile karşılaşmaz isek albüm tamamlanmış oldu. Her şey için teşekkür ederim.
Merhaba sayın Baran nasılsınız. Sicil ile klasörden resim çağırmayla ilgili makro tamam elinize sağlık bizi büyük bir dertten kurtardınız. Daha öncede bahsettiğim gibi tüm bilgisayarlarda microsoft olmadığından önceki belgeyi farklı kaydet ile web formatına çevirip o şekilde paylaşıyorduk. Ancak anladığım kadarıyla yazmış olduğunuz makro resimleri açıklama ekle formatında eklendiği için web formatına çevirdiğimizde resimleri göstermiyor. Bu şekilde olabileceğini öncesinde tahmin edemedim kusura bakmayın. Size zahmet resim ekleme formatını değiştirerek web formatına çevirdiğimizde de resimleri gösterecek şekilde düzenleyebilir misiniz dosyayı.
Örnek dosyayı gönderiyorum. Teşekkür ederim.
