seçili hücrelerin kesişme noktasını bulma

[enegen]

Sayın Arkadaşlar
Aşağıdaki kodu yazdım fakat benim istediğim. Combobox3 ün bulunduğu satır ile Combobox1 in bunuduğu sütunun kesişme noktasındaki hücreye kayıt butonuna basınca textbox1 e yazdığım değeri yazdırabilmek istiyorum.
Yardımlarınız için şimdiden teşekkürler.

Private Sub ComboBox1_Change()
X = ComboBox1.Value
Set no = Worksheets("kayit").Range("BG1:FZ1")
Set ara = Cells.Find(What:=X, After:=ActiveCell, LookIn:=xlFormulas)
If Not ara Is Nothing Then
ilk = ara.Address
ara.Select
End If
End Sub

Private Sub ComboBox3_Change()
X = ComboBox3.Value
Set no = Worksheets("kayit").Range("B1:B500")
Set ara = Cells.Find(What:=X, After:=ActiveCell, LookIn:=xlFormulas)
If Not ara Is Nothing Then
ilk = ara.Address
ara.Select
End If
End Sub

Private Sub CommandButton1_Click()
satir = ComboBox3.Value
sutun = ComboBox1.Value
ActiveCell.Offset(satir, sutun).Value = TextBox1.Value
End Sub

Private Sub UserForm_Initialize()
ComboBox1.RowSource = "ÖĞRETMEN!F1:F15"
ComboBox2.RowSource = "ÖĞRETMEN!E1:E11"
ComboBox3.RowSource = "kayit!B3:B500"

End Sub

 

[Orion1]

Size bir fikir verebilir.

Sub kesisme()
MsgBox "A5 Hücresi Kolonu : " & Range("A5").Column & vbLf & _
"A5 Hücresi Satırı : " & Range("A5").Row
End Sub

 

[enegen]

CommandButton1 e basınca Combobox3 ün seçtiği hücrenin sütunu ile Combobox1 in seçtiği hücrenin sütunu nun bileşke noktasına textbox1 e yazılan değerin yazdırlmasını istiyorum. nasıl bir yol izleyeceğimi bulamadım yardımlarınızı bekliyorum. saygılarımla tüm emek verenlere teşekkürler.

 

[Orion1]

Combobox1de arama veriyi arama aralığınız nedir.Cells bütün sütunları arar.
Bir hedef belirtip onu aramak daha doğruudr.Mesela C sütunu veya F sütunu gibi.D:F oalbilir.Ne bileyim yani aralığı ne kadar daraltırsan o kadar iyidir.
Bunu belirtin ben sisin yazdığınız kodlardan ne yapmak istediinizi anladım sanırım.Combobox1de bulsduğunuz verinini satırını alacaksınız ,combobox2 tedki değerinde sütununu aşlcaksınız bunlardan yeni değeri elde edeceksiniz.

 

[enegen]

Dosyam ektedir.
benim istediğim mesela combobox1 de 5 i seçtim combobox3 te ise H yi seçtim işte bunların kesişme notası olan F9 hücresine kayıt düğmesine bastığımda textbox1 e yazdığım not işlensin istiyorum.

 

[Orion1]

Dosyanız ektedir.

Private Sub CommandButton1_Click()
Dim k As Range
Set k = Sheets("Sayfa1").Range("B1:IV1").Find(ComboBox1.Value, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox ComboBox1.Value & " Bulunamadı.", vbCritical, "BULUNAMADI"
    ComboBox1.SetFocus
    Exit Sub
    Else
    sutun = k.Column
End If
Set k = Sheets("Sayfa1").Range("A2:A65536").Find(ComboBox3.Value, , xlValues, xlWhole)
If k Is Nothing Then
    MsgBox ComboBox3.Value & " Bulunamadı.", vbCritical, "BULUNAMADI"
    ComboBox3.SetFocus
    Exit Sub
    Else
    satir = k.Row
End If
Sheets("Sayfa1").Cells(satir, sutun).Value = TextBox1.Value
MsgBox "Veri kaydedildi." & "evrengizlen@hotmail.com", _
vbOKOnly + vbInformation, "E V R E N"
End Sub

 

[enegen]

Çok teşekkür ederim
Emeğinizi benim gibi acemilerden esergemediğiniz için ayrıca teşekkür.

 

[Orion1]

Çok teşekkür ederim
Emeğinizi benim gibi acemilerden esergemediğiniz için ayrıca teşekkür.

Rica ederim.
İyi çalışmalar.