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 se pueden hacer consultas de Excel o VBA por mensaje privado.
Utiliza el botón buscar del foro y te ahorras tiempo para obtener "ayuda".

No estás conectado. Conéctate o registrate

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

neoteo


hola buenas tardes desde costa rica Smile

estoy haciendo una macro para mostrar en un textbox un numero, este numero sale de la columna codigo que es la A.

para obtener el numero, busca la ultima fila tomando en cuenta las filas vacias entre los datos y le suma 1 para mostrar el resultado en el textbox que esta en un formulario

por ejemplo el ultimo numero es 5 se le suma 1 para que sea un 6 y se muestre en el textbox al iniciar el formulario

el formulario es para ingresar un nuevo trabajador, utilice este codigo

Código:
If ActiveCell = Empty Then
TextCod = 1
Else
Range("A6").End(xlDown).Select
TextCod = ActiveCell.Value + 1
End If

casi funciona pero no lo hace bien pues en el textbox solo me muestra 1, alguna sugerencia que pueda servir?
Archivos
planilla de empleados8.xls
No tienes los permisos para descargar los archivos.
(104 KB)

tyno


Hola neoteo.
Te paso tu archivo le modifiqué unas instrucciones al formulario que tiene el código que has mostrado.

Por lo que entendí dicha instrucción debe buscar una fila vacía en celda o bien la ultima fila vacía de dicha lista y devolver la suma del valor de la fila inmediatamente superior mas 1 (uno) al cuadro de texto llamado "TextCod", entonces creo que esta linea te serviría:

TextCod = Val(Range("a5:A65536").Find("").Offset(-1, 0)) + 1

También mofique la instrucción que carga los datos del cuadro de lista "ComEstCivil", es decir la instrucción que tenías cumple el mismo propósito y funciona perfecto, solo hice esta modificación como una alternativa para que la tengas en cuenta quizás te resulte mas practica:

ComEstCivil.List = Array("Soltero", "Soltera", "Casado", "Casada", "Viudo", "Viuda", "Separado", "Separada", "Divorciado", "Divorciada", "Union libre")

Cualquier por aquí estaremos. Saludos.
Archivos
planilla de empleados8.xls
No tienes los permisos para descargar los archivos.
(101 KB)

neoteo


esta genial me funciono pero al del boton no funciona, se queda igual... vi que tiene el mismo codigo que en initialize

muchisimas gracias

neoteo


ya lo resolvi!! lo puse al final del codigo de boton esta linea que estaba al principio

TextCod = Val(Range("a5:A65536").Find("").Offset(-1, 0)) + 1

muchisimas gracias me sirvio muchisimo

neoteo


se me olvido ponerlo como resuelto XD

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.