Resim Ekle, Sil, PDF Oluştur

Dosyanın içeriği​

• Sayfa1: A1:O19 aralığında ürün listesi bulunur. Resimler A sütununa yerleştirilir, ürün kodları C sütunundan okunur. N ve O sütunları makronun çalışırken kullandığı geçici sütunlardır ve işlem sonunda temizlenir.
• Module1: Resim_Ekle makrosu.
• Module2: Sil makrosu.
• Module3: PDF makrosu.

Kullanılan formüller​

=EĞERSAY($C$2:$C$19;C2)

=COUNTIF($C$2:$C$19,C2)

Makrolar​

• Resim_Ekle: Önce sayfadaki adı "Pic" ile başlayan eski resimleri siler (Picture 22 adlı resim korunur), A sütunundaki birleştirmeleri kaldırır ve satır yüksekliklerini sıfırlar. Aynı ürün kodunun tekrar ettiği satırları A sütununda birleştirir ve toplam yüksekliği 90 birimi o satır sayısına bölerek ayarlar. Ardından dosyanın bulunduğu klasördeki resim alt klasörünü tarar. Dosya adının ilk boşluğa kadar olan kısmı C sütunundaki kodun ilk kelimesiyle eşleşirse resmi A sütunundaki hücreye sığacak boyutta ekler. Eşleşen satırlara geçici olarak "OK" yazılır.
• Sil: Adı "Pic" veya "Res" ile başlayan resimleri siler (Picture 22 hariç), A sütunundaki birleştirmeleri kaldırır ve satır yüksekliklerini otomatik ayarlar.
• PDF: Etkin sayfayı, dosya adıyla birlikte kullanıcının masaüstüne PDF olarak kaydeder ve kayıt sonunda dosyayı açar.

Nasıl kullanılır​

1. Dosyayı açıp makroları etkinleştirin.
2. Dosyanın bulunduğu klasörde resim adlı bir klasör oluşturun; resim dosyalarını "ÜrünKodu açıklama.jpg" gibi, adı ürün koduyla başlayıp boşlukla devam edecek biçimde adlandırın.
3. C sütununa ürün kodlarını girin.
4. Alt+F8 ile Resim_Ekle makrosunu çalıştırın.
5. Resimleri kaldırmak için Sil, PDF çıktısı için PDF makrosunu çalıştırın.