José Saúl Méndez Alonso

José Saúl Méndez Alonso

Programación Avanzada en Visual Basic, VBA, Modelo de Objetos de Office, Manejo de Bases de datos MS SQL Server, MS Access Master Instructor MOS, Master Instructor MCAS
 51,4K puntos  San Luis Potosí, México @josaul75 desde - visto

Preguntas y respuestas en Visual Basic

Respuesta en y en 2 temas más a

No puedo conectarme al host con vb6 y extra treme

Honestamente desconozco qué es Extra treme, pero encontré esta información qué considero te será de mucha utilidad. http://support.attachmate.com/techdocs/2164.html
Respuesta en y en 2 temas más a

Macro repita acción atrevas de un rango

Te dejo un código para realizar lo qué pides. Sino deseas copiar TODO el contenido, sólo habrá que hacer una adecuación. Sub Copiar() Dim I As Integer For I = 1 To 600 Range("L" & I).Value = Range("G" & I).Value Next End Sub
Respuesta en y en 1 temas más a

Como salir de Excel sin guardar cambios

Te envío el código modificado Private Sub CommandButton1_Click() UserForm1.Show End Sub Private Sub CommandButton2_Click() 'Con esta indicacion cierras la aplicación Application.Quit ActiveWorkbook.Close False End Sub Private Sub...
Respuesta en y en 2 temas más a

¿Como obtener de un string los caracteres numéricos separados por * e introducirlos en variables?

Te dejo un código que te puede servir, usa la función split(), para separar una cadena y la función IsNumeric() para tomar sólo los números. Sub sCadenas() Dim TestString As String '= "214*215*216*217*S" Dim TestArray() As String '= Split(TestString)...
Respuesta en y en 2 temas más a

Como buscar un valor repetido en excel

Una forma muy rápida de hacerlo es colocar una columna al final de tus datos y ahí colocar una función "=Contar.si("$A$1:$A$500,A1)" Con esto podrás ver cuantas veces se repite el mismo sueldo, para saber quienes tienen el mismo sueldo te sugiero...
Respuesta en y en 2 temas más a

Ejecutar macro cada cierto tiempo y el tiempo yo lo pueda manipular desde una ceda

Te paso un código qué puede ser útil. Sub OnTime_Start() Dim LTime As Date LTime = TimeValue(CDate(Range("a1").Value)) Application.OnTime Now + LTime, "Repetir" End Sub
Respuesta en y en 2 temas más a

Como puedo extraer dato de una celda atravez de un caracter

Te envío una función que te permitirá hacer lo qué necesitas. Function letras(Celda As String) As String Dim nLargo As Integer Dim nIni As Integer Dim sCadOr As String sCadOr = Range(Celda).Value nIni = InStr(1, sCadOr, ".") nLargo = Len(sCadOr) If...
Respuesta en y en 1 temas más a

Necesito que excel me envié un correo cuando llegue una fecha de vencimiento

Te dejo esté código para que envíes tus correos, puedes poner una columna con la condición de la fecha, para que hasta ese momento se envíe tu correo. Sub EnviaCorreo() '---------------------------------------------------- 'No quites estas líneas son...
Respuesta en y en 2 temas más a

Borrar o Encriptar cadena de conexión

Puedes proteger tus módulos, así el usuario no tendrá acceso.
Respuesta en y en 2 temas más a

Hay alguna manera de retener algún dato en un formulario sin tener que recurrir a una celda

Una opción sería que el seguimiento de folios lo hagas desde un archivo externo, ejemplo un TXT (encriptado). Otra opción es que el folio lo guardes en el Registro de Windows.