Salve a tutti,

ho registrato una macro che , partendo dalla prima colonna
1) sposta la selezione sino all'ultima cella della stessa riga
2) selezione l'ultima cella e la penultima
3) copia (taglia) quest'intervallo
4) incolla lo stesso n colonne a dx (sempre nella stessa riga)

Questa operazione andrebbe iterata sino alla fine (riga m).

Qui di seguito c'è la macro di cui vi ho parlato :


-----------------------
Sub Macro2()
'
' Macro2 Macro
' Macro registrata il 27/07/2005 da cperciba
'
' Scelta rapida da tastiera: CTRL+d
'
Selection.End(xlToRight).Select
Range("F11:G11").Select
Range("G11").Activate
Selection.Cut
Range("M11").Select
ActiveSheet.Paste
End Sub
-----------------------

Come modificarla per iterare il processo ?

Grazie mille

Claudio

On 27 Jul 2005 03:15:18 -0700, "Claudio P."
wrote in microsoft.public.excel.programming:

Salve a tutti,

ho registrato una macro che , partendo dalla prima colonna
1) sposta la selezione sino all'ultima cella della stessa riga
2) selezione l'ultima cella e la penultima
3) copia (taglia) quest'intervallo
4) incolla lo stesso n colonne a dx (sempre nella stessa riga)

Questa operazione andrebbe iterata sino alla fine (riga m).

Qui di seguito c'è la macro di cui vi ho parlato :


-----------------------
Sub Macro2()
'
' Macro2 Macro
' Macro registrata il 27/07/2005 da cperciba
'
' Scelta rapida da tastiera: CTRL+d
'
Selection.End(xlToRight).Select
Range("F11:G11").Select
Range("G11").Activate
Selection.Cut
Range("M11").Select
ActiveSheet.Paste
End Sub
-----------------------

Come modificarla per iterare il processo ?

Grazie mille

Claudio

Try this:

' This will copy the two right-most columns to column M and N
' for a range starting in A11

Dim lngNRows As Long
Dim lngN As Long
Dim lngLCol As Long

lngNRows = Range("A11").End(xlDown).Row

For lngN = 11 To lngNRows
lngLCol = Cells(lngN, 1).End(xlToRight).Column
Range(Cells(lngN, "M"), Cells(lngN, "N")) = Range(Cells(lngN, lngLCol - 1), Cells(lngN, lngLCol)).Value
Next lngN

--
Michael Bednarek http://mbednarek.com/ "POST NO BILLS"