di robybarc » 25/09/15 15:17
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