Saltar al contenido

Al eliminar columnas traspasar los datos

Featured Replies

publicado
  • Autor

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.

publicado

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]

publicado
  • Autor

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

publicado
  • Autor

Hola nuevamente compañeros

Adjunto el archivo, para que lo podais entender mejor

en el archivo van las explicaciones

Saludos

Plan.zip

publicado

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

publicado
  • Autor
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

publicado

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

publicado
  • Autor

Primro muchas gracias.

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

Saludos

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.