1 sayfadan 1. sayfa

combobox change

İletiTarih: 13 Oca 2021 13:39
Cengizhantr
nerde hata yapıyom İŞBANK PUAN puan deyince değişmiyor

Private Sub ComboBox3_Change()
If ComboBox3.Value = "İŞBANK" Then
TextBox70.Value = "47268024"
End If
If ComboBox3.Value = "İŞBANK İMECE KART" Then
TextBox70.Value = "47268024"
End If
If ComboBox3.Value = "İŞBANK PUAN" Then
TextBox70.Value = "47268024"
End If
If ComboBox3.Value = "HALKBANK" Then
TextBox70.Value = "1231012"
End If
If ComboBox3.Value = "HALKBANK PUAN" Then
TextBox70.Value = "1231012"
End If
If ComboBox3.Value = "DENİZBANK" Then
TextBox70.Value = "280500000356112"
End If
If ComboBox3.Value = "DENİZBANK ÜRETİCİ KART" Then
TextBox70.Value = "280500000356112"
End If
If ComboBox3.Value = "ZİRAAT KART" Then
TextBox70.Value = "295218"
End If
If ComboBox3.Value = "ZİRAAT BAŞAK KART" Then
TextBox70.Value = "295218"
End If
End Sub

Cevap: combobox change

İletiTarih: 13 Oca 2021 14:21
okutkan
Herhangi bir sorun gözükmüyor. Dosya yükleyebilir misiniz.

Cevap: combobox change

İletiTarih: 13 Oca 2021 14:46
okutkan
Aşağıdaki dosyada denedim fakat kullandığınız kodda herhangi bir sorun yok. Ayrıca Banka ve karşılığına gelen sayıları bir tabloya yerleştirirseniz kısa bir kod ile işinizi halledebilirsiniz. Dosyayı inceleyin.

Kod: Tümünü seç
Private Sub ComboBox4_Change()
TextBox70.Value = Application.WorksheetFunction.VLookup(ComboBox4.Value, Sheets("sayfa1").Range("a1:b9"), 2, False)
End Sub

Cevap: combobox change

İletiTarih: 13 Oca 2021 15:30
Miraç CAN
Bir yerlerde fazla boşluk karakteri olabilir.
Sayfa tablo gibi harici şeylere gerek kalmadan da yapabilirsin, ComboBox sırasına göre değerleri diziye ekleyerek kullanabilirsin.
Banka ismi ve sorgulara gerek kalmaz, iki satırda halledersin.
Kod: Tümünü seç
Private Sub ComboBox3_Change()
BankCode = Array(47268024, 47268024, 47268024, 1231012, 1231012, 280500000356112#, 280500000356112#, 295218, 295218)
TextBox70.Value = BankCode(Me.ComboBox3.ListIndex)
End Sub

Cevap: Cevap: combobox change

İletiTarih: 13 Oca 2021 17:21
Cengizhantr
okutkan yazdı:Aşağıdaki dosyada denedim fakat kullandığınız kodda herhangi bir sorun yok. Ayrıca Banka ve karşılığına gelen sayıları bir tabloya yerleştirirseniz kısa bir kod ile işinizi halledebilirsiniz. Dosyayı inceleyin.

Kod: Tümünü seç
Private Sub ComboBox4_Change()
TextBox70.Value = Application.WorksheetFunction.VLookup(ComboBox4.Value, Sheets("sayfa1").Range("a1:b9"), 2, False)
End Sub

Çok teşekkür ederim ☺️

Cevap: Cevap: combobox change

İletiTarih: 13 Oca 2021 17:23
Cengizhantr
Miraç CAN yazdı:Bir yerlerde fazla boşluk karakteri olabilir.
Sayfa tablo gibi harici şeylere gerek kalmadan da yapabilirsin, ComboBox sırasına göre değerleri diziye ekleyerek kullanabilirsin.
Banka ismi ve sorgulara gerek kalmaz, iki satırda halledersin.
Kod: Tümünü seç
Private Sub ComboBox3_Change()
BankCode = Array(47268024, 47268024, 47268024, 1231012, 1231012, 280500000356112#, 280500000356112#, 295218, 295218)
TextBox70.Value = BankCode(Me.ComboBox3.ListIndex)
End Sub

Tamam çok teşekkür ederim ☺️