Inserimento righe

[lafaia]

Ho una tabella con un certo numero di righe, il primo campo di ogni riga
contiene un numero identificativo, naturalmente ci sono più righe per ogni
numero identificativo. Vorrei inserire una riga vuota alla fine di ogni serie
di identificativo. Come fare?

[Mauro Gamberini]

Mettiamo che sia A la tua colonna discriminante.
Questa macro *dovrebbe* fare ciò che chiedi:

Public Sub mInserisciRiga()

Dim nr As Long
Dim l As Long

With ActiveSheet

nr = .Range("A65536").End(xlUp).Row

For l = nr To 2 Step -1

If .Cells(l, 1).Offset(-1, 0).Value <> .Cells(l, 1).Value Then
.Rows(.Cells(l, 1).Row).Insert shift:=xlUp
End If

Next

End With

End Sub

--
----------------------------
Mauro Gamberini

[lafaia]

Grazie!
Funziona perfettamente.
Claudio Paradisi

"Mauro Gamberini" ha scritto:

[Mauro Gamberini]

> Grazie!
> Funziona perfettamente.
>

Bene.
Tu però dai un'occhiatina ad uno dei
seguenti links quando hai tempo:

http://wiki.news.nic.it/QuotarBene
http://www.krisopea.it/mvp/Quoting.htm

8-)

--
----------------------------
Mauro Gamberini