• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

combobox a göre texbox a yazdırma

yanginci34

Altın Üye
Katılım
6 Temmuz 2010
Mesajlar
1,673
Excel Vers. ve Dili
excel2016
Herkese günaydın, üstadlarım a sütununda araç plakaları yazıyor b sütununda da bunların markaları yazıyor yapmak istediğim combobox ta plakayı seçtiğimde textbox otomatik olarak bana aracın markasını yazabilir mi? şimdiden teşekkürler.
 
Buyurun. Kırmızılı yerler sizin sayfa ismi olacak
Kod:
Private Sub ComboBox1_Change()
TextBox1 = ComboBox1.Column(1)
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "[COLOR="Red"]sayfa1[/COLOR]!a2:b" & [[COLOR="red"]sayfa1[/COLOR]!a65536].End(3).Row
End Sub
 
Sayın Vardar öncelikle ilgi ve alakanız için teşekkürler ben örnek dosya ekliyorum böyle daha kolay kendimi ifade edebileceğim.
sayfa2 de b sütununda araç plakaları var ve d sütununda combobox 1 de plaka yazdığı zaman texbox6 da otomatik markasının gelmesi. Umarım açıklaya bildim.
Ekli dosyayı görüntüle örnek akaryakıt.xlsm
 
Sayın Vardar elinize sağlık fakat textbox6 veri sayfasının d sütunundan verileri alıyor. Ben sayfa2 deki d sütunundaki verileri almasını istiyordum.
 
Userform1 kodlarında kırmızılı yerleri bulun arasındakini aşağıdaki ile değiştirin.
Kod:
[COLOR="Red"]Private Sub ComboBox1_Change[/COLOR]()
TextBox6 = Sheets("Sayfa2").Cells(ComboBox1.ListIndex + 2, "D")

[COLOR="red"]End Sub[/COLOR]
 
Rica ederim. Kolay gelsin.
 
Aşağıdaki kodu bir arkadaşımdan buldum alternatif olarak ihtiyacı olan arkadaşlar yararlanması amacıyla paylaşayım dedim. Umarım yararlı olur.

Private Sub ComboBox2_Change()
Dim rngBul As Range
With Sheets("PARAMETRE")
Set rngBul = .Columns("A").Find(ComboBox2, Lookat:=xlWhole)

If Not rngBul Is Nothing Then

TextBox6 = .Cells(rngBul.Row, "K")
TextBox12 = .Cells(rngBul.Row, "I")
TextBox14 = .Cells(rngBul.Row, "D")

End If
End With
Set rngBul = Nothing
End Sub
 
Geri
Üst