Açılır form

[bydogannn67]

Merhabalar,

ekteki dosya ile banka hareketlerini muhasebe programına aktarmak istiyorum

burada yardıma ihtiyacım olan konu AKTARMA sayfasında muhasebe kodu sütünunda ilgili hücreye tıkladığımda HESAP PLANI sayfasındaki muhasebe hesap planını açılır bi pencere ile ilgili hesabı seçmek istiyorum

veri doğrulama ile yapayım dedim HESAP PLANI sayfasından sadece bir sütün seçebildiğimiz için olmadı hesap isminide görmem lazım nasıl yapabılırız form ilede olabilir fikriniz varmıdır yardımcı olabilirmisiniz rica etsem

 

[Orion1]

Dosyanız ektedir.

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim k As Range, sh As Worksheet, isim As String
If Intersect(Target, Range("E2:E" & Cells(Rows.Count, "E").End(xlUp).Row)) Is Nothing Then Exit Sub
Set sh = Sheets("HESAP PLANI")
Cancel = True
Set k = sh.Range("A2:A" & Rows.Count).Find(Target.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    isim = k.Offset(0, 1).Value
End If
UserForm1.TextBox1 = Target.Value
UserForm1.TextBox2.Value = isim
UserForm1.Show
End Sub

 

[bydogannn67]

Hocam emeğiniz için teşekkürler yalnız formda hesap kod seçebilsek süper olur

 

[Orion1]

Hocam emeğiniz için teşekkürler yalnız formda hesap kod seçebilsek süper olur

Dosyanız ektedir.

 

[bydogannn67]

Hocam sadece AKTARMA sayfasındaki kodları seçebiliyoruz

HESAP PLANI sayfasındaki tüm hesap planını görebilme şansımız varmıdır

Birde hesap kodlarının isimlerini ezbere bilmediğimiz için seçme kısmında hem hesap kodu hemde hesap ismi bulunabilirmi

 

[Orion1]

Hocam sadece AKTARMA sayfasındaki kodları seçebiliyoruz

HESAP PLANI sayfasındaki tüm hesap planını görebilme şansımız varmıdır

Birde hesap kodlarının isimlerini ezbere bilmediğimiz için seçme kısmında hem hesap kodu hemde hesap ismi bulunabilirmi

Butona bastıktan sonra listboxtan seçim yapınız.
Dosyanız ektedir.

 

[bydogannn67]

Hocam ilgili hücrenin üstünde iken butona basıp listboxta ilgisi alan seçindiğinde hücreye Muhasebe kodunu verse uygun olurmu

 

[Orion1]

Hocam ilgili hücrenin üstünde iken butona basıp listboxta ilgisi alan seçindiğinde hücreye Muhasebe kodunu verse uygun olurmu

Dosya ektedir.

 

[bydogannn67]

Emeğiniz için teşekkürler hocam çok sağolsun

 

[bydogannn67]

Hocam Çalışmaya textbox4 ekledim hesap isimleri arasında arama yapmak, işi biraz daha kolaylaştırmak istiyorum ama istediğim sonucu alamıyorum hata yaptığım yer neresidir

Private Sub TextBox4_Change()
Set s1 = Sheets("HESAP PLANI")
On Error Resume Next
TextBox4 = Evaluate("=büyükharf(""" & TextBox4 & """)")
TextBox4 = Evaluate("=upper(""" & TextBox4 & """)")
ListBox1.Clear
Dim bul As Range
b = 0
Set bul = s1.Range("B1:B65000").Find(TextBox4 & "*", , xlValues, xlPart, , , False)
If Not bul Is Nothing Then
Application.EnableEvents = False
fg = bul.Address
Do
If LCase(bul) Like LCase(TextBox4 & "*") Then
ListBox1.List(b, 1) = s1.Cells(bul.Row, "B")
b= b + 1
End If
If bul Is Nothing Then Exit Do
Set bul = s1.Range("B2:B65000").FindNext(bul)
Loop While Not bul Is Nothing And bul.Address <> fg
Application.EnableEvents = True
End If
End Sub

 

[bydogannn67]

yardımlarınızı bekliyorum

 

[PLİNT]

Merhaba
Kodların içinde; aşağıdaki gibi değişikliği, denermisiniz?

'...
Do
If LCase(bul) Like LCase(TextBox4 & "*") Then
[COLOR="Red"]ListBox1.AddItem s1.Cells(bul.Row, "B")[/COLOR]
End If
If bul Is Nothing Then Exit Do
'...

 

[igultekin2000]

Arama

yardımlarınızı bekliyorum

muhasebeci olarak güzel düşünülmüş bir işlem. özellikle excel'den programa veriaktarmak için. basit bir arama combobox' u ilave ettim. aslında aramanın yardımcı buton olmadan direk listbox'tan yapılma imkanı olsa, yani list box aktiften kod değilde isim yazarak combobox ve textbox' a aktarsa daha pratik olurdu. ama ben de o bilgi yok.
http://s6.dosya.tc/server8/18nqht/BANKA_ISLEME.rar.html