- Katılım
- 18 Mayıs 2007
- Mesajlar
- 115
- Excel Vers. ve Dili
- 2003
DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
Altın Üyelik Hakkında Bilgi
Private Sub ComboBox1_Change()
On Error Resume Next
TextBox1.Text = ComboBox1.Column(1)
TextBox2.Text = ComboBox1.Column(2)
End Sub
Private Sub ComboBox1_Click()
End Sub
Private Sub UserForm_Initialize()
ComboBox1.RowSource = "sayfa1!a2:C250"
End Sub
Rica ederim.Teşekkürler, çok iyi oldu. Öğrenmeye devam ediyorum. Sağolun