Processi in Microsoft 365 per configurare app Office, riscattare i codici Product Key e attivare le licenze.
Visto che il problema è stato postato anche in m.p.i.o.e., *di là* siamo arrivati più o meno qui.
Questa evidenzia le celle della colonna A
che sono vuote e senza colore di riempimento:
Public Sub m()
On Error GoTo RigaErrore
Dim sh As Worksheet
Dim lRiga As Long
Dim lUltRiga As Long
Dim rng As Range
Set sh = Worksheets("Foglio1")
With sh
lUltRiga = .Range( _
"A" & .Rows.Count).End(xlUp).Row
For lRiga = 1 To lUltRiga
If .Cells(lRiga, 1).Interior.ColorIndex = _
xlNone And .Cells(lRiga, 1).Value = "" Then
If rng Is Nothing Then
Set rng = .Range( _
.Cells(lRiga, 1).Address)
Else
Set rng = Union(.Range( _
.Cells(lRiga, 1).Address), rng)
End If
End If
Next
End With
rng.Select
RigaChiusura:
Set rng = Nothing
Set sh = Nothing
Exit Sub
RigaErrore:
MsgBox Err.Number & vbNewLine & Err.Description
Resume RigaChiusura
End Sub
-- --------------------------- Mauro Gamberini http://www.riolab.org/ http://blog.maurogsc.eu/ http://social.microsoft.com/Forums/it-IT/officeit/threads