di Zer0Kelvin » 22/11/14 18:11
Ciao.
Sì, è possibile, la macro seguente agisce sul foglio attivo:
- Codice: Seleziona tutto
Public Sub SpostaASinistra()
Dim Cella As Range
For Each Cella In Range("P1:P" & Range("P" & Rows.Count).End(xlUp).Row).Cells
If Cella <> "" Then
Range("I" & Cella.Row, "P" & Cella.Row).Cut Range("H" & Cella.Row, "O" & Cella.Row)
End If
Next Cella
End Sub
[Win7,Office2010]
Condividere la conoscenza aumenta la ricchezza di tutti(Z0°K)
Dai ad un uomo un pesce e lo avrai sfamato per un giorno;insegnagli a pescare e lo avrai sfamato per sempre(Confucio)
Il sonno della ragione genera mostri(Francisco Goya)