Forums Últimos mensajes - Powered by IBM
 

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
 

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

Preguntas similares