Ürün Kodu Oluşturma

Bu dosya, A sütununa yazılan stok adları için B sütununda otomatik ürün kodu üretir. Kodlar bir makro ile oluşturulur; her kod 10 büyük harften (A-Z) oluşur ve listedeki başka bir kodla aynı olmaz.

Dosyanın içeriği​

• Sayfa1: A1 hücresinde STOK ADI başlığı bulunur. Ürün adları A2 hücresinden başlayarak aşağı doğru girilir, üretilen kodlar yanındaki B sütununa yazılır. Sayfanın kullanılan alanı A1:B26 aralığıdır.
• Module1: Urun_Kodu_Olusturma adlı makroyu barındıran VBA modülüdür.

Makrolar​

Dosya makro içerir (.xlsm); açarken makroları etkinleştirmeniz gerekir. Makro dosya silme ya da dışarıya bağlantı gibi işlemler yapmaz, yalnızca Sayfa1 üzerinde çalışır.

• Urun_Kodu_Olusturma: A2 hücresinden A sütunundaki son dolu satıra kadar her ürün için sırayla çalışır. Her ürün için Rnd ve Chr fonksiyonlarıyla 65-90 aralığındaki karakter kodlarından (A-Z) 10 harf seçip birleştirir. Oluşan kod CountIf ile B sütununda aranır; daha önce kullanılmamışsa ürünün yanındaki B hücresine yazılır, kullanılmışsa yeni bir kod üretilir. Böylece aynı kod iki üründe tekrar etmez.

Nasıl kullanılır​

1. Dosyayı açın ve makroları etkinleştirin.
2. Sayfa1'de A2 hücresinden başlayarak stok adlarını alt alta yazın.
3. Alt+F8 tuşlarıyla makro listesini açın, Urun_Kodu_Olusturma makrosunu seçip Çalıştır düğmesine basın.
4. Her stok adının yanındaki B sütununda ürün kodu oluşur.

Makro her çalıştırıldığında B sütunundaki mevcut kodlar korunmaz; dolu hücrelerin üzerine yeni kodlar yazılır. Kodları saklamak için çalıştırmadan önce değerleri kopyalamanız önerilir.