find value and show in textboes..

[luca90]

I use this a macro to find a value(with a part or with complete value) in column of excel....

Now i have migatre part of mine code in VB classic 6.0

assuming the record where is stored the value of find is inested column K now in VB is in field PROVA11 how to convert the excel macro...

Private Sub CommandButton5_Click()
 
    Dim CL As Object
 
    Dim T As String
    Dim INTRESULT As Integer
 
    If TextBox9.Value = "" Then
        msgbox "INSERIRE UN VALORE PER LA RICERCA NEL CAMPO NOMINATIVO!", vbCritical
        Exit Sub
    End If
 
    Set NOMIMATIVO = ActiveSheet.Range(Cells(3, 11), Cells(3, 11).End(xlDown))
 
    For Each CL In NOMIMATIVO
        G = Me.TextBox9.Text
        If CL.Value Like "*" & G & "*" Then
            INTRESULT = 1
            DOMANDA = msgbox("HO TROVATO  " & CL.Value & ", VUOI FERMARTI ?", vbYesNo)
            If DOMANDA = vbYes Then
                INTRESULT = 2
                Me.TextBox9.Value = ""
                T = CL.Row
                Me.ScrollBar1.Value = T
                Me.TextBox1.Value = Sheets("RATE").Cells(T, "A").Value
                Me.TextBox2.Value = Sheets("RATE").Cells(T, "K").Value
                Me.TextBox3.Value = Sheets("RATE").Cells(T, "J").Value
                Me.ComboBox1.Value = Sheets("RATE").Cells(T, "M").Value
                Me.TextBox5.Value = Sheets("RATE").Cells(T, "AD").Value
                Me.TextBox7.Value = Sheets("RATE").Cells(T, "D").Value
                Me.TextBox8.Value = Sheets("RATE").Cells(T, "E").Value
                Me.TextBox10.Value = Sheets("RATE").Cells(T, "I").Value
                Me.TextBox11.Value = Sheets("RATE").Cells(T, "L").Value
                Me.TextBox12.Value = Sheets("RATE").Cells(T, "AB").Value
 
                If Sheets("RATE").Cells(T, "AI").Value <> "" Then
                    USER = Sheets("RATE").Cells(T, "AI").Value
                    Me.TextBox13.Value = Application.WorksheetFunction.VLookup(USER, Worksheets("TABELLA").Range(Worksheets("TABELLA").Range("O1:O3"), Worksheets("TABELLA").Range("P3").End(xlUp)), 2, False)
                Else
                    Me.TextBox13.Value = Sheets("RATE").Cells(T, "AI").Value
                End If
 
                Me.TextBox14.Value = Sheets("RATE").Cells(T, "G").Value
                Me.TextBox15.Value = Sheets("RATE").Cells(T, "B").Value
                Me.TextBox16.Value = Sheets("RATE").Cells(T, "H").Value
                Me.TextBox17.Value = Sheets("RATE").Cells(T, "S").Value
                Me.TextBox18.Value = Sheets("RATE").Cells(T, "T").Value
                Me.TextBox19.Value = Sheets("RATE").Cells(T, "U").Value
                Me.TextBox20.Value = Sheets("RATE").Cells(T, "V").Value
                Me.TextBox21.Value = Sheets("RATE").Cells(T, "W").Value
                Me.TextBox22.Value = Sheets("RATE").Cells(T, "X").Value
                Me.TextBox23.Value = Sheets("RATE").Cells(T, "Y").Value
                Me.TextBox24.Value = Sheets("RATE").Cells(T, "Z").Value
                Me.TextBox6.Value = Format((Sheets("RATE").Cells(T, "F").Value), "##,##0.00")
                Me.TextBox27.Value = Sheets("REPORT").Range("D71").Value
 
                If Sheets("RATE").Cells(RIGA, "AH").Value = "1" Then
                    Me.TextBox26.Value = Sheets("RATE").Cells(RIGA, "AJ").Value
                Else
                    Me.TextBox26.Value = ""
                End If
 
                Exit For
            End If
        End If
    Next
 
    Label42.Caption = Sheets("TABELLA").Range("L1").Value
    Label41.Caption = Sheets("TABELLA").Range("L2").Value
    Label50.Caption = Sheets("TABELLA").Range("L3").Value
    Select Case INTRESULT
    Case 0    ' not found
        Me.TextBox9.Value = ""
        msgbox "NESSUN NOMINATIVO TROVATO CON IL VALORE: " & G & "", vbInformation
    Case 1    ' all found
        Me.TextBox9.Value = ""
        msgbox "TUTTI I NOMINATIVI CON " & G & " SONO STATI VISUALIZZATI.", vbInformation
    Case 2    ' stopped
        ' do nothing?
    End Select
 
End Sub