Forums Últimos mensajes - Powered by IBM
 

Aumentar 1 número mas al madeficar una celda

15/02/2006 - 21:37 por K.M. **Ve | Informe spam
Hola amigo como hago que me aumenta un número una celda al madeficar una
celda



En la celda (U2) tengo un numero 5542, quiero que me aumente este numero
cada ves que se madefica la celda (E9) que se aumenta un numero mas = 5543,
con el macro que tengo abajo eso yo lo hacia manual mente que se aumenta un
numero mas cada ves que yo quiera.


Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 15/02/2006 por ***
Folio = Range("U2").Value
Folio = Folio + 1
Range("U2").Value = Folio
End Sub
 

Leer las respuestas

#1 KL
15/02/2006 - 23:02 | Informe spam
Hola K.M. **Ve,

Prueba hacer lo siguiente:

1) Haz clic-derecho sobre el nombre de la hoja en cuestion (en una de las pestanas de la parte de abajo de la ventana de Excel).
2) Elige la opcion Ver Codigo para abrir el editor VBA.
3) Una vez en el Editor VBA, en la ventana mas grande a la derecha pega el codigo que te pongo a continuacion:

'--
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, [E9]) Is Nothing Then Exit Sub
[U2] = [U2] + 1
End Sub
'--

4) Ahora pulsa Alt+F11 para volver a la hoja.
5) Prueba cambiar el valor en el rango [E9]

Saludos,
KL


"K.M. **Ve" wrote in message news:e%23cQ4%
Hola amigo como hago que me aumenta un número una celda al madeficar una celda



En la celda (U2) tengo un numero 5542, quiero que me aumente este numero cada ves que se madefica la celda (E9) que se aumenta un
numero mas = 5543, con el macro que tengo abajo eso yo lo hacia manual mente que se aumenta un numero mas cada ves que yo quiera.


Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 15/02/2006 por ***
Folio = Range("U2").Value
Folio = Folio + 1
Range("U2").Value = Folio
End Sub

Preguntas similares