Excel - ¿Esto se puede hacer? Ayuda por favor

Podemos indicar al CommandButton1 o al texbox o alguna macro que si hay información en la celda “A1” que bajara esa información la celda “A2” para que la nueva información (insertado mediante la macro) tenga espacio en la “A1” IMPORTANTE ESTO:



El sistema o la operación es que BAJE ESA INFORMACION, NO QUE SE INSERTE UNA FILA NUEVA Y BAJE LA INFORMACION pues si se inserta una nueva fila el pie de pagina ya creada y situada en la fila 49 se me va bajando y situando filas mas abajo y eso no me interesa pues a la ora de imprimir sale la hoja partida y dos hojas, pero si solo bajara la información todas las filas del pie de pagina QUEDARAN EN SU SITIO.



Un saludo desde Almeria.

Busca en la ayuda de VBA el metodo IF ahi hay ejemplos de macros con condiciones.

Salu2

Aqui te dejo una ayudadita como ejemplo si es lo que quieres pues ya lo tienes, si no pues te servirá de guía, solo copia el código en un boton.

Private Sub CommandButton1_Click()
If Range("A1").Value Then
Range("A1").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Else
Range("A2") = ""
End If
End Sub


Salu2

Estamos bien ecaminados ok ¿pero como se haria para 10 celdas?
vemos el ejemplo de "A1" pasa a "A2" pero como seguimos insertando
y decimos que se inserte en la celda "A1" entonces la informacion que hemos bajado a la Celda "A2" tenia que pasar a la celda "A3" y seguir insertando en la celda "A3" ,
¿podrias enseñarme un ejemplo de 10 celdas una debajo de la otra por favor?

Hola Luis te envio un ejemplo con 3 celdas, lo demás lo dejo para que lo experimentes, claro es solo un ejemplo y se puede mejorar.

Aqui está el código

Private Sub CommandButton1_Click()
If Range("A1,A2,A3").Value Then
Range("A1:A3").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ElseIf Range("A1,A2").Value Then
Range("A1:A2").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
ElseIf Range("A1").Value Then
Range("A1").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Application.CutCopyMode = False
Else
Range("A1:A10") = ""
End If
End Sub

Salu2

agradezco muchisimo tus respuestas lo provare esta tarde haber que tal si veo q

Perdón se me fue la mano.... si veo que algo estoy haciendo mal te aviso... IGUALMENTE MUCHISIMAS GRACIAS TODABIA HAY GENTE BUENA EN ESTE MUNDO.

Solo hay una pequeña cosilla ¿por que se copia la celda de abajo con la nueva que estramos insertando una bez que decides de insertar?
ejemplo:
1
2
----
1
1
este es el efecto.
as porovado tu la formula quizas estoy haciendo algo mal.

Nada no he dicho Nada perdon.

Que paso amigo, termina la formula con las 10 o más celdas que necesitas y probala, es importante que las condiciones deben de ir de la mayor a la menor, es decir el primer if debe ser para cuando todas las celdas tengas valores, y el ultimo Elseif debe ser para cuando solo una celda (A1) tenga valor.

Cualquier duda vuelve a postear en el foro,

Salu2

Es perfecto eso es lo que quiero pero si la si la selccion en este es de celdas
como seria para filas?
ejemplo:
"A1","A2","A3" a sido de esta formula pero en realidad seria
para la fila 1, fila 2 y fila 3 cual seria los cambios?

Es buenisimo esta formula, TE FELICITO HERES UN GENIO, pero acabo de caer en la cuenta que la necesidad es que se mueva la fila entera no solo esa celda.
te lo estoy complicando mas??
ejemplo se mobemos A1 que sea todo el contenido de la fila 1.

Para hacer referencia a filas se utiliza la propiedad Rows

Rows("1:1").Select
Selection.Copy
Rows("2:2").Select
ActiveSheet.Paste

El código anterior te copia el contenido de la fila 1 y te la pega en la fila 2, solo ajustala al código que tienes.

Salu2 y nos vemos hasta el lunes.