Kesişme Noktasına Değer girmek

Katılım
24 Mart 2008
Mesajlar
468
Excel Vers. ve Dili
2007TR - 2010TR
Merhaba,

Ek dosyada satırlarda stok numarası , sütunlarda tarihler olan bir çetele bulunmaktadır. Bu çeteleye değer ekleme kolaylığı için bir userform hazırladım ve bu formda stok kodları bulunan bir combobox(combobox1) ve tarihleri seçtiğimiz bir combobox (combobox2) var. Birde en altta bir textbox ve bir ekle butonu bulunmaktadır. Burada yaptıracağımız işlem ekle butonuna basınca combobox1 ve combobox2 de seçili olan değeri listede bulacak ve kesiştiği noktaya texbox1 deki değeri yazacak. Yani belirttiğimiz stok numarasını bulup belirttiğimiz tarihteki yere belirtilen sayıyı girmek.

Şimdiden bütün Excelcilere ve hocalarımıza teşekkürler.

İyi Çalışmalar.
 

Ekli dosyalar

Katılım
24 Mart 2008
Mesajlar
468
Excel Vers. ve Dili
2007TR - 2010TR
ÇÖZÜLDÜ

Çözdüm arkadaşlar. Kodlar aşağıdadır bakmak isteyen bakabilir. iyi çalışmalar.

Private Sub EKLE_Click()
TextBox2 = ComboBox1.Value
TextBox3 = ComboBox2.Value
On Error GoTo ResumeSub:
x = Range("b2:b100").Cells.Find(TextBox2).Row
y = Range("B1:ba1").Cells.Find(TextBox3).Column
Cells(x, y) = TextBox1.Text
Exit Sub
ResumeSub:
End Sub
 
Üst