
Variabile_commento=Range("A1").Comment.Text |
Private Sub CommandButton1_Click()
Dim nriga As Integer
Conteggio_righe = Range("A2").End(xlDown).Row - 1
testoinserito = TextBoxRicerca.Value
For nriga = 3 To Conteggio_righe + 1
CognomeDC = Cells(nriga, 1).Value
If testoinserito = CognomeDC Then
TextBox6.Value = Range("F" & nriga).Comment.Text
TextBox1.Value = Cells(nriga, 1).Value
End If
Next nriga
End Sub
|
