Bu dosya, ComboBox'tan seçilen fasoncu firmaya ait iş kayıtlarını OptionButton seçeneklerine göre ListBox'a listeleyen ve seçilen kaydın masraf değerini form üzerinden değiştirmeye yarayan bir VBA kullanıcı formu örneğidir. Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir.
Dosyanın içeriği
- data: Fasoncu firma adı ve masraf türü listeleri (AMERİKAN CİLT, BASKI, BIÇAK, EXTRA1, EXTRA2 gibi). Fasoncu adları ComboBox'ın kaynağıdır.
- istakip: İş takip tablosu. Başlık satırında NO, SİPARİŞ TARİHİ, İŞİN ADI ve AMERİKAN CİLT, BIÇAK, EXTRA2, GOFRE, İPLİK DİKİŞ, KENAR YALDIZ, KLİŞE, LAMİNASYON, NUMARATÖR gibi masraf sütunları yer alır. Her satırda iş numarası, tarih, işin adı ve masraf tutarları bulunur.
- frmduzelt: ComboBox, üç OptionButton, üç ListBox, TextBox ve değiştirme düğmesinden oluşan kullanıcı formu.
Kullanılan formüller
- AI2 hücresinde masraf sütunlarının toplamı hesaplanır:
- AK2 hücresinde AJ2 ile AI2 arasındaki fark alınır:
=(AJ2-AI2)
Makrolar
- formAc (Module1): frmduzelt formunu açar. Makro listesinden çalıştırılır veya bir düğmeye atanabilir.
- UserForm_Initialize: ComboBox kaynağını data sayfasının B sütununa bağlar ve varsayılan seçenek olarak OptionButton2'yi işaretler.
- ComboBox2_Change ve OptionButton1-3_Click: istakip sayfasının D sütununda seçilen fasoncuyu arar. OptionButton2 tüm kayıtları, OptionButton1 sonuç sütunu boş olan kayıtları, OptionButton3 ise AP1 hücresindeki değerden büyük kayıtları listeler.
- ListBox1_DblClick: Seçilen işin satırını bulur ve dolu masraf sütunlarının başlıklarını ListBox3'e aktarır. Kayıt seçilmemişse uyarı verilir.
- ListBox3_DblClick: Seçilen masraf başlığının mevcut değerini TextBox'a getirir.
- CommandButton2_Click: TextBox'taki değeri ilgili hücreye yazar ve işlemin tamamlandığını bildirir.
- UserForm_QueryClose: Form kapanırken istakip sayfasındaki CC1:DD20000 aralığının içeriğini siler.
- Class1 (SatirSay): Seçilen başlığın birinci satırdaki sütun sırasını bulur.
Nasıl kullanılır
- Dosyayı açıp makroları etkinleştirin.
- formAc makrosunu çalıştırın.
- ComboBox'tan fasoncuyu seçin, OptionButton ile listeleme ölçütünü belirleyin.
- ListBox'taki işe çift tıklayın; masraf başlıkları listelenir.
- Başlığa çift tıklayın, TextBox'ta yeni değeri yazın ve değiştirme düğmesine basın.