[Yardım]  Comboboxa bağlı textbox

Açılır liste kutusu.

Comboboxa bağlı textbox

İleti#1)  xemdarx » 21 Şub 2018 15:11

Selamlar,
Combobox değerine göre textboxlara veri çekip kaydet butonu olmadan üzerinde değişiklik yapabilir miyiz?. Yardımcı olur musunuz?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Comboboxa bağlı textbox

İleti#2)  Ali ÖZ » 22 Şub 2018 14:14

Merhaba,
Forumda "Bağlantılı Combobox" şeklinde arama yapın.
Allah bize yeter, O ne güzel vekildir.
حَسْبُنَا اللهُ وَنِعْمَ الْوَكِيلُ
Kullanıcı avatarı
Ali ÖZ
Forum Moderatörü
 
Adı Soyadı:Ali ÖZ
Kayıt: 17 Oca 2013 12:16
Konum: SAKARYA
Meslek: Yazılım
Yaş: 37
İleti: 9532
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Comboboxa bağlı textbox

İleti#3)  xemdarx » 23 Şub 2018 00:15

Selamlar Ali Bey,
İlgili konuyu çözdüm galiba. Fakat textboxa yazarken excele veri aktarılmasını sağlayamadım. Ben de kaydetme butonu ile yaptım. Yine de incelemeniz için paylaşıyorum.
Size zahmet olacak. Paylaştığım ikinci dosyada bana yardımcı olabilir misiniz? Combobox listesini iki ayrı sütundan gelen veriyi birleştirerek listeleyenilir miyiz ? Teşekkürler.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Comboboxa bağlı textbox

İleti#4)  xemdarx » 24 Şub 2018 11:50

Yardımcı olabilir misiniz?
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

REKLAM
Excel Logo XML Oluşturucu
Logo Object Designer ile Uyarlama

Cevap: Comboboxa bağlı textbox

İleti#5)  askmadige34 » 24 Şub 2018 12:36

Kod: Tümünü seç
Private Sub ComboBox1_Change()
'*****************açılır liste
Dim Bak As Integer
Dim i As Integer
For Bak = 2 To 7
If Not ThisWorkbook.Sheets("veri").Cells(Bak, 1) = "" Then
        ComboBox2.AddItem ThisWorkbook.Sheets("veri").Cells(Bak, 1) & " " & ThisWorkbook.Sheets("veri").Cells(Bak, 2)
        ComboBox2.ColumnWidths = 16
        ComboBox2.ListWidth = 50
End If
Next
'********************************
End Sub




Private Sub ComboBox2_Change()
[A1] = Split(ComboBox2.Text, " ")(1) 'Hücreye yazması için
TextBox1.Text = Split(ComboBox2.Text, " ")(1) 'Textboxa yazması için
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Comboboxa bağlı textbox

İleti#6)  xemdarx » 24 Şub 2018 18:10

Ali Bey,
Denedim fakat yılı değiştirince comobobox2'deki değer hep aynı çıkıyor. Yardımınız için teşekkürler..
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: Comboboxa bağlı textbox

İleti#7)  xemdarx » 24 Şub 2018 20:40

Ali Bey, siz combobox2 listesini alırken 1. sütunu ve 2. sütunu almışsınız. Ben combobox1 değerine göre ilgili sütunu çekmesini kastetmistim. Size zahmet olacak, yardım ediniz lütfen. Teşekkürler
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Comboboxa bağlı textbox

İleti#8)  askmadige34 » 24 Şub 2018 20:58

Kod: Tümünü seç
Private Sub ComboBox1_Change()
Dim Bak As Integer
Dim Sutun, Satir As Integer
Dim son As Long
son = Range("A" & Rows.Count).End(xlUp).Row
'*****************açılır liste
For Bak = 2 To 9
    If ComboBox1.Text = Cells(1, Bak) Then
        Sutun = Bak
        Exit For
    End If
Next Bak

For Bak = 2 To son
If Not ThisWorkbook.Sheets("veri").Cells(Bak, Sutun) = "" Then
        ComboBox2.AddItem ThisWorkbook.Sheets("veri").Cells(Bak, 1) & " " & ThisWorkbook.Sheets("veri").Cells(Bak, Sutun)
        ComboBox2.ColumnWidths = 16
        ComboBox2.ListWidth = 50
End If
Next
'********************************
End Sub




Private Sub ComboBox2_Change()
[A1] = Split(ComboBox2.Text, " ")(1) 'Hücreye yazması için
TextBox1.Text = Split(ComboBox2.Text, " ")(1) 'Textboxa yazması için
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Comboboxa bağlı textbox

İleti#9)  xemdarx » 25 Şub 2018 01:06

Ali Bey,
Biliyorum size çok zahmet verdim. Gerçekten işin içinden çıkamadım. Verdiğiniz kodları deniyorum fakat olmuyor. Değerler aynı kalıyor. Tarihi değiştirdiğimde liste değişmiyor.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Comboboxa bağlı textbox

İleti#10)  askmadige34 » 25 Şub 2018 12:00

Dosyanız ektedir. İstediğiniz bu şekilde değil mi?
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Comboboxa bağlı textbox

İleti#11)  xemdarx » 25 Şub 2018 17:17

Ali Bey,
Combobox1'de seçilen tarihe göre combobox2 listesinin ( sizin yaptığınız gibi ) ait olan yıla göre yenilenmesi gerek. Yaptığınız işlemde Combobox2 listesi birleşik görünüyor. Ama hep aynı kalıyor. Tarihe göre değişmiyor. Sizi yordum .Afola.
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Comboboxa bağlı textbox

İleti#12)  askmadige34 » 25 Şub 2018 18:25

Combo2 yi temizletmeyi unutmuşum kusura bakmayın.Aşağıdaki şekilde bende 2016 seçince AAA 22 BBB 49 geliyor. 2017 seçince AAA 24, BBB 18 geliyor.

Kod: Tümünü seç
Private Sub ComboBox1_Change()
Dim Bak As Integer
Dim Sutun, Satir As Integer
Dim son As Long
son = Range("A" & Rows.Count).End(xlUp).Row
'*****************açılır liste
For Bak = 2 To 9
    If ComboBox1.Text = Cells(1, Bak) Then
        Sutun = Bak
        Exit For
    End If
Next Bak
ComboBox2.Clear 'Bu satırı ekledim.
For Bak = 2 To son
If Not ThisWorkbook.Sheets("veri").Cells(Bak, Sutun) = "" Then
        ComboBox2.AddItem ThisWorkbook.Sheets("veri").Cells(Bak, 1) & " " & ThisWorkbook.Sheets("veri").Cells(Bak, Sutun)
        ComboBox2.ColumnWidths = 16
        ComboBox2.ListWidth = 50
End If
Next
'********************************
End Sub
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri

Cevap: Comboboxa bağlı textbox

İleti#13)  xemdarx » 25 Şub 2018 23:40

Allah razı olsun. Bu şekilde sonuc alınması beni mahçup etti. Size zahmet verdim. Selametle
Kullanıcı avatarı
xemdarx
Siteye Alışmış
 
Adı Soyadı:nasyar ensar
Kayıt: 03 Nis 2011 20:07
İleti: 225
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: edirne

Cevap: Comboboxa bağlı textbox

İleti#14)  askmadige34 » 25 Şub 2018 23:45

Estağfirullah, sonuçta işinizi görmesi önemli olan.
askmadige34
Forum Moderatörü
 
Kayıt: 20 Kas 2015 13:04
Meslek: memur
Yaş: 38
İleti: 1550
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Kayseri


Forum ComboBox

Online Kullanıcılar

Bu forumu görüntüleyenler: Kayıtlı kullanıcı yok ve 2 misafir

Bumerang - Yazarkafe