[Yardım]  ComboBox seçim de kalmıyor

Açılır liste kutusu.

ComboBox seçim de kalmıyor

İleti#1)  Tamermaster » 05 Oca 2018 20:06

1. ComboBox ile seçime bağlı TextBoxlar ekliyorum.
2. ComboBoxı da 1. ComboBoxın seçimine bağlı dolduruyorum buraya kadar bir problem yok ama 2. ComboBoxı seçtiğim de 1. ComboBoxın seçilmiş değeri index1 değeri alıyor.
Kodlarım
Kod: Tümünü seç
Private Sub ComboBox1_Change()
Dim i As Integer
say = 0
i = 0
k = 0
TextBox1.Text = ComboBox1.ListIndex + 1
TextBox2.Text = ComboBox1.Value
For Each textbox_say In Me.Controls
If TypeName(textbox_say) = "TextBox" Then
say = say + 1
End If
Next textbox_say
a = 20
b = 100
c = 20
If ComboBox1.Value = "Çoklu Son" Then
With Me.Controls
If say > 2 Then
For k = 3 To say
nesne = "TextBox" & k
.Remove nesne
Next k
End If
For i = 3 To 10
.Add "Forms.TextBox.1"
.Item("TextBox" & i).Top = a
.Item("TextBox" & i).Width = 100
If i > 6 Then
.Item("TextBox" & i).Top = c
.Item("TextBox" & i).Left = b
c = c + 20
End If
a = a + 20
Next i
End With
i = Empty
End If
If ComboBox1.Value = "Eleman Ödemesi" Then
With Me.Controls
For k = 3 To say
nesne = "TextBox" & k
.Remove nesne
Next k
For i = 3 To 6
.Add "Forms.TextBox.1"
.Item("TextBox" & i).Top = a
.Item("TextBox" & i).Width = 100
If i > 4 Then
.Item("TextBox" & i).Top = c
.Item("TextBox" & i).Left = b
c = c + 20
End If
a = a + 20
Next i
End With
End If
i = Empty
End Sub
Private Sub ComboBox2_DropButtonClick()
's2 = Sheets("Veresiye")
son = Sheets("Veresiye").Range("W1").Value
If ComboBox1.Value = "Eleman Ödemesi" Then
For i = 2 To son
'ComboBox2.RowSource = Sheets("Veresiye").Range("AC" & i).Value
ComboBox2.AddItem Sheets("Veresiye").Range("AC" & i).Value
Next i
End If
ComboBox1.ListIndex = 0
ComboBox1.ListRows = son - 1
End Sub
Private Sub UserForm_Initialize()
'ComboBox1.RowSource = "Sayfa4!C2:C13"
'ComboBox1.RowSource = "Sayfa4!C2:C" & Range("C65536").End(xlUp).Row
For i = 2 To 13
ComboBox1.AddItem Sheets("List").Range("C" & i)
Next
ComboBox1.ListRows = 12
End Sub

Böyle bu konuda nasıl bir hata yapıyorum bilgisi olan var mı?
Kullanıcı avatarı
Tamermaster
Yeni Başlamış
 
Adı Soyadı:Tamer Muhassıl
Kayıt: 25 May 2009 03:04
Konum: İstanbul/Bahçelievler
Meslek: Elektronik
Yaş: 49
İleti: 83
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Bahçelievler

Cevap: ComboBox seçim de kalmıyor

İleti#2)  Ali ÖZ » 07 Oca 2018 15:23

Dosyanızı ekler misiniz.
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: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: ComboBox seçim de kalmıyor

İleti#3)  Tamermaster » 07 Oca 2018 22:57

Ali ÖZ yazdı:Dosyanızı ekler misiniz.

Asıl dosya bu değil dosya iş yerimdeki bilgisayarımda
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Tamermaster
Yeni Başlamış
 
Adı Soyadı:Tamer Muhassıl
Kayıt: 25 May 2009 03:04
Konum: İstanbul/Bahçelievler
Meslek: Elektronik
Yaş: 49
İleti: 83
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Bahçelievler

Cevap: ComboBox seçim de kalmıyor

İleti#4)  Tamermaster » 09 Oca 2018 16:14

Nasıl bir hata yapmışım bakabildiniz mi?
Kullanıcı avatarı
Tamermaster
Yeni Başlamış
 
Adı Soyadı:Tamer Muhassıl
Kayıt: 25 May 2009 03:04
Konum: İstanbul/Bahçelievler
Meslek: Elektronik
Yaş: 49
İleti: 83
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Bahçelievler

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

Cevap: ComboBox seçim de kalmıyor

İleti#5)  Ali ÖZ » 10 Oca 2018 14:37

Belirttiğiniz gibi bir durum görmedim.Resimleyebilirmisiniz.
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: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: Cevap: ComboBox seçim de kalmıyor

İleti#6)  Tamermaster » 10 Oca 2018 17:02

Ali ÖZ yazdı:Belirttiğiniz gibi bir durum görmedim.Resimleyebilirmisiniz.
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Kullanıcı avatarı
Tamermaster
Yeni Başlamış
 
Adı Soyadı:Tamer Muhassıl
Kayıt: 25 May 2009 03:04
Konum: İstanbul/Bahçelievler
Meslek: Elektronik
Yaş: 49
İleti: 83
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Bahçelievler

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Cevap: ComboBox seçim de kalmıyor

İleti#7)  Ali ÖZ » 10 Oca 2018 17:21

Tamer bey,

Kod: Tümünü seç
Private Sub ComboBox2_DropButtonClick()
's2 = Sheets("Veresiye")
son = Sheets("Veresiye").Range("W1").Value
If ComboBox1.Value = "Eleman Ödemesi" Then
For i = 2 To son
'ComboBox2.RowSource = Sheets("Veresiye").Range("AC" & i).Value
ComboBox2.AddItem Sheets("Veresiye").Range("AC" & i).Value
Next i
End If
ComboBox1.ListIndex = 0
ComboBox1.ListRows = son - 1
End Sub


If ComboBox1.Value = "Eleman Ödemesi" Then şartını sağlıyorsa combobox1 e i döngüsündeki değeleri aldırıyorsunuz.
Çoklu Son
Eleman Ödemesi
Satış
yani bu veriler.
ListIndex 0 "Çoklu Son"
ListIndex 1 "Eleman Ödemesi"
ListIndex 2 "Satış" olmuş oluyor.

ComboBox1.ListIndex = 0 diyerek de combobox1 in textine "Çoklu Son" u atamış oluyorsunuz.
ComboBox1.ListIndex = 1 derseniz "Eleman Ödemesi" olur.
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: 9431
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Adapazarı/SAKARYA

Cevap: ComboBox seçim de kalmıyor

İleti#8)  Tamermaster » 10 Oca 2018 19:08

ComboBox2'yi seçtiğim de ComboBox1'in seçimi neden değişiyor?
Seçim sabit kalmazsa ComboBox2 seçimi ile diğer yapılması gereken işlemleri yapamam.
Kullanıcı avatarı
Tamermaster
Yeni Başlamış
 
Adı Soyadı:Tamer Muhassıl
Kayıt: 25 May 2009 03:04
Konum: İstanbul/Bahçelievler
Meslek: Elektronik
Yaş: 49
İleti: 83
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Bahçelievler

Cevap: ComboBox seçim de kalmıyor

İleti#9)  Tamermaster » 10 Oca 2018 19:11

Seçime göre TextBox'ları oluşturmaktan vazgeçip göster-gizle metodu ile yapacağım maalesef.
Kullanıcı avatarı
Tamermaster
Yeni Başlamış
 
Adı Soyadı:Tamer Muhassıl
Kayıt: 25 May 2009 03:04
Konum: İstanbul/Bahçelievler
Meslek: Elektronik
Yaş: 49
İleti: 83
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: İstanbul/Bahçelievler


Forum ComboBox

Online Kullanıcılar

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

cron
Bumerang - Yazarkafe