Eliminare valori numerici

[T.Life]

Nel foglio 1 A1 : F25 ho una serie di valori numerici, dei quali vorrei eliminare tutti quelli che risultino uguali a quelli presenti nel foglio 3 nell’intervallo H1 / H120

[Flash30005]

Ciao T.life e benvenuto nel Forum

Cosa intendi per "eliminare"
1) cancellare il valore lasciando la cella vuota
2) eliminare l'intera riga o parte di riga (es. da A5 a L5) facendo salire le righe al di sotto
3) eliminare la colonna o parte di essa (come sopra)

ciao

[T.Life]

Cancellare il valore numerico lasciando la cella vuota. Grazie per l'interessamento !!!

[Flash30005]

Prova questa macro

Codice: Seleziona tutto

Sub cancellaUg()
Set ws1 = Worksheets("Foglio1")
Set Ws3 = Worksheets("Foglio3")
For RR3 = 1 To 120
ValC = Ws3.Range("H" & RR3).Value
For CC1 = 1 To 6
For RR1 = 1 To 25
If ws1.Cells(RR1, CC1).Value = ValC Then ws1.Cells(RR1, CC1).ClearContents
Next RR1
Next CC1
Next RR3
End Sub


Fai attenzione però, se le celle nel range Foglio1 da A1 a F25 ci sono formule correlate con le celle dello stesso range (A1:F25)
potresti non ottenere il risultato voluto.

Ciao

[T.Life]

GRAZIE Flash30005 !!!!! Perfetto !!!

[T.Life]

Questa macro elimina i valori da A1:F25. E possibile modificarla per eliminare solo quelli da A1 : A25.

[Flash30005]

ma il controllo lo deve fare sempre da A a F o solo su A?

[T.Life]

solo A

[Flash30005]

Codice: Seleziona tutto

    Sub cancellaUgA()
    Set ws1 = Worksheets("Foglio1")
    Set Ws3 = Worksheets("Foglio3")
    For RR3 = 1 To 120
    ValC = Ws3.Range("H" & RR3).Value

    For RR1 = 1 To 25
    If ws1.Cells(RR1, 1).Value = ValC Then ws1.Cells(RR1, 1).ClearContents
    Next RR1

    Next RR3
    End Sub

Ciao

[T.Life]

Grazie Flash30005