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"