ExcelVBA.Net sitesine katkıda bulunabilirsiniz

[ilker29]

Merhaba arkadaşlar
İş yerinde kullanmak için bir form hazırlamaya çalışıyorum.
Yapmak istediğim userform üzerindeki Textbox1 e yazdığım sayıyı A sütununda arayacak ve Textbox2 ye yazdığım sayıyı B sütununda arayacak ikisinin kesiştiği satırda Textbox taki veriyi C sütununa yazmasını istiyorum. konu hakkında acil yardım. hoşçakalın

[Yken]

Kod: Tümünü seç

Private Sub CommandButton1_Click()
Dim aa As Integer, bb As Integer, cc As Variant, sonsat As Long

sonsat = Sayfa1.Range("A1").End(xlDown).Row
dizi = Range("A1:B" & sonsat).Value
aa = TextBox1.Value
bb = TextBox2.Value
cc = TextBox3.Value

For j = LBound(dizi, 1) To UBound(dizi, 1)
    If aa = (dizi(j, 1)) And bb = (dizi(j, 2)) Then
        Unload Me
        Cells(j, 3).Value = cc
        Exit For
    End If
Next

End Sub