CER VALORE IN AREA

[robybarc]

Ciao a tutti,
non riesco a risolvere questo problema,
in un file ModificaClienti.xlsm nel Foglio CLI ho un CodiceCliente scritto nella cella A1,
apro il file ArchivioClienti.xlsm, nel Foglio ARCHIVIO seleziono la colonna dei CodiciClienti per cercare e selezionare lo stesso CodiceCliente che è scritto nella cella A1 del file ModificaClienti.xlsm ma non so come fare.
Grazie
Roberto

[robybarc]

Ho provato questa macro e funziona, anche se non so se è la scelta migliore.

Windows("ModificaClienti.xlsm").Activate
Sheets("CLI").Select
Dim CodCli As String ' dimensiono un nome
CodCli = Range("CodCliA1") ' CodCliA1 è il nome della cella che contiene il CodCli da cercare

Windows("ArchivioClienti.xlsm").Activate
Sheets("ARCHIVIO").Select
Range("B1:DatiCliCodCli").Select ' area che contiene tutti i CodCli

Selection.Find(What:=CodCli, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell.Select

Inoltre se non trova il Codice Cliente come posso fare per evitare il messaggio di errore? Ho provato qualcosa del genere ma non va.

If Selection.Find(What:=CodCli, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate = True Then
MsgBox "trovato"
Else
MsgBox "non trovato"
End If

Grazie
Roberto

[Anthony47]

Per evitare errori nel caso che il codice non esista, prova questa variante

Codice: Seleziona tutto

Set myfound = Selection.Find(What:=codCLI, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
If myfound Is Nothing Then
    MsgBox "NON trovato"
Else
    myfound.Select
    MsgBox "trovato"
End If

Ciao

[robybarc]

Ciao Anthony,
leggo solo ora la tua risposta, ero in vacanza e non ho potuto risponderti prima.
Il controllo dell'errore funziona perfettamente, grazie
Buona giornata
Roberto