Macro Copia righe foglio 1 su foglio 2 se cella A foglio 1 soddisfa certe condizioni

Question

Buongiorno a tutti,

è la prima volta che chiedo aiuto attraverso tale mezzo e spero di ricevere indicazioni preziose.

ho un foglio di lavoro che contiene una tabella, è composto dalle colonne da A a Y e da circa 5000 righe.

vorrei trovare una macro che mi permetta, all'inserimento di uno specificato dato (in questo caso la parola "SI"), di copiare le righe corrispondenti con l'intero contenuto sul foglio 2.

ho trovato ed applicato la seguente macro:

Sub m()

Dim sh1 As Worksheet

Dim sh2 As Worksheet

Dim Ing As Long

Dim IRiga As Long

Dim ILastRow As Long

---

With ThisWorkbook

Set sh1 = .Worksheets("LAB")

Set sh2 = .Worksheets("ARCHIVIO")

End With

---

With sh1

ILastRow = .Range("A" & .Rows.Count).End(xlUp).Row

IRiga = sh2.Range("A" & .Rows.Count).End(xlUp).Row + 1

For Ing = 2 To ILastRow

.Range("I" & Ing).Value = "1" Then

.Range("A" & Ing & ":K" & Ing).Copy

sh2.Range("A" & IRiga).PasteSpecial

IRiga = IRiga + 1

End If

Next

End With

---

Application.CutCopyMode = False

---

Set sh2 = Nothing

Set sh1 = Nothing

---

End Sub

la macro funziona, purtroppo però ogni volta che la lancio questa mi copia le righe già copiate che vanno ad aggiungersi a quelle copiate in precedenza.

cosa posso fare?

eventualmente esiste anche la possibilità di avere una macro che taglia e incolla sempre le riche con caratteristiche uguali a quelle indicate?

grazie

Answer 1

Inviata.

Grazie

Answer 2

<cut>

Soluzione 1:

• Registra una macro.
• Filtra la tabella con i dati da copiare per la colonna con il Sì.
• Copia i dati filtrati.
• Incollali nel nuovo foglio.

Soluzione 2, qui:

• http://www.maurogsc.eu/esempiforum14/copiafiltro.zip

Nell'esempio vengono copiate in Foglio2 tutte le righe che in Foglio1 hanno Sì in colonna Z.

---

NOTA. Ho eliminato il post con la stessa domanda che avevi inserito in coda ad un vecchio thread.

Answer 3

ti faccio altra domanda:

una macro che sposta le righe in cui le celle di una colonna hanno un determinato valore o testo?

grazie ancora

Puoi spiegare meglio, per favore.

Grazie.

Answer 4

grazie Mauro,

proprio quello che cercavo.

ti faccio altra domanda:

una macro che sposta le righe in cui le celle di una colonna hanno un determinato valore o testo?

grazie ancora

Answer 5

Grazie mille!!!

proverò durante il week End.