combobox ile hücre seçmek

[mavidus]

arkadaşlar combobox ile seçtiğim hücrenin hemen atına veri girişi yapmak istiyorum örneğimde daha net açıklamamı yaptım.

 

[danersin]

userformunuzdaki commandbuttona aşağıdaki kodu yazıp bir deneyin.

Private Sub CommandButton1_Click()
aranan = ComboBox1.Value
sutun = Application.WorksheetFunction.Match(aranan, Range("b1:I1"), 1) + 1
satir = Cells(65536, sutun).End(xlUp).Row + 1
Cells(satir, sutun) = TextBox1.Value
End Sub

 

[mavidus]

teşekkür ederim "danersin" kodlar mükemmel çalışıyor.