Buongiorno. Ho una macro che mi seleziona tutte le celle con carattere rosso di un foglio e mi trascrive la somma dei valori in una certa cella. Dopo l'operazione mi lascia le celle selezionate ed io vorrei sapere se è possibile aggiungere delle istruzioni che deselezionino le celle e mi riportino alla cella dove mi trovavo quando ho lanciato il comando.
La macro è questa:
Public Sub SaldoSpese()
Dim c As Range
Dim rngFoglio As Range
Dim rng As Range
Set rngFoglio = Range("B3:Q33")
For Each c In rngFoglio
If c.Font.Color = RGB(255, 0, 0) Then
If rng Is Nothing Then
Set rng = Range(c.Address)
Else
Set rng = Union(rng, c)
End If
End If
Next
rng.Select
Range("Q35").Value = fSommaValori(rng)
Set c = Nothing
Set rng = Nothing
Set rngFoglio = Nothing
End Sub
Grazie a chi vorrà aiutarmi.