lavorando con una tabella in excel ho la necessità di poter estrarre dei dati con la condizione di due colonne.
Uso il codice:
- Codice: Seleziona tutto
Private Sub CommandButton8_Click()
Dim estrai As String
estrai = TextBox8.Text
NOMEFOGLIO1 = "FOGLIO1" 'nome del foglio con i dati da copiare
NOMEFOGLIO3 = "FOGLIO3" 'nome del foglio dove copio i dati
' nel file originale Set c = .Find(2, LookIn:=xlValues)
Sheets(NOMEFOGLIO3).Cells.Clear
'
With Worksheets(NOMEFOGLIO1).Range("E1:E1000")
Set c = .Find(estrai, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Copy Destination:=Sheets(NOMEFOGLIO3).Cells(Rows.Count, 1).End(xlUp).Offset(1, 0)
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
MsgBox " LA CLASSE SI TROVA SUL FOGLIO 3! "
End With
End Sub
tutto funziona quando inserisco il dato nella textbox prelevo dal With Worksheets(NOMEFOGLIO1).Range("E1:E1000")
solo che ho la necessità oltre alla classe che si trova nella colonna E, di estrarre la Frequenza che si trova nella colonna "F"
Come fare?
Qualcuno può manipolare il codice sopra ed aiutarmi Grazie