Amin Cazares

Amin Cazares

No seas racista y acepta mis negras intenciones
 1.700 puntos  San Luis Potosí, México @elamin desde - visto

Respuestas

Respuesta en a

Autofilter de un excel en VB

Disculpa la tardanza Dale un vistazo a esta página a ver si de algo te sirve http://msdn.microsoft.com/es-es/library/5szkzs17(VS.80).aspx Seguiré buscando algo para ti...
Respuesta en a

¿Cómo realizo una suma en una tabla con vb6?

A ver si te sirve RecSQL. Open "select * from tabla " ' no recuerdo bien como es la consulta While Not RecSQL.EOF reg = RecSQL.Fields("nombre_columna_a_sumar") suma=suma+reg RecSQL.MoveNext Wend Set RecSQL = Nothing asi ya tienes la suma y si el...
Respuesta en a

Botón que se visualiza donde no quiero

¿Aver si te entiendo bien tienes un botón el cual no sabes donde esta para vizualisarlo u ocultarlo(o lo que quieras hacer con el)? Si es así seleccione el formulario donde esta ese botón y en las propiedades selecciona el nombre de el botón y te...
Respuesta en a

Introducir solo numero al textbox de calculadora

¿Visual basic 6.0? Agrega esta función Public Function numeros(Tecla As Integer) As Integer Dim strValido As String strValido = "0123456789" If Tecla > 26 Then If InStr(strValido, Chr(Tecla)) = 0 Then Tecla = 0 End If End If numeros = Tecla End...
Respuesta en a

Función si anidado

Pues mira No se si sea obligatorio que lo realices en exel pero ni no lo puedes realizar en visual basic 6.0 es un compilador que estaría biuen que lo utilizaraz en tu problema Si optaspor esta opción dime y te paso el código y todos los pasos a seguir
Respuesta en a

¿Buscar numero menor más próximo?

La verdad yo no utilizo excel y no entendí muy bien tu código pero por lo que preguntas se me ocurre que podrías guardar el numero de registro donde encontró el ultimo en una variable y agregues el que tecleaste en el numero de registro +1. Esto si...
Respuesta en a

Como cambiar minúsculas

Intenta esto: crea un modula en el cual declares esta función (en módulo para que la reconozca todo el programa) "Function minusculas () (ByVal KeyAscii As Integer If KeyAscii = KeyAscii + 32 End If minusculas = KeyAscii End Function" y la mandas...

5 respuestas no visibles

Suscríbete RSS