UniversoExcelForo

Respuesta a consultas.
Fecha de creación: 09.Abril.2012

Fundadores: Wibly,Tyno,Servando,Sakkar,Rosendo2,RMaximo,Railar,Mcoronel,Ioyama,Igtelo,Hugotron,Drochar,Dedos,Alberto,Adolfo


No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

gherrador


Hola comunidad! estoy interesado en un nuevo proyecto, el cual requiero para finalizar por fin mi tesis ja!.

Vamos al grano.
Tengo un libro excel el cual consta de 2 hojas, llamemosle hoja1 y hoja2.
En hoja1 tengo una planilla, la cual debe contener en la celda B1 un numero de registro, pero ese numero de registro debe de salir de la columna A de la hoja2.
En la hoja2 columna A, tendre todos los registros realizados hasta el momento, por lo que, la macro deberia de recorrer la columna A, ver cual es el ultimo numero, sumarle 1, ese resultado, asentarlo en la fila que sigue, y luego tomar ese numero y colocarlo en la hoja1 celda B1.

Dicho con un ejemplo seria. En la hoja2 columna A, tengo 10 números registrados que irán de la fila 2 a la fila 11. Al requerir el numero para la celda B1 de la hoja1, la macro recorrera la columna A, encontrando que el ultimo valor es 10 ubicado en la fila 11, le sumara 1, lo que dara 11 y lo asentara en la fila 12. Luego copiara ese numero y lo colocara en la hoja1 celda B1.

Espero alguien me pueda ayudar! 

Saludos

jhon1904

avatar
Hola

Lea las normas del foro, siempre que habrás un tema deberás subir un archivo de ejemplo, asi miramos como te podemos ayudar.


saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

gherrador


Perdon, estaba seguro que habia subido el archivo a modo de ejemplo, gracias por avisarme. 
Ahi lo adjunto
Archivos
ejemplo.xls
archivo ejemplo
No tienes los permisos para descargar los archivos.
(38 KB)

jhon1904

avatar
Hola
Utiliza este codigo y me cuentas

Código:
Sub UltimoNumero()
With Hoja1
    .Range("A2") = Hoja2.Range("A" & Rows.Count).End(xlUp)
End With
End Sub



saludos,


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

gherrador


En esa macro, lo que estaria haciendo es, irse al ultimo numero que tengo en la columna A de la hoja2 y colocarlo en A2 de la hoja1. Lo que yo necesitaria ademas, es que antes de eso, sume 1 a la columna A de la hoja2.

suponete, en el ejemplo que te pase, tengo hasta 10 en la columna a de la hoja2, entonces deberia de sumar 1, lo que daria 11, y ese 11 colocarlo a continuacion del 10 y luego colocarlo en la hoja1. 
Luego si vuelvo a ejecutar la macro, sume 1 de nuevo, lo que pondria 12 en la hoja2 y ese 12 en la hoja1. 

Me explico?

gherrador


basandome en tu ayuda, termine haciendolo, no se si de la manera mas facil, pero al menos sirve para los fines.

La macro quedo asi.

Sub UltimoNumero()
Dim acumnc As Integer
Sheets("Hoja2").Select
[B2] = Range("A" & Rows.Count).End(xlUp)
acumnc = [B2] + 1
[B3] = acumnc
Range("A" & Rows.Count).End(xlUp).Select
ActiveCell.Offset(1, 0).Select
ActiveCell = [B3]
With Hoja1
    .Range("A2") = acumnc
End With
End Sub


Gracias por la ayuda!

jhon1904

avatar
hola

otra solución seria:
Código:
Sub UltimoNumero()
With Hoja1
    .Range("A2") = Hoja2.Range("A" & Rows.Count).End(xlUp).row 
End With
End Sub




saludos


_________________
Jhon Mayorquin
https://www.facebook.com/groups/1908894496046888/

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.