allora ragazzi... sono bloccato
il mio programma dovrebbe trovare una parola in un dato foglio(1), copiare l'intera riga (dove c'è la parola cercata), incollarla in un altro foglio(2).
ecco il codice
codice:
Private Sub CommandButton1_Click() 
Dim CL As Object 
Dim Zona As Excel.Range 
Dim Cerca As String 
Dim Dove As String 
Dim txtTesto As String 
Dim I As Byte 
txtTesto = "" Worksheets(1).Activate 
Set Zona = ActiveSheet.UsedRange 
ANCORA_1: 
Cerca = InputBox("Digita cosa cerchi") 
If Cerca = "" Then Exit Sub 
On Error GoTo NONTROVATO 
Dove = Zona.Find(Cerca).Row 
For I = 1 To 20 Step 1 
txtTesto = txtTesto & " " & Cells(Dove, I).Value 
Next 
Sheets("Foglio2").Select 
Rows("4:4") = txtTesto 
Exit Sub 
Exit Sub 
NONTROVATO: 
Resume ANCORA_1 
End Sub
con questo che ho fatto... c'è un piccolo problema, infatti accade questo... http://imageshack.us/photo/my-images/195/exc1.jpg/