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