Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

CER VALORE IN AREA

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

CER VALORE IN AREA

Postdi robybarc » 24/09/15 12:32

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
Utente Junior
 
Post: 15
Iscritto il: 09/05/15 10:36

Sponsor
 

Re: CER VALORE IN AREA

Postdi 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
robybarc
Utente Junior
 
Post: 15
Iscritto il: 09/05/15 10:36

Re: CER VALORE IN AREA

Postdi Anthony47 » 26/09/15 00:16

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
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13894
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: CER VALORE IN AREA

Postdi robybarc » 07/10/15 14:06

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
robybarc
Utente Junior
 
Post: 15
Iscritto il: 09/05/15 10:36


Torna a Applicazioni Office Windows


Topic correlati a "CER VALORE IN AREA":


Chi c’è in linea

Visitano il forum: patel e 15 ospiti