Macro per cancellare solo alcune celle, non intera riga

[saramarti92]

Ciao a tutti!
Ho un problema che non riesco a risolvere, spero ci sia qualcuno così gentile ad aiutarmi.

Ho trovato questa macro che se trova 2 celle uguali in contenuto mi cancella l'intera riga di una delle due, in modo da non avere doppioni.
Funziona benissimo, l'unico problema è che a me serve che cancelli solamente alcune celle della riga (celle cha vanno dalla colonna Q alla S), non l'intera riga.

Vi posto qui sotto la macro di cui vi sto parlando e vi evidenzio in rosso il punto che non mi va bene:

Application.ScreenUpdating = False
Range("S3:S100").Select
Selection.Sort Key1:=Range("S3"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Set currentCell = Worksheets("Scelta ponteggio").Range("S3")
Do While Not IsEmpty(currentCell)
Set nextCell = currentCell.Offset(1, 0)
If nextCell.Value = currentCell.Value Then
currentCell.Entirerow.Delete
End If
Set currentCell = nextCell
Loop
Range("S3").Select

Vi ringrazio anticipatamente per il vostro aiuto!
Ciao, Sara

[alfrimpa]

Ciao Sara

Ti consiglierei di allegare un file di esempio (coerente strutturalmente con il tuo originale) con pochi dati e mostra il risultato che vuoi ottenere inserendolo manualmente.

[saramarti92]

Ciao Alfredo!
Ecco qui il link che manda al file di prova: https://www.dropbox.com/sh/f4wku6lzejdn ... uy2ua?dl=0
Spero il link funzioni e che adesso la mia richiesta sia più chiara (il file allegato è un semplice file Excel che non contiene alcuna macro, mostra solo quello che ho e quello che vorrei ottenere).

[saramarti92]

Mi sono dimenticata di specificare che le celle in cui non ci devono essere doppioni sono quelle della colonna S.

[alfrimpa]

Ciao Sara

Forse sono io che non capisco bene ma non basterebbe fare una copia del tuo elenco e poi da questa copia eliminare i duplicati)

[saramarti92]

Ciao Alfredo,
potrei fare come dici tu, solo che la macro che ho nel file originale è molto pesante.. se io facessi copiare i dati in un foglio vuoto, eliminassi le righe contenenti doppioni e poi rifacessi copiare nel foglio originale (devo per forza far finire l'operazione in questo foglio) ho paura che diventi ancora più pesante.. Tu non sapresti indicarmi un modo per risolvere il problema senza dover ricorrere a tutti questi copia e incolla?

[Marius44]

Buon pomeriggio a tutti
scusate l'intromissione ma se leggo bene, da titolo, tu vorresti cancellare il contenuto di alcune celle mentre la macro "elimina" una riga.
Se ho capito bene, nell'intervallo di celle dove ti interessa "cancellare" il contenuto utilizza .ClearContents

Oppure non ho capito nulla.
Ciao,
Mario

[saramarti92]

Ciao Alfredo,
alla fine ho optato per fare come mi hai suggerito tu, per una persona inesperta come me forse è la cosa più semplice!

Ciao Mario,
si esatto, la macro cancella una riga invece che un intervallo di celle. Ho risolto il problema aggirandolo, come suggerito da Alfredo, però dopo provo a fare come mi hai detto tu, per vedere se anche in questo modo funziona.

Grazie mille a entrambi per l'aiuto!

[alfrimpa]

Sara se vuoi ti posso scrivere la macro che ti fa l'operazione automaticamente indipendentemente dal numero di righe dell'intervallo da copiare.

[saramarti92]

Ormai la mia macro è conclusa, ma se ti va di scrivermela lo stesso va benissimo così imparo!

[alfrimpa]

Giusto per divertimento un esempio di macro (con riferimento al file che hai allegato) potrebbe essere questa

Codice: Seleziona tutto

Sub sara()
Dim ur As Long
Dim lr As Long
Application.ScreenUpdating = False
ur = Cells(Rows.Count, "Q").End(xlUp).Row
lr = Cells(Rows.Count, "W").End(xlUp).Row
Range("Q3:S" & ur).Copy Cells(lr + 1, "W")
lr = Cells(Rows.Count, "W").End(xlUp).Row
Range("w3:y" & lr).RemoveDuplicates Columns:=1, Header:=xlNo
Application.ScreenUpdating = True
End Sub

Sicuramente migliorabile (e aspetto le "ire" di Anthony )

[Anthony47]

e aspetto le "ire" di Anthony

Anthony dice che se funziona allora e' sempre bellissimo cosi'...

[saramarti92]

Giusto per divertimento un esempio di macro (con riferimento al file che hai allegato) potrebbe essere questa

Codice: Seleziona tutto

Sub sara()
Dim ur As Long
Dim lr As Long
Application.ScreenUpdating = False
ur = Cells(Rows.Count, "Q").End(xlUp).Row
lr = Cells(Rows.Count, "W").End(xlUp).Row
Range("Q3:S" & ur).Copy Cells(lr + 1, "W")
lr = Cells(Rows.Count, "W").End(xlUp).Row
Range("w3:y" & lr).RemoveDuplicates Columns:=1, Header:=xlNo
Application.ScreenUpdating = True
End Sub

Sicuramente migliorabile (e aspetto le "ire" di Anthony )

Grazie mille Alfredo, proverò ad applicarla al file di esempio per vedere come funziona
Ciao!