Funzione Find

Hai un problema con Excel?

Nuova discussione

Funzione Find
di Alessandro (utente non iscritto) data: 15/04/2016 11:31:17
Buongiorno a tutti,
mi trovo un po' in difficoltà ed avrei bisogno del vostro aiuto.
ho la necessità di trovare il valore di un cella all'interno di un altro foglio Excel tramite la funzione cells.find ma non so come inserire nel What il contenuto della cella precedentemente identificata.
grazie mille
Ale

Sub Macro6()
'
' Macro6 Macro
'

'

Windows("Delta.xls").Activate
    Range("E1").Select
    Selection.End(xlDown).Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-5],'Delta Certificati.xls'!C1,1,FALSE),""Estinto"")"
    Selection.Copy
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
  Range("F1").Select
Cells.Find(What:="Estinto", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
        Selection.End(xlToLeft).Select
        a questo punto sono sulla casella che mi interessa cercare ma non so come procedere.....        
End Sub

di patel data: 15/04/2016 12:02:25
non ho capito cosa vuoi fare, prima usi VLOOKUP, poi find e poi cosa ti manca ?
di Alessandro (utente non iscritto) data: 15/04/2016 14:27:40
Hai ragione, ma da neofita ho cercato di ottenere a modo mio il risultato cercato.
Detto questo ho bisgno di confrontare i dati presenti su due file excel qui uso il vlook per identificare le righe estinte rispetto all'ultimo controllo.
Fatto questo il valore corrispondente alla cella presente nella colonna A della riga in questione devo utilizzarlo per cercare il valore in un altro file e provvedere a cancellaro.
Grazie Alessandro
di patel data: 15/04/2016 15:41:53
l'altro file è già aperto ? la stringa da cercare non è più "Estinto" ma quella che si trova all'inizio della riga ?
di Alessandro (utente non iscritto) data: 15/04/2016 17:52:31
Si tutti i file sono aperti,esatto estinto lo uso come riferimento per identificare la riga la ricerca poi è strutturata sul primo valore

di patel data: 16/04/2016 06:39:44
prova così

Sub Macro6()
'
' Macro6 Macro
'

'

Windows("Delta.xls").Activate
    Range("E1").Select
    Selection.End(xlDown).Offset(0, 1).Select
    ActiveCell.FormulaR1C1 = _
        "=IFERROR(VLOOKUP(RC[-5],'Delta Certificati.xls'!C1,1,FALSE),""Estinto"")"
    Selection.Copy
    Selection.End(xlUp).Select
    Range(Selection, Selection.End(xlDown)).Select
    ActiveSheet.Paste
  Range("F1").Select
Cells.Find(What:="Estinto", After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).Activate
        Selection.End(xlToLeft).Select

        tofind = selection
Windows("XXXXX.xls").Activate
     Cells.Find(What:=tofind, After:=ActiveCell, LookIn:= _
        xlValues, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False).select
        
End Sub

di Alessandro (utente non iscritto) data: 18/04/2016 17:24:36
Grazie infinite Patel, funziona benissimo.

Vuoi Approfondire?