Mahsup Fişine Hesap Kodu Arama Penceresi Ekleme

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

umit1907

Kullanıcı
Katkı: %0
Excel Versiyonu
Excel 2016
Excel Sürümü
64 Bit
Excel Dili
Türkçe
Merhabalar,
ekte genel muhasebede kullanılan mahsup fişi tarzında bir çalışma yapmaya çalışıyorum fakat hesap kodlarını elle yazmak yerine bir arama penceresi ekleyip oradan seçebilirmiyiz. Yardımlarınız için şimdiden teşekkürler.
 

Ekli dosyalar

Çözüm
ExcelDepo

ExcelDepo

Merhaba, hesap kodları için bir UserForm üzerinde arama kutusu ve liste kullanılabilir. mahsup sayfasında C4:C50 aralığındaki bir hücreye çift tıklandığında pencere açılır; yazılan harflere göre hesap sayfasındaki kodlar süzülür ve seçilen kod hücreye yazılır.

VBA penceresinde Insert > UserForm ile yeni bir form eklenir, Name özelliği frmHesap yapılır. Forma bir TextBox (TextBox1) ve altına bir ListBox (ListBox1) yerleştirilir. Forma sağ tıklanıp View Code seçilerek aşağıdaki kod yapıştırılır:
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (13 satır). Giriş Yap
Tarihe göre sırala Oylamaya göre sırala
@umit1907
Birşeyler yapılabilir ama zahmetli/ince kodlamalar isteyen bir çalışma olur gibi görünüyor. Özel emek/zaman ayırıp uğraşmak lazım.
Bence işlem için bir TextBox ve Listbox nesnesi kullanmak doğru olur.
 
Oyla 0 Olumsuz oyla
Merhaba, hesap kodları için bir UserForm üzerinde arama kutusu ve liste kullanılabilir. mahsup sayfasında C4:C50 aralığındaki bir hücreye çift tıklandığında pencere açılır; yazılan harflere göre hesap sayfasındaki kodlar süzülür ve seçilen kod hücreye yazılır.

VBA penceresinde Insert > UserForm ile yeni bir form eklenir, Name özelliği frmHesap yapılır. Forma bir TextBox (TextBox1) ve altına bir ListBox (ListBox1) yerleştirilir. Forma sağ tıklanıp View Code seçilerek aşağıdaki kod yapıştırılır:
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (53 satır). Giriş Yap
Ardından mahsup sayfasının kod sayfasındaki ComboBox1_Change, ComboBox1_Click, ComboBox1_GotFocus ve Worksheet_SelectionChange yordamları silinir (COMBO makrosu olduğu gibi kalabilir), yerine şu kod yapıştırılır:
Kod:
Bu kodu görmek için giriş yapmanız gerekmektedir (7 satır). Giriş Yap
Kod nasıl çalışır?
  1. C4:C50 aralığında tek bir hücreye çift tıklanınca hücrenin düzenleme moduna geçmesi engellenir ve frmHesap açılır; tıklanan hücre Hedef olarak forma aktarılır.
  2. Form açılırken hesap sayfasında B sütunundaki son dolu satıra kadar A sütunundaki "kod-ad" değerleri listeye alınır.
  3. TextBox1'e yazılan her harfte liste yeniden süzülür; arama büyük/küçük harfe bakmaz ve kodun ya da hesap adının herhangi bir yerinde geçen metni bulur (ör. "kasa", "100.01" veya "usd").
  4. Listede çift tıklanan ya da Enter tuşuna basılan kayıt Hedef hücreye yazılır ve form kapanır. Arama kutusundayken aşağı ok tuşu listeye geçer; tek sonuç kalmışsa Enter doğrudan onu seçer.
Notlar
  • Sayfadaki eski ComboBox1 nesnesi Geliştirici > Tasarım Modu açıkken seçilip silinebilir; yeni yöntemde gerekmez.
  • Hücreye yazılan değer muavin sayfasındaki DÜŞEYARA (VLOOKUP) ve hesap sayfasındaki ETOPLA (SUMIF) formüllerinin aradığı "kod-ad" biçimiyle aynıdır, bu nedenle mevcut hesaplamalar değişmeden çalışır.
  • Fiş satırı 50'nin üzerine çıkarsa C4:C50 aralığı genişletilebilir.
 
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