............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

codigo para botones actualizar y consultar siguiente

Ver el tema anterior Ver el tema siguiente Ir abajo

codigo para botones actualizar y consultar siguiente

Mensaje por kaliche el Jue Jun 16, 2011 1:33 pm

Tengo un formulario que tiene los botones de: ingresar, nuevo, actualizar, salir y consultar.

La información llega a una tabla.

Me falta el codigo para el botón ACTUALIZAR, una vez hecha una consulta la informacion que aparece en el formulario puede ser modificada y al presionar el boton actualizar, se espera que tal informacion quede modificada JUSTO EN EL MISMO RENGLON original donde esa informaciòn se encontraba. Cual sería ese codigo?

Cuál sería el codigo para buscar nombre de persona en la columna NOMBRES?, es decir, como se hace una búsqueda de un texto especial en un determinada columna de texto?

Cuando ya me encuentre ese nombre buscado, cual es el codigo para un boton llamado CONSULTAR SIGUIENTE, que permita buscar el mismo nombre de ese renglón para abajo?

Les dejo la ruta del archivo base:

[Tienes que estar registrado y conectado para ver este vínculo]


GRACIAS, GRACIAS, GRACIAS!


kaliche

Masculino Cantidad de envíos : 3
Edad : 51
Ciudad - Pais : colombie
Version de Excel : 2010
Fecha de inscripción : 14/06/2011

Volver arriba Ir abajo

Re: codigo para botones actualizar y consultar siguiente

Mensaje por rolano el Jue Jun 16, 2011 9:53 pm

Hola Kaliche, solo es para el boton actualizar el codigo adjunto.
Código:

Private Sub cmdactualizarestado_Click()
Sheets("tabla").Activate
Range("A1").Select
On Error Resume Next


Dim C As Range
With Range("C2:C37")

Set C = .Find(What:=txbcodigoestado, LookIn:=xlValues, LookAt:=xlWhole)

If Not C Is Nothing Then
C.Select

'MsgBox "Encontrado " & c.Address
Else
MsgBox "ESTE CÓDIGO NO EXISTE!!"
End If
End With



ActiveCell.Offset(0, -2).Select
ActiveCell = txbnombresestado

ActiveCell.Offset(0, 1).Select
ActiveCell = txbgradoestado

ActiveCell.Offset(0, 2).Select
ActiveCell = txbvr2010estado * 1

ActiveCell.Offset(0, 1).Select
ActiveCell = txbvr2011estado * 1

ActiveCell.Offset(0, 1).Select
ActiveCell = txbmartesdepruebaestado * 1

ActiveCell.Offset(0, 1).Select
ActiveCell = txbvrtotalestado * 1

ActiveCell.Offset(0, 1).Select
ActiveCell = txbfilaestado * 1



txbnombresestado.SetFocus

Range("A1").Select

Sheets("tabla").Activate
Range("A1").Select

End Sub

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
Blog
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 43
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: codigo para botones actualizar y consultar siguiente

Mensaje por kaliche el Sáb Jun 18, 2011 11:37 am

Mil gracias rolano, por su ayuda, funcionó correctamente.

Quisiera saber porqué *1? y no *2, *3 etc?

Gracias por tu tiempo

kaliche

Masculino Cantidad de envíos : 3
Edad : 51
Ciudad - Pais : colombie
Version de Excel : 2010
Fecha de inscripción : 14/06/2011

Volver arriba Ir abajo

Re: codigo para botones actualizar y consultar siguiente

Mensaje por rolano el Sáb Jun 18, 2011 1:29 pm

Hola Kaliche, es
*1 no es *2 o * 3
Cuando colocas * 1 el texto lo convierte a valor si son numeros.

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
Blog
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 43
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: codigo para botones actualizar y consultar siguiente

Mensaje por kaliche el Mar Jun 21, 2011 10:35 am

gracias rolano,muy amable.

Necesito una macro que OCULTE las formulas utilizadas en las celdas, pero que NO queden bloqueadas.

kaliche

Masculino Cantidad de envíos : 3
Edad : 51
Ciudad - Pais : colombie
Version de Excel : 2010
Fecha de inscripción : 14/06/2011

Volver arriba Ir abajo

Re: codigo para botones actualizar y consultar siguiente

Mensaje por rolano el Lun Jun 27, 2011 12:21 pm

Hola kaliche, no es necesario una macro revisa este link, en todo caso abre otro tema.
Mostrar u Ocultar Formulas

Código:

Sub OcultaFormula()
Range("A1:C10").Locked = False
Range("A1:C10").FormulaHidden = True
ActiveSheet.Protect
End Sub

_________________
Saludos,
César Tirado
M.A.P. 2012-2014
Microsoft Active Professional
Blog
avatar
rolano
Moderador
Moderador

Masculino Cantidad de envíos : 53
Edad : 43
Fecha de inscripción : 14/04/2009

http://excelilove.blogspot.com/

Volver arriba Ir abajo

Re: codigo para botones actualizar y consultar siguiente

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


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