DÜŞeyara Makrosu İle Kayit

[oguzgok]

Selam Arkadaşlar..
Combobox 'ta, isim listesinden seçtiğim isme göre düşeyara makrosu ile seçilen ismi bulup yanındaki sütunlara kayıt yaparak gitmesini istiyorum. ama bir türlü işin içinden çıkamadım..
Yardımcı olacak arkadaşlara şimdiden tşk sunuyorum..
Dosyam ekte.. Kolay gelsin...

 

[Orion1]

Merhaba.
Dosyanız Ekte.

Private Sub CommandButton1_Click()
Dim sonkolon As Integer
If ComboBox1.ListIndex < 0 Then Exit Sub
sonkolon = Sheets("VERİ").Cells(ComboBox1.ListIndex + 2, 256).End(xlToLeft).Column
If sonkolon = 255 Then
    MsgBox "Sütun doldu.Başka Kayıt Yapamazsınız..!!", vbCritical
    Exit Sub
End If
Sheets("Veri").Cells(ComboBox1.ListIndex + 2, sonkolon + 1).Value = TextBox1.Value
Sheets("Veri").Cells(ComboBox1.ListIndex + 2, sonkolon + 2).Value = TextBox2.Value
TextBox1.Value = ""
TextBox2.Value = ""
ComboBox1.SetFocus
MsgBox "Kayıt Yapıldı"
End Sub

 

[oguzgok]

Orion2 çok tşk ederim..
Emeğine sağlık.. Kolay gelsin.. İyi ki varsınız..

 

[Orion1]

Orion2 çok tşk ederim..
Emeğine sağlık.. Kolay gelsin.. İyi ki varsınız..

Rica ederim.
İyi ki hep birlikte varız.
İyi çalışmalar.