Vba Si hora actual esta dentro de franja horaria

Preguntas y respuestas relacionadas

ComboBox con listado de carpetas

En su día puse la siguiente pregunta y obtuve mi respuesta. En principio totalmente adecuada, sin embargo, me ha surgido un pequeño problema. Yo busco carpetas y no archivos, por lo que la función Dir me da como resultado ("."), y no me obtiene las...
2 respuestas

Primera letra mayúscula de cada palabra

Quisiera poner la primera letra en mayúscula de cada palabra y las demás en minúsculas pero sin tener en cuenta, símbolos, números, guiones, signos de exclamación, interrogación etc. Lo intenté con Strvconv(campo, vbpropercase) pero no sirve para lo...
1 respuesta

Buscando una función de cadenas

Tengo la siguiente cadena: AT2-001-3A Y quiero que me devuelva todo el texto a partir de AT2-, es decir, necesito una función para que al aplicarla: cadena= funcion(cadena, 0, "-"), me devuelva cadena2 = 001-3A
2 respuestas

Seleccionar varios archivos a la vez.

En la aplicación tengo un CommonDialog tipo ShowOpen, y uso las flags para poder utilizar el multiselect. Esto funciona bien y me deja todos los ficheros seleccionados en el filename del CommonDialog. El problema es que yo quiero volcar esos...
1 respuesta

Desplegar datos SQL de Agente en internet

Quiero desplegar información, que hago mediante un agente, un página predeterminada, como lo puedo realizar
1 respuesta

Cómo dar nuevas claves a clientes en una aplicación de altas y bajas creada con Visual Basic

Antes que nada, estoy realizando una aplicación donde doy de bajas, altas modifica, y consultas. Pero a la hora de darles de alta introduzco una clave y si ya esta me dice que ya existe, y si no pues se guardan los datos en la tabla clientes ok, pero...
1 respuesta

Implementar Progress Bar en macro para generar efecto visual

Sub Buscar() 'Mod.Por.DAM Application.ScreenUpdating = False Set h1 = Sheets("Estados de cuenta") Set h2 = Sheets("Cartera.") ' h1.Range("A18:E6000").ClearContents j = 18 Set r = h2.Columns("G") Set b = r.Find(h1.Range("A6"), LookIn:=xlValues,...
1 respuesta

Como Imprimir todos los PDF cuyo hipervínculo tengo en una consulta

Tengo una consulta que enlaza unas archivos en pdf, manifiestos en hipervínculo, la idea es listar la consulta y que me imprima todos los pdf de esta consulta sin tener que abrirlos, Gracias por la colaboración
1 respuesta

Utilizar "Application.OnTime " en un Formulario

Hoy tengo una duda, estoy haciendo un formulario de de bienvenida en el cual quiero poner una imagen que se vaya desplazando hacia la derecha. Como en vba no hay un timer encontré esta rutina.. Public datHora As Date Public Const conIntervalo = 2 'un...
1 respuesta

La acción OpenForm se canceló

Quiero pedirles por favor me ayuden a solucionar un problema en una base de datos de Access. Tengo un botón en el formulario principal, el cual es para ver los reportes realizados en otro formulario llamado VER REPORTE, seleccionando un periodo de...
3 respuestas

Ocupar Faltante en numero secuencial, según fecha, en campo texto

Tengo un formulario Fichas, con un campo fecha/hora "Fecha_alta" y otro campo texto "Solicitud". En el evento después de actualizar Fecha_alta tengo el siguiente código: If IsNull([Solicitud]) Then Solicitud = Year([Fecha_alta]) & "" &...
1 respuesta

Modificar macro para autojustificar más de un textbox

Es una pregunta para Sveinbjorn El Rojo Tengo un código del maestro Lebans que permite autojustificar un textbox según la longitúd de lo que hayas escrito... El problema es que está hecho para un solo textbox y no sé adaptarlo para que autojustifique...
1 respuesta

"No Como" no funciona en mi Access

Desarrollé una consulta porque estoy tratando de excluir registros de texto de mi base de datos utilizando el criterio "No Como", pero no resulta, pues al escribirla le agrega de forma automática la letra "O" entre No y Como y al ejecutar me arroja...
2 respuestas

Como utilizar dos macros que empiezan con Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Quiero integrar dos macros que realizan una funcion cada una pero el asunto es que las dos deben funcionar el la misma hoja y empiezan con Private Sub Worksheet_SelectionChange(ByVal Target As Range) y a la hora de ejecutar las dos marcan error. ¿Qué...
2 respuestas

Sumar números(string) de 50,100 o más dígitos

Estuve probando lo que me dijiste pero no me funciono... Pero bueno... Tengo esto espero que me ayudes Lo que estoy tratando de hacer es sumar números de 50, 100 o más dígitos sumando a la antigua con reservas y todo... Como en la básica ... XD...
1 respuesta

¿Cómo puedo ignorar las celdas con fechas que están vacías?

He utilizado una macro que se colgó en la respuesta a una pregunta que hicieros sobre cómo avisar cuando la fecha estaba próxima. Private Sub Workbook_Open1() Dim N As Integer Dim Texto As String On Error GoTo Siguiente For N = 4 To 100 If Cells(N,...
1 respuesta

Campo alfanumérico consecutivo personalizado para una BBDD en Access

Necesito crear un campo alfanumérico, el cual tenga esta configuración, XXX-0000-00, donde las tres equis sean el prefijo de país, los cuatro ceros el consecutivo y los dos últimos ceros el año en curso, y que cuando termine el año se reinicialice...
2 respuestas

¿Como hacer macro que cierre excel sin guardar después de un tiempo elegido?

Como temporizar el cierre de excel sin guardar.
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas de los temas