UserForm ile Çok Kalemli Faturayı Tek Seferde Kaydetme

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

YAMAHATO

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Herkese merhaba arkadaşlar.
Kendime ufak bir ön muhasebe programı yapıyorum.
Takıldığım yer şu. Malum faturalar hep tek kalem gelmiyor. Ben sınırlı bilgimle her seferinde tek kalem girecek şekilde
kodları hallettim. Peki aynı anda 2 veya daha çok kalemli faturayı nasıl girip kaydedebilirim. Ben bunu bulamadım.

Yardımlarınızla çözeceğim eminim ama en kötü ihtimalle bir tane arama kutusu yapacağım fatura numarasını girdiğimde yandaki onay
kutuculuğuna tıklayıp o fatura numaralasının sahibi olan firmanın değişmeyen bilgilerini userforma çağıracağım böylece her seferinde
sadece faturada satın alınan kalemleri gireceğim.
 

Ekli dosyalar

Çözüm
ExcelDepo

ExcelDepo

Merhaba,

Faturadaki kalemler formda bir listede biriktirilip KAYDET düğmesiyle tek seferde kaydedilebilir. Bunun için UserForm3'e bir ListBox (ListBox2) ve iki düğme (CommandButton4: KALEM EKLE, CommandButton5: KALEMİ SİL) eklenmesi, ardından formun kod sayfasındaki mevcut CommandButton1_Click yordamının yerine aşağıdaki kodun yapıştırılması yeterlidir. TextBox3_Change ve ListBox1_Change yordamları yerinde kalır (ListBox1_Change için Notlar bölümündeki küçük değişiklik önerilir).

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (10 satır). Giriş Yap
Tarihe göre sırala Oylamaya göre sırala
Merhaba,

Faturadaki kalemler formda bir listede biriktirilip KAYDET düğmesiyle tek seferde kaydedilebilir. Bunun için UserForm3'e bir ListBox (ListBox2) ve iki düğme (CommandButton4: KALEM EKLE, CommandButton5: KALEMİ SİL) eklenmesi, ardından formun kod sayfasındaki mevcut CommandButton1_Click yordamının yerine aşağıdaki kodun yapıştırılması yeterlidir. TextBox3_Change ve ListBox1_Change yordamları yerinde kalır (ListBox1_Change için Notlar bölümündeki küçük değişiklik önerilir).

Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (84 satır). Giriş Yap

Kod nasıl çalışır?
  1. Fatura tarihi (TextBox2), firma cari kodu (TextBox8) ve fatura no (TextBox4) faturanın ortak bilgileridir; bir kez girilir ve kalem eklenirken silinmez.
  2. Her kalem için VH kodu, parçanın durumu, adet, birim maliyet ve KDV oranı girilip KALEM EKLE düğmesine basılır. Kalem ListBox2'ye eklenir, yalnız kalem kutuları temizlenir ve sıradaki kalem girilebilir.
  3. Yanlış eklenen kalem listeden seçilip KALEMİ SİL düğmesiyle çıkarılır.
  4. KAYDET düğmesi listedeki her kalemi GİREN ÜRÜN sayfasında A sütunundaki son dolu satırın altına, ortak fatura bilgileriyle birlikte ayrı bir satır olarak yazar. Sütunlar mevcut kodunuzdakiyle aynıdır: A tarih, B cari kod, D fatura no, E durum, F VH kodu, J adet, K birim maliyet, L KDV oranı.
  5. Tarih, tarih değeri olarak; adet, birim maliyet ve KDV oranı sayı olarak yazılır. Böylece O sütunundaki toplam maliyet ve STOK sayfasındaki ETOPLA formülleri bu değerleri doğru hesaplar.

Notlar
  • Tek kalemli fatura da aynı yolla kaydedilir: bir kalem eklenip KAYDET düğmesine basılır.
  • Kalem kutularından biri boşsa ya da adet/maliyet/KDV sayı değilse uyarı verilir ve kalem listeye eklenmez. Başlık bilgisi eksikse, tarih geçersizse ya da listede kalem yoksa uyarı verilir ve sayfaya hiçbir şey yazılmaz.
  • Mevcut ListBox1_Change yordamının ilk satırındaki TextBox2.Text = "" ifadesi, firma arama kutusuna her yazıldığında fatura tarihini siler. Bu ifadenin TextBox8.Text = "" olarak değiştirilmesi önerilir; böylece tarih korunur, yalnız firma cari kodu temizlenir.
  • KDV oranı sayfadaki mevcut kayıtlarla aynı biçimde (ör. 0,18) girilmelidir.
 
Oyla 0 Olumsuz oyla
Çözüm
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

Benzer konular Benzer kaynaklar Benzer dosyalar

Geri
Üst