Sicil Numarasına Göre Fotoğraf Ekleme

  • Konuyu başlatan Konuyu başlatan teyadih
  • Başlangıç tarihi Başlangıç tarihi
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

teyadih

Kullanıcı
Excel Versiyonu
Excel 2016
Excel Sürümü
32 Bit
Excel Dili
Türkçe
Merhaba arkadaşlar.
Makro çalıştır düğmesine tıkladığımda
1.ALBÜM - Ayrılanlar çalışma kitabındaki
Ayrılan Hakim sayfasında B-D-F-H-J sütunlarındaki rakamlara ait klasördeki resimleri örnekteki gibi rakamların bulunduğu kutucuğa sığacak şekilde alacak
ve L2-l1500 arası boş olan sütunları gizleyecek
Fotoğrafı olmayanları ise örnekteki gibi Giriş sayfası S sütununa yazacak ve sayfa koruması yapacak makroya ihtiyacım var.
Aynı işlemi Ayrılan Personel ve Ayrılan Hakim Adayı sayfasına da yapması gerekiyor.
Benzer çalışmayı aşağıdaki belirttiğim konuda sayın Baran ile yapmıştık. Ancak sanırım satır çoğaltma işlemi yaptığımdan veya boş sayfaları silme yaptığımdan dolayı hata verdiği ve çözmediğim için yeniden konu açmak zorunda kaldım.
Umarım anlatabilmişimdir?
Teşekkür ederim.

Sicile Göre Klasörden Resim Çağırma

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
  • Beğen
 
Word Belgelerindeki Başlıkları Kontrol Etme
ADO ile Klasördeki Dosyalardan Veri Çekme

Ekli dosyalar

Tarihe göre sırala Oylamaya göre sırala
Sn. @teyadih

-- Bağlantı adresini verdiğiniz eski konu sayfasında son cevabımdaki ( 28 numaralı cevap ) kodun baş tarafındaki
g.Range("S4:S" & Rows.Count).ClearContents
satırında yer alan S4 kısmını S3 olarak değiştirin.

-- Fotoğrafı olmayan kişiler için, aynı klasörde ismi YOK.jpg olan, diğer fotoğraflarla benzer boyutta boş bir fotoğraf oluşturun.

Listeleme kısmına bakmadım, fotoğraf ekleme/boyutlandırma/konumlandırma işlemleriyle ilgili olarak ben başka bir sorun göremiyorum.
 
Oyla 0 Olumsuz oyla
Merhaba sayın Baran. Makro bu haliyle tamam teşekkür ederim elinize sağlık.
Mevcut makroda S sütununa fotoğrafı olmayanların isimlerini yazıyor ancak bazı hakim ve personelin fotoğrafları yok elimizde.
Fotoğrafı elimizde olmayanların sicilini V sütununa yazdım. Sürekli uyarı vermemesi için V sütununda sicili yazan kişileri S sütunundaki fotoğrafı olmayanlara vermeyecek şekilde güncelleyebilir misiniz?
 

Ekli dosyalar

Oyla 0 Olumsuz oyla
Eksik mi yazdım sayın Baran. Makro fotoğrafı olmayanları ekliyor onda sıkıntı yok.
Ancak benim talebim ekli dosyada da detaylı olarak açıkladığım üzere elimizde fotoğrafı olmayanları yazdığım V sütunundakileri S sütununda yazmaması.
 
Oyla 0 Olumsuz oyla
@teyadih

Anladığıma göre şöyle işlem yapın.

İşlem1: Kodun sonuna yakın yerde bulunan şu bölümü bulun ve
END IF satırının başına sonraki: ibaresini ekleyin ( : işaret, dahil )
Kod: 
İndirmek için giriş yapmanız gerekmektedir.
(4 satır)

İşlem 2:
Eklenecek kod satırı:
If IsNumeric(Application.Match(shf.Cells(sat, sut), g.[V:V], 0)) Then GoTo sonraki

-- GİRİŞ sayfası V sütunundaki isimler için YOK.jpg kullanılmayacaksa koddaki şu kısmın hemen altına ekleyin.
With shf.Cells(sat, sut)
If .Text <> "" Then

-- GİRİŞ sayfası V sütunundaki isimler için de YOK.jpg kullanılacaksa şu satırın hemen altına ekleyin
gsat = WorksheetFunction.Max(4, g.Cells(Rows.Count, "S").End(3).Row + 1)
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Benzer Konular Popüler İçerikler Daha Fazlası
Geri
Üst