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

Preguntas similare

Leer las respuestas

#6 KM ** Ve
16/02/2006 - 12:57 | Informe spam
la formula es =SI(F9<>"";BUSCARV(F9;Base!C:D;2;FALSO);"")

hay otra opcion que puedo pnerla en la otra celda y es una lista de nombre,
bueno el final que quiero usar esta formula es para hacer recibo y que me
aumenta las numeracion cada ves que quero hacer un recibo.

Gracias
KM**VE

"KL" escribio en el mensaje
news:OQa%
Hola,

necesito saber la formula de E9...:-)

saludos,
KL


"KM ** Ve" wrote in message
news:
el macro no aumenta la numeracion que estas en la celda (U2) y el valor
de
(E9) es una que tiene formula.


Gracias
KM**VE


"KL" escribio en el mensaje
news:
Dime TU que quiere decir "no me funciona" tal vez entonces pueda
encontrar la falla ;-)

? Algun error concreto?
? Igual has olvidado comentar algun detalle?
? Tal vez la celda [E9] cambia su valor porque tiene formula y "se
modifica(n)" otra(s) celda(s)?
? Estan los macros habilitados?

Saludos,
KL


"K.M. **Ve" wrote in message
news:
hola amigo KL ya lo hice y no me funciona puede verificar cual es la
falla.


Gracias
KM**VE

"KL" escribio en el mensaje
news:%
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


















Respuesta Responder a este mensaje
#7 KL
16/02/2006 - 13:22 | Informe spam
Hola,

Como se asigna el valor a la celda F9? Por formula o manualmente? Si es manual, entonces por lista de validacion o escribiendo
directamente en celda? Y que version de Excel usas?

Saludos,
KL


"KM ** Ve" wrote in message news:%23T6ki$
la formula es =SI(F9<>"";BUSCARV(F9;Base!C:D;2;FALSO);"")

hay otra opcion que puedo pnerla en la otra celda y es una lista de nombre, bueno el final que quiero usar esta formula es para
hacer recibo y que me aumenta las numeracion cada ves que quero hacer un recibo.

Gracias
KM**VE

"KL" escribio en el mensaje news:OQa%
Hola,

necesito saber la formula de E9...:-)

saludos,
KL


"KM ** Ve" wrote in message news:
el macro no aumenta la numeracion que estas en la celda (U2) y el valor de
(E9) es una que tiene formula.


Gracias
KM**VE


"KL" escribio en el mensaje news:
Dime TU que quiere decir "no me funciona" tal vez entonces pueda encontrar la falla ;-)

? Algun error concreto?
? Igual has olvidado comentar algun detalle?
? Tal vez la celda [E9] cambia su valor porque tiene formula y "se modifica(n)" otra(s) celda(s)?
? Estan los macros habilitados?

Saludos,
KL


"K.M. **Ve" wrote in message news:
hola amigo KL ya lo hice y no me funciona puede verificar cual es la falla.


Gracias
KM**VE

"KL" escribio en el mensaje news:%
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






















Respuesta Responder a este mensaje
#8 K.M. **Ve
16/02/2006 - 14:28 | Informe spam
1-es una lista de validacion y lo asigno manual por la lista de validacion,
y la version es Office 2003.
2-como hago para hacer una lista de 2 columna, en la columna (A)nombre y en
la columna (B)apellido como hacer una sola lista que salen Nombre y
Apellido.

Gracias
KM**VE



"KL" escribio en el mensaje
news:%
Hola,

Como se asigna el valor a la celda F9? Por formula o manualmente? Si es
manual, entonces por lista de validacion o escribiendo directamente en
celda? Y que version de Excel usas?

Saludos,
KL


"KM ** Ve" wrote in message
news:%23T6ki$
la formula es =SI(F9<>"";BUSCARV(F9;Base!C:D;2;FALSO);"")

hay otra opcion que puedo pnerla en la otra celda y es una lista de
nombre, bueno el final que quiero usar esta formula es para hacer recibo
y que me aumenta las numeracion cada ves que quero hacer un recibo.

Gracias
KM**VE

"KL" escribio en el mensaje
news:OQa%
Hola,

necesito saber la formula de E9...:-)

saludos,
KL


"KM ** Ve" wrote in message
news:
el macro no aumenta la numeracion que estas en la celda (U2) y el valor
de
(E9) es una que tiene formula.


Gracias
KM**VE


"KL" escribio en el mensaje
news:
Dime TU que quiere decir "no me funciona" tal vez entonces pueda
encontrar la falla ;-)

? Algun error concreto?
? Igual has olvidado comentar algun detalle?
? Tal vez la celda [E9] cambia su valor porque tiene formula y "se
modifica(n)" otra(s) celda(s)?
? Estan los macros habilitados?

Saludos,
KL


"K.M. **Ve" wrote in message
news:
hola amigo KL ya lo hice y no me funciona puede verificar cual es la
falla.


Gracias
KM**VE

"KL" escribio en el mensaje
news:%
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

























Respuesta Responder a este mensaje
#9 KL
16/02/2006 - 14:54 | Informe spam
Hola K.M. **Ve,

1-es una lista de validacion y lo asigno manual por la lista de validacion, y la version es Office 2003.



Prueba cambiar el codigo que te di antes por:

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


2-como hago para hacer una lista de 2 columna, en la columna (A)nombre y en la columna (B)apellido como hacer una sola lista que
salen Nombre y Apellido.



Primero creas la lista y luego la asignas a la Validacion, tal como te dice ElProfe en el hilo que abriste antes. Comentas mas
detalles sobre como has asignado la lista de Nombres a la celda F9 y donde se encuentra esa lista de origen?

Saludos,
KL
Respuesta Responder a este mensaje
#10 K.M. **Ve
16/02/2006 - 15:14 | Informe spam
no me cambia el numero en el la celda (U2)

Gracias
KM**VE

"KL" escribio en el mensaje
news:%
Hola K.M. **Ve,

1-es una lista de validacion y lo asigno manual por la lista de
validacion, y la version es Office 2003.



Prueba cambiar el codigo que te di antes por:

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


2-como hago para hacer una lista de 2 columna, en la columna (A)nombre y
en la columna (B)apellido como hacer una sola lista que salen Nombre y
Apellido.



Primero creas la lista y luego la asignas a la Validacion, tal como te
dice ElProfe en el hilo que abriste antes. Comentas mas detalles sobre
como has asignado la lista de Nombres a la celda F9 y donde se encuentra
esa lista de origen?

Saludos,
KL
Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaSiguiente AnteriorRespuesta Tengo una respuesta
Search Busqueda sugerida