ÖRNEK DOSYADA AÇILAN LİSTEDEN SEÇİLENİ HÜCRELERE AYIRMA

[82_elbistan]

Üstatlarım bir konuda desteğinize ihtiyacım var yardım edersiniz sevinirim.
Sizlerle paylaştığım dosyada KASA sayfasında C3 hücresinde Ekran Alıntı resminde görüldüğü üzere açılan liste vardır.
Liste içinde seçmekte olduğum kişinin Hesap No ve isimleri KASA sayfasında Hesap Numarasını C3 hücresine Şirket adı yada isimleri de D3 hücresine alarak kayıt yamam gerekmektedir. lütfen yardım edebilir misiniz.

 

[Mahmut Bayram]

"Cari kayıt yapınız" butonuna şu kodları bağlayıp dener misiniz

With Me
        If .ListBox1.ListIndex >= 0 Then _
            Worksheets("KASA").Range("C3").Value = .ListBox1.List(.ListBox1.ListIndex, 0)
            Worksheets("KASA").Range("D3").Value = .ListBox1.List(.ListBox1.ListIndex, 1)
End With

 

[82_elbistan]

Üstadım ben denedim ama yapamadım örnek dosyada yapmak istediğinizi siz deneyebilir dosyayı tekrar ekleyebilirmisiniz.

 

[82_elbistan]

With Me If .ListBox1.ListIndex >= 0 Then _ Worksheets("KASA").Range("C3").Value = .ListBox1.List(.ListBox1.ListIndex, 0) Worksheets("KASA").Range("D3").Value = .ListBox1.List(.ListBox1.ListIndex, 1) End With

Üstadım ben denedim ama yapamadım örnek dosyada yapmak istediğinizi siz deneyebilir dosyayı tekrar ekleyebilirmisiniz.

 

[82_elbistan]

Yazdığınız kodu ListBox1 de handi kodtan sonra bağlamam gerektiğini yazabilirmisiniz.

 

[Mahmut Bayram]

UserFormunuz hata veriyor. Kodlarınız içerisinde combobox var ama userformda combobox nesnesi yok.
Forma tıklıyorum listboxa veri gelmiyor var olduğunu sorunsuz olduğunu varsayarak yukarıdaki kodları yazdım.
Siz de sorunsuz çalışıyor ise,
Cari kaydet butonuna çift tıklayın oradaki kodların ilk satırından sonra yukarıda verdiğim kodları ekleyin.


Veyahut formdaki tüm kodları silip aşağıdaki kodlar ile değiştirin

Private Sub BİLANÇO_Click()
With Me
        If .ListBox1.ListIndex >= 0 Then _
            Worksheets("KASA").Range("C3").Value = .ListBox1.List(.ListBox1.ListIndex, 0)
            Worksheets("KASA").Range("D3").Value = .ListBox1.List(.ListBox1.ListIndex, 1)
End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "80;100"
ListBox1.RowSource = "BİLANÇO!B5:C" & Sheets("BİLANÇO").Range("B65536").End(xlUp).Row
End Sub

 

[82_elbistan]

UserFormunuz hata veriyor. Kodlarınız içerisinde combobox var ama userformda combobox nesnesi yok.
Forma tıklıyorum listboxa veri gelmiyor var olduğunu sorunsuz olduğunu varsayarak yukarıdaki kodları yazdım.
Siz de sorunsuz çalışıyor ise,
Cari kaydet butonuna çift tıklayın oradaki kodların ilk satırından sonra yukarıda verdiğim kodları ekleyin.

Sayın Mahmut bey, öncelikle cevap yazdığınız için çok teşekkür ederim.
KASA sayfasında cari kaydet butonu BİLANÇO sayfasına yönlendiriyor orada yaptığım cari kayıtlarım da KASA sayfasına açılan liste ile görmem gerekiyor. Bu kodu başka bir yerden alıntı yaparak çalışma yapmıştım. Sizin kodları bahsettiğiniz şekilde yaptım ama liste açılsa bile C3 VE D3 hücrelerine atamıyor.
KASA sayfasında açılın liste içinde seçmekte olduğum kişinin Hesap No ve isimleri KASA sayfasında Hesap Numarasını C3 hücresine Şirket adı yada isimleri de D3 hücresine atayarak KASA sayfasında kayıt yapıyorum.
Bende liste sorunsuz çalışıyor ancak tek sorunum Hesap numarası ve Karşının daki ismini ayrı hücrelere atamak selam ve saygılar

 

[82_elbistan]

Arkadaşlar desteğinize ihtiyaç duyulmaktadır. Lütfen yardım

 

[82_elbistan]

??

 

[82_elbistan]

UserFormunuz hata veriyor. Kodlarınız içerisinde combobox var ama userformda combobox nesnesi yok.
Forma tıklıyorum listboxa veri gelmiyor var olduğunu sorunsuz olduğunu varsayarak yukarıdaki kodları yazdım.
Siz de sorunsuz çalışıyor ise,
Cari kaydet butonuna çift tıklayın oradaki kodların ilk satırından sonra yukarıda verdiğim kodları ekleyin.


Veyahut formdaki tüm kodları silip aşağıdaki kodlar ile değiştirin

Private Sub BİLANÇO_Click()
With Me
        If .ListBox1.ListIndex >= 0 Then _
            Worksheets("KASA").Range("C3").Value = .ListBox1.List(.ListBox1.ListIndex, 0)
            Worksheets("KASA").Range("D3").Value = .ListBox1.List(.ListBox1.ListIndex, 1)
End With
End Sub

Private Sub UserForm_Initialize()
ListBox1.ColumnCount = 2
ListBox1.ColumnWidths = "80;100"
ListBox1.RowSource = "BİLANÇO!B5:C" & Sheets("BİLANÇO").Range("B65536").End(xlUp).Row
End Sub

Sayın Üstadım Mahmut Bayram kodlar ile açılır liste açılmakta ancak Ekran Alıtısı-12 ile gösterilen hücrelere seçileni aktarmıyor yardımcı olursanız sevinirim.

 

[Orion1]

Eklediğiniz dosyada,Listboxa çift tıklayınca veriler c3 ve d3 hücrelerine gidiyor.

 

[82_elbistan]

Eklediğiniz dosyada,Listboxa çift tıklayınca veriler c3 ve d3 hücrelerine gidiyor.

Üstat ilginiz için teşekkür ederim. eklediğim dosyada isim d3 hücresine gidiyor ancak c3 hücresine hesap kodları gitmiyor.

 

[82_elbistan]

İsimi tıkladığım zaman C3 VE D3 hücrelerine seçilen ismin ve hesap kodunun hücrelerine gitmesi iyi olacaktır.

 

[Orion1]

Sayfa modülüne bir sürü kod yazılmış.Sorun orada.
Ne yapmak istediği anlaşılmıyor.
Bu kodları kim yazmışsa o yapar ancak.
Kolay gelsin.

 

[82_elbistan]

Teşekkür ederim üstat bu da bir yol oldu gereksiz kodları silerek tekrar deneyim.