ho un foglio contenente circa 14000 righe per 21 colonne.
La celle della colonna A sono o riempite con "NEW ENTRY" o sono vuote.
(questo new entry è generato da una formula che fa un controllo su un altro foglio)
Ho necessità ad ogni cambiamento dei dati sul foglio con la colonna new entry di avere tutte le new entry raggruppate su un nuovo foglio ( l'intera riga col new entry copiata papale papale su quest'altro foglio che chiamo foglionewentry per semplicità)
Vorrei eseguire tutto con una macro, in quanto il copia incolla con filtri e altro diventa pesantino, specie quando le righe aumentano.
anche con una macro non posso toccare il filtro automatico (autofilter) in quanto il tempo medio di esecuzione tra copia incolla vari è oltre 40 secondi.
Ho provato ad adattare una macro con il metodo find ma non avendo esperienza così avanzata mi sono arenato, con conseguente blocco del lavoro.
la macro era questa, forse può servire come punto di partenza:
- Codice: Seleziona tutto
Sub Pulsante1_Click()
originale = "1° trim (next)" 'nome del foglio con i dati da copiare
newentry = "1° TRIM new entry" 'nome del foglio dove copio i dati
Sheets(newentry).Cells.Clear
With Worksheets(originale).Range("A3:A14000")
Set c = .Find(3, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.EntireRow.Copy Destination:=Sheets(newentry).Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0)
' c.Value = 5
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With
End Sub
non so cosa sia c.address o firstaddress
il metodo find mi è oscuro
non so come dire al VBA di andare a cercare le celle con scritto new entry
preringrazio infinitamente chi mi può dare una mano , se non mi sono espresso bene, cosa molto probabile mi spiego meglio.