Veri getirme

[TİKOS]

Arkadaşlar ,
ekli dosyada problemimi yazdım.
Yardımınızı bekliyorum.
Teşekkürler

 

[Orion1]

Dosyanız ektedir.

Private Sub ComboBox1_Change()
Dim k As Range, sat As Long, adr As String
On Error Resume Next
TextBox93.Text = ""
Set k = Sheets("kod").Range("B4:B65536").Find _
(ComboBox1.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        If k.Offset(0, 1).Value = ComboBox2.Value Then
            TextBox93.Text = k.Offset(0, 3).Value
            Exit Do
        End If
        Set k = Sheets("kod").Range("B4:B65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
End Sub


Private Sub ComboBox2_Change()
On Error Resume Next
TextBox93.Text = ""
Set k = Sheets("kod").Range("C4:C65536").Find _
(ComboBox2.Value, , xlValues, xlWhole)
If Not k Is Nothing Then
    adr = k.Address
    Do
        If k.Offset(0, -1).Value = ComboBox1.Value Then
            TextBox93.Text = k.Offset(0, 2).Value
            Exit Do
        End If
        Set k = Sheets("kod").Range("C4:C65536").FindNext(k)
    Loop While Not k Is Nothing And k.Address <> adr
End If
End Sub

 

[TİKOS]

teşekkürler