Private Sub ComboBox_FirmaUnvani_Change()

    Dim bul As Range, kontrol As Control

    For Each kontrol In Me.Controls

        If kontrol.Name <> Me.ComboBox_FirmaUnvani.Name Then

            Select Case TypeName(kontrol)

                Case Is = "TextBox": kontrol.Value = Empty

                Case Is = "ComboBox": kontrol.Value = Empty

            End Select

        End If

    Next

    With ThisWorkbook.Sheets("ORDER_LIST")

        Set bul = .Range("C:C").Find(Me.ComboBox_FirmaUnvani.Text, , xlValues, 1)

        If Not bul Is Nothing Then

            Me.TextBox_FirmaAdi.Value = .Range("B" & bul.Row).Value

            Me.TextBox_ProjeAdi.Value = .Range("D" & bul.Row).Value

        End If

    End With

    Set bul = Nothing

End Sub