Añadir filas en una hoja por medio de un formulario en VBA Excel

13/06/2006 - 16:15 por Ruben | Informe spam

Hola a todos, alguien que me ayude con el codigo por favor.
Resulta que tengo en una hoja de Excel (Movimientos) varias columnas y
filas y tengo un formulario en VBA en donde mando a buscar el numero de

cedula(numerico) y deseo que si no lo encuentra que mande mensaje que
no existe y me permita ingresar en la ultima fila todas las columnas
que desee ingresar por varios textbox y que tambien me permita ordenar
por compañia.

Muchas gracias

Siga el debate

3 respuestas

Tengo una respuesta

DRAGON AGE™: INQUISITION – Matadragones

Leer las respuestas

#1 Francisco Mty

13/06/2006 - 18:07 | Informe spam

Para saber si existe prueba esta rutina, solo para comprobar que no existe :D

si no existe pues ya es otra rutia que despues agrego en vista de no saber
los detalles del formular ( campos y demas de la tabla)

saludos

Sub buscar()
Dim x
Range("a1").Select
x = InputBox("Valor buscado: ", "Define el valor a buscar")
On Error GoTo agregar
Selection.Find(What:=x, After:=ActiveCell, LookIn:=xlValues, LookAt:= _
xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext,
MatchCase:= _
False, SearchFormat:=False).Activate

agregar:
MsgBox "El valor no existe" & ActiveCell.Address
End Sub

Leer las otras respuestas

Preguntas similares

Busqueda sugerida :