Hola amigos.

no es el mejor titulo para exponer el problema que os trasmito,

pero en el fichero que os adjunto creo haberme explicado para esta peticion.

Un saludo y muchas gracias

movimiento de celdas con sus importe.zip

Sigue las instrucciones del adjunto.

Movimiento de celdas con sus importe.xls

Muchas gracias.

esta perfecto¡¡¡¡¡

pero como no tengo ni edea de macros, como puedo extrapolar tu codigo a mi archivo

, ya que las celdas eran imaginarias

(que deberia de cambiar)

Un saludo, un fuerte abrazo y muchas gracias.

Solo tienes que sustituir "F12" por el rango inicial.

Private Sub Worksheet_Change(ByVal Target As Range): On Error Resume Next


If Target.Address(False, False) <> [B][COLOR=#ff0000]"F12"[/COLOR][/B] Then Exit Sub [B][COLOR=#ff0000]'Rango inicial[/COLOR][/B]



Application.EnableEvents = False

Range(Target.Offset(0, 2), Target.Offset(3, 9)).Copy Target.Offset(0, 1)

Target.Offset(0, 9) = CDate(Target.Offset(0, 8)) + 7

Range(Target.Offset(1, 9), Target.Offset(3, 9)).ClearContents

Application.EnableEvents = True



End Sub



[/CODE]

Saludos Oh Macro Antonio.

En estos momentos no tengo el archivo original para poder poner tu macro, que seguro que funciona a la 1000 maravillas.

Te comentaré si suerge algun problemilla alo ponr el rango inicial, ya que este lo tengo que poner en varias filas

Adjunto os remito el archivo.

Gracias.

Plan.zip

Hola nuevamente compañeros

Adjunto el archivo, para que lo podais entender mejor

en el archivo van las explicaciones

Saludos

Plan.zip

Esto se complica por momentos, mañana te digo algo, pero no pinta bien.

Esto se complica por momentos, mañana te digo algo, pero no pinta bien.

Gracias

si pinta pinta y si no al Museo del Prado

Saludos

Se me ha encendido la luz.

En el adjunto encontrarás la macro que hace lo que pides.

La hoja "Plantilla" verás que so lo tiene la parte afectada por la macro. (Lo he hecho para trabajar mas a gusto)

También he añadido la hoja "Fórmulas", es una hoja de trabajo necesaria para la macro, puedes ocultarla.

Esperemos que funcione.

PlantillaTesoreria.xls

Primro muchas gracias.

perdona mi ignorancia que tengo que hacer para tener todo el cuadro

Saludos

Tu ganas, atento al mensaje privado.