La consultazione del forum è libera per tutti.
Per poter porre un quesito è invece necessario essere un utente registrato (clicca qui se non lo sei).
Tutti gli utenti che richiedono un supporto, come da REGOLAMENTO, sono caldamente invitati ad allegare un file di esempio con l'indicazione di quello che si desidera ottenere.
chapeau!!! funziona tutto alla perfezione. Ho capito perché erano scomparsi dei record in più rispetto a quelli immessi in sostituzione.
In pratica con la macro in cui vengono elimati sia CD che CD (EP), anche non immettendo record duplicati, si erano eliminate le righe che contenevano CD (EP).
Sono tornato alla formula precedente con la sola eliminazione CD e tutto si è risolto. Farò due passaggi in caso ci siano degli EP.
Fare due passaggi è niente al confronto dell'incubo di farlo manualmente su 3500 righe!
Grazie davvero per tutte le soluzioni.
ciao
CD (EP), anche non immettendo record duplicati, si erano eliminate le righe che contenevano CD (EP).
colpa mia mi sono dimenticato un pezzo di macro
usa
If Cells(xl, 3) = Cells(xl + 1, 3) And Cells(xl, 7) = "CD" Or Cells(xl, 3) = Cells(xl + 1, 3) And Cells(xl, 7) = "CD (EP)" Then
ma quale colpa... già mi hai dato un aiuto incredibile che mi ha fatto svoltare alla grande!
grazie ancora!!!
purtroppo devo tornare sull'argomento perché pur ordinando le righe duplicate in modo che siano adiacenti e con il campo CD sopra a quello DIGITAL, ho notato che alcune righe non ne vogliono sapere e rimangono sfalsate, e così la macro non ha effetto su di esse. Non c'è una formula aggiuntiva alla macro che elimini le righe duplicate anche se sono sfalzate?
Grazie
ciao
con questa non interessa che siano in ordine
provala su un file campione
io non è che sia un genio del VBA
Sub eliminaDuplicati()
Dim r As Long, i As Integer, n As Integer
r = Range("C" & Rows.Count).End(xlUp).Row
For i = 1 To r
n = Application.CountIf(Range("C1" & ":C" & r), Cells(i, 3))
If n > 1 Then
If Cells(i, 7) = "CD" Or Cells(i, 7) = "CD (EP)" Then
Cells(i, 3).EntireRow.Delete
End If
End If
Next i
End Sub
ciao
dimenticavo
ho notato che alcune righe non ne vogliono sapere e rimangono sfalsate
strano se ordini dalla A alla Z dovrebbero sistemarsi
fai una prova
seleziona la colonna
Barra multifunzione
DATI
TESTO IN COLONNE
non toccare niente e clicca su
FINE
