Excel y VB
Bueno quisiera saber como puedo colocar en una hoja de cálculos un botón que realice la siguiente acción: sumar 1 a determinada celda con contenido numérico (ejemplo: si la celda en cuestión contiene el valor 5 al pulsar sobre el botón la celda pasaría a tener el valor 6, si se pulsa de nuevo este cambiaría a 7).
Eso es todo. Gracias...
Eso es todo. Gracias...
2 Respuestas
Respuesta de t4373125
1
Te voy a contestar a tu pregunta y luego te daré una solución que puede ser mejor.
Sigue estos pasos:
1.Herramientas > Personalizar...
2.Selecciona la barra de herramientas "Cuadro de controles" para que este visible.
3.Cierra la ventana.
4.Ahora ya podrás agregar el botón en la hoja (es el que pone "botón de comando" cuando estas con el ratón encima de él). Haces clic encima de él y luego clic en la hoja para situarlo
5.Ahora haz doble clic encima del botón para que se abra el editor de Visual basic y ahí mismo escribes:
Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 1
End Sub
'cambia A1 por la celda que te interese
6. Ya puedes cerrar el editor de VB
7. Si te vas a las propiedades del botón podrás cambiar su descripción en donde pone "Caption". No cambies el "Name" ya que es interno y luego el código que has puesto antes no te funcionaria
8. Finalmente, dentro del menu "Cuadro de controles" dale al primer botón para salir del modo diseño
9. A partir de ahí ya debería funcionar
La solución mejor seria añadir un "control de numero" en lugar de un "botón de comando" ya que ese esta pensado para incrementar y decrementar un valor numérico de una celda. Entonces no te hace falta programar, solo cambiar las propiedades del objeto.
Puedes probar de cambiar el valor de las propedades y si vas a la ayuda sabrás para que sirven, pero la más importante es la que dice a que celda tiene que afectar, y esa es la "LinkedCell" y al lado tienes que escribir, por ejemplo, A1
Sigue estos pasos:
1.Herramientas > Personalizar...
2.Selecciona la barra de herramientas "Cuadro de controles" para que este visible.
3.Cierra la ventana.
4.Ahora ya podrás agregar el botón en la hoja (es el que pone "botón de comando" cuando estas con el ratón encima de él). Haces clic encima de él y luego clic en la hoja para situarlo
5.Ahora haz doble clic encima del botón para que se abra el editor de Visual basic y ahí mismo escribes:
Private Sub CommandButton1_Click()
Range("A1").Value = Range("A1").Value + 1
End Sub
'cambia A1 por la celda que te interese
6. Ya puedes cerrar el editor de VB
7. Si te vas a las propiedades del botón podrás cambiar su descripción en donde pone "Caption". No cambies el "Name" ya que es interno y luego el código que has puesto antes no te funcionaria
8. Finalmente, dentro del menu "Cuadro de controles" dale al primer botón para salir del modo diseño
9. A partir de ahí ya debería funcionar
La solución mejor seria añadir un "control de numero" en lugar de un "botón de comando" ya que ese esta pensado para incrementar y decrementar un valor numérico de una celda. Entonces no te hace falta programar, solo cambiar las propiedades del objeto.
Puedes probar de cambiar el valor de las propedades y si vas a la ayuda sabrás para que sirven, pero la más importante es la que dice a que celda tiene que afectar, y esa es la "LinkedCell" y al lado tienes que escribir, por ejemplo, A1
Respuesta de vkinki
1
Primero crea una macro a través de herramientas-macro-Editor de visual Basic.
En el editor, ves a insertar modulo y en el modulo copia este codigo;
Sub Sumar()
numero = Range("A1")
numero = numero + 1
Range("A1") = numero
End Sub
En este caso la casilla donde se sumara es la A1, Puedes cambiarla y poner la que tu quieras.
Luego de crear la macro, vuelve a la hoja de calculo y pon un botón, abriendo la barra de formularios (Ver-Barra de herramientas-Formulario) Coge el botón que aparece en la barra y dibujalo en la hoja de excel como si fuera una autoforma. Después de dibujarlo se te pedirá que le asignes una macro, escoge la que acabas de crear que en este caso se llama Sumar.
Prueba si funciona, ya me dirás...
En el editor, ves a insertar modulo y en el modulo copia este codigo;
Sub Sumar()
numero = Range("A1")
numero = numero + 1
Range("A1") = numero
End Sub
En este caso la casilla donde se sumara es la A1, Puedes cambiarla y poner la que tu quieras.
Luego de crear la macro, vuelve a la hoja de calculo y pon un botón, abriendo la barra de formularios (Ver-Barra de herramientas-Formulario) Coge el botón que aparece en la barra y dibujalo en la hoja de excel como si fuera una autoforma. Después de dibujarlo se te pedirá que le asignes una macro, escoge la que acabas de crear que en este caso se llama Sumar.
Prueba si funciona, ya me dirás...