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

Preguntas similare

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

Responder a este mensaje

#2 Francisco Mty

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

Con esta nos posicionamos en al ultima primera fila vacia :)

sub ultimafila()
Range("a1").Select
Do Until ActiveCell = Empty
ActiveCell.Offset(1, 0).Select
Loop
MsgBox "La direccion de la celda es: " & ActiveCell.Address & Chr(13) & "Su
contenido es: " & ActiveCell.Value
end sub

Responder a este mensaje

#3 Francisco Mty

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

Correcion:

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

mensaje:
MsgBox "La direccion de la celda es: " & ActiveCell.Address & Chr(13) & "Su
contenido es: " & ActiveCell.Value
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida