Tema: Mover rangos que cambian a diferentes puntos de la hoja
Ver Mensaje Individual
  #2 (permalink)  
Antiguo 29/01/2011, 21:21
Avatar de mrocf
mrocf
 
Fecha de Ingreso: marzo-2007
Ubicación: Bs.As.
Mensajes: 1.103
Antigüedad: 17 años, 7 meses
Puntos: 88
De acuerdo Mover rangos que cambian a diferentes puntos de la hoja
Hola! Bazzi.
El siguiente código puede ayudarte:

Código vb: 
Ver original
  1. Sub Macro774()
  2. Dim C As Range
  3. For Each C In [d1:f1]
  4. C.Resize(15).Cut Cells(15 * C.Column, "B")
  5. Next C
  6. End Sub

Saludos, Cacho.