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

[ale80]

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

[KITT]

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