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