[Yardım]  combobox change

VBA Makrolar ile ilgili sormak istedikleriniz, yapmak istedikleriniz hakkında yardım alabileceğiniz bölümdür.

combobox change

İleti#1)  Cengizhantr » 13 Oca 2021 13:39

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
Kullanıcı avatarı
Cengizhantr
Yeni Başlamış
 
Kayıt: 10 Haz 2020 21:52
Meslek: Market
Yaş: 38
İleti: 70
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: combobox change

İleti#2)  okutkan » 13 Oca 2021 14:21

Herhangi bir sorun gözükmüyor. Dosya yükleyebilir misiniz.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 403
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: combobox change

İleti#3)  okutkan » 13 Oca 2021 14:46

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
Bu iletideki ekleri görmek için gerekli yetkilere sahip değilsiniz.
Excel VBA konusunda profesyonel değilim. Excel VBA öğrenmeye çalışıyorum.
Sorulara cevap vermek için araştırıyorum; araştırdıkça daha fazlasını öğreniyorum.
Kullanıcı avatarı
okutkan
Siteye Alışmış
 
Kayıt: 27 May 2017 02:45
Meslek: pol. mem.
Yaş: 28
İleti: 403
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: DENİZLİ

Cevap: combobox change

İleti#4)  Miraç CAN » 13 Oca 2021 15:30

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
Kullanıcı avatarı
Miraç CAN
Site Dostu
 
Kayıt: 26 Arl 2016 19:07
Meslek: Harita/Ölçme
Yaş: 39
İleti: 920
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Amasya & Adana

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

Cevap: Cevap: combobox change

İleti#5)  Cengizhantr » 13 Oca 2021 17:21

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 ☺️
Kullanıcı avatarı
Cengizhantr
Yeni Başlamış
 
Kayıt: 10 Haz 2020 21:52
Meslek: Market
Yaş: 38
İleti: 70
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

Cevap: Cevap: combobox change

İleti#6)  Cengizhantr » 13 Oca 2021 17:23

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 ☺️
Kullanıcı avatarı
Cengizhantr
Yeni Başlamış
 
Kayıt: 10 Haz 2020 21:52
Meslek: Market
Yaş: 38
İleti: 70
 
Cinsiyet: Bay
Bulunduğunuz İl / Semt: Ankara

REKLAM
ETA - Excel Konsolide Raporlama
ETA Excel Personel Entegre Raporu

Forum Genel Makro Soruları

Online Kullanıcılar

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

Bumerang - Yazarkafe