Demirbaş Takip Programı Hazırlama, demirbaşların Excel UserForm üzerinden basit biçimde takip edilmesini sağlayan makro içerikli bir dosyadır. Verilerin formdan sayfaya, sayfadan forma aktarılması açısından da uygulamalı bir örnektir.
Dosyanın içeriği
- Sayfa1: Kayıtların tutulduğu veri sayfasıdır (A1:J1069). Başlık satırında SIRA NO, PC DEM. NO, YAZICI DEM. NO, IP NUMARASI ve DATA NO gibi alanlar görülür. Örnek kayıtlarda sıra numarası, PC ve yazıcı demirbaş numarası, IP numarası ve data numarası yer alır.
- UserForm1: Kayıt ekleme, silme, listeleme ve yazdırma işlemlerinin yapıldığı formdur. Form; kayıt bilgileri için TextBox kutuları, kayıtları listelemek için ListBox ve ComboBox içerir.
- ThisWorkbook: Dosya açıldığında formu otomatik gösteren kodu barındırır.
Makrolar
Dosya makro içerir, açarken makroları etkinleştirmeniz gerekir. Kodlarda dosya silme veya dışarıya bağlantı gibi zararlı bir işlem görülmemiştir.- Workbook_Open: Dosya açılınca Excel penceresini görünür yapar ve UserForm1'i açar.
- CommandButton1_Click (Kaydet): Kutulardan biri boşsa uyarı verir. Aksi halde bilgileri Sayfa1'de ilk boş satıra yazar, sıra numarasını bir artırır, ListBox ve ComboBox kaynaklarını günceller ve kutuları temizler.
- CommandButton2_Click (Sil): Seçili kaydın silinmesi için onay ister. Onaylanırsa ilgili satırı Sayfa1'den siler ve sıra numaralarını yeniden düzenler. Bu işlem sayfadaki kaydı kalıcı olarak kaldırır.
- CommandButton3_Click (Yazdır): Onay sorusundan sonra Sayfa1'i bir kopya olarak yazdırır ve yazdırma öncesi hücre hizalamalarını düzenler.
- ListBox1_DblClick, ComboBox1_Change ve diğer olaylar: Listeden kayıt seçme ve form kutularını doldurma işlemlerinde kullanılır.
Nasıl kullanılır
- Dosyayı açın ve makroları etkinleştirin; UserForm1 otomatik olarak görüntülenir.
- Yeni kayıt için tüm kutuları doldurun ve kaydet düğmesine basın. Boş kutu bırakırsanız program uyarı verir.
- Mevcut bir kaydı listeden veya ComboBox üzerinden seçerek bilgilerini forma getirin.
- Silmek için kaydı seçip silme düğmesine basın ve soruyu onaylayın.
- Yazdırmak için yazdırma düğmesini kullanın.