Condividi:        

[Excel]Macro per copiare in nuovo foglio se compare testo

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

[Excel]Macro per copiare in nuovo foglio se compare testo

Postdi ale80 » 21/04/13 11:21

Ciao,

ringrazio in anticipo chi vorrà darmi una mano.

Ho il foglio 1, se nella cella A4 compare il testo AUTO e nella cella A8 compare il testo BICI allora copia in un nuovo foglio un range di celle di un foglio2 (nascosto) e nomina il nuovo foglio con il testo BICI della cella A8 del foglio 1.

Grazie a tutti

ciao ciao
ale80
Newbie
 
Post: 1
Iscritto il: 21/04/13 11:12

Sponsor
 

Postdi KITT » 23/04/13 13:09

Ciao ale80, traducendo letteralmente quanto hai scritto ti propongo:
Codice: Seleziona tutto
NomeFoglioNuovo = Sheets("Foglio 1").Cells(8, 1)
If Sheets("Foglio 1").Cells(8, 1) = "BICI" And Sheets("Foglio 1").Cells(4, 1) = "AUTO" Then
  Sheets.Add.Name = NomeFoglioNuovo
  For x = 1 To 11
    Sheets(NomeFoglioNuovo).Cells(x, 1) = Sheets("Foglio 2").Cells(x, 1)
  Next x
End If
Ho ipotizzato che il range che dovessi copiare dal foglio 2 nascosto fosse(A1:A11)

Ho inoltre ipotizzato che le condizioni da soddisfare per creare il nuovo foglio fossero 2 (= BICI e =AUTO).
in tal caso tieni presente che se poi non varia il valore della cella A8 alla seconda chiamata della macro ti da un run time error poiche' non e' possibile nominare piu' fogli con lo stesso nome.

Spero di essere stato utile, in caso contrario fornisci maggiori dettagli.

ciao
KITT
XP - OFFICE 2003 - ENG
WIN 7 - OFFICE 2010 - ENG
Avatar utente
KITT
Utente Junior
 
Post: 75
Iscritto il: 16/05/11 08:20


Torna a Applicazioni Office Windows


Topic correlati a "[Excel]Macro per copiare in nuovo foglio se compare testo":


Chi c’è in linea

Visitano il forum: Nessuno e 36 ospiti