combobox a göre texbox a yazdırma

[yanginci34]

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.

 

[yanginci34]

arkadaşlar konu günceldir.

 

[vardar07]

Buyurun. Kırmızılı yerler sizin sayfa ismi olacak

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

 

[yanginci34]

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

 

[vardar07]

Dosyanız ekte.

 

[yanginci34]

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.

 

[vardar07]

Userform1 kodlarında kırmızılı yerleri bulun arasındakini aşağıdaki ile değiştirin.

[COLOR="Red"]Private Sub ComboBox1_Change[/COLOR]()
TextBox6 = Sheets("Sayfa2").Cells(ComboBox1.ListIndex + 2, "D")

[COLOR="red"]End Sub[/COLOR]

 

[yanginci34]

Çok teşekkür ederim ellerinize sağlık.

 

[vardar07]

Rica ederim. Kolay gelsin.

 

[yanginci34]

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