ComBobox'la gelen verilerin bir kısmını Label'e yazdırmak

[İsmail Küçükşengün]

Merhabalar;

Ekteki çalışmada da açıklandığı gibi,
Combobox.la seçilen ve textbox.lara aktarılan verilerden bazılarını Label'e aktarılması (yazdırılmas&#305 konusundaki yardımlarınız için şimdiden teşekkürlerimi sunuyorum.

 

[Recep İpek]

Kodlarınıza aşağıdaki satırı ekleyin.

Private Sub adi_Change()
On Error Resume Next
With Sheets("veritabani")

TextBox1.Value = .Cells(adi.ListIndex + 2, 3)
TextBox2.Value = .Cells(adi.ListIndex + 2, 4)
TextBox3.Value = .Cells(adi.ListIndex + 2, 5)
TextBox4.Value = .Cells(adi.ListIndex + 2, 6)

End With
[b]Label7.Caption = Me.adi.Value & "-" & Me.TextBox2.Value & "-" & Me.TextBox3.Value & "-" & Me.TextBox4.Value[/b]
TextBox1.SetFocus
End Sub

 

[İsmail Küçükşengün]

Sayın ripek;

Bu kadar hızlı şekilde cevap vererek sorunu çözmeniz, tek kelime ile takdire şayandır.

Teşekkür ve saygılarımı sunuyorum.
Selamlarımla.

 

[Recep İpek]

Önemli değil Sn.küçüksengün,

Bu forumdan öğrendiklerimizle sizlere en iyi şekilde yardımcı olmak bizlere mutluluk veriyor.

Çalışmalarınıda kolaylıklar dilerim.