Me gustaría simplificar esta macro

Preguntas y respuestas relacionadas

Combinar filas según el texto.

Tengo una planilla en Excel que lleva las horas de trabajo. La planilla va desde la celda d5 hasta la celda ai6. Desde la fila d5 a la fila ai5 llevo los días que trabajo de 20 a 8 ( horario nocturno) y de la fila d6 a la fila ah6 los días que...
1 respuesta

Macro para ocultar grupo de opción

Estoy en mis comienzos de access y necesito armar una macro que me oculte, en un formulario, un grupo de opción dependiente de una casilla de verificación. Necesito que la actualización sea automática ni bien clickee la casilla, así cuando esté en el...
1 respuesta

Suma de varias columnas a ser agregadas con código

Tengo este código que va copiando y pegando datos en donde exista la hoja.. Sub MACOR2() Dim respuesta As Variant respuesta = MsgBox("¿Seguro de su factura?", vbYesNo + vbQuestion, "AVISO") If respuesta = vbYes ThenSheets("Hoja1").Select On Error...
1 respuesta

Bloquear la celda de la columna B

Explico lo que necesito, voy a capturar un dato en la columna A y quiero que en la columna B en la misma fila me ponga la fecha automáticamente y que además me bloqueé la celda A y B para que ese dato y esa fecha no se puedan modificar.
1 respuesta

Bloqueo y desbloqueo de un campo texto

Tengo un formulario cuya función es la de consultar o modificar los registros de una tabla. El formulario consta de varios campos de texto donde recoge la información de los campos de cada registro, mi intención es poder bloquear los campos de texto...
1 respuesta

Seleccionar un registro de varios subformularios

Tengo un formulario que se llama A con tres subformularios continuos B, C y D los tres subformularios están relacionados con un campo que se llama código. ¿Si yo seleccionara un registro del subformulario B como se podría hacer para que en aquellos...
2 respuestas

Cambiar indistintamente el valor que comparten dos celdas ( II)

Lamentablemente la solución que me dió Elsa no me vale del todo: Private Sub Worksheet_Change(ByVal Target As Range) 'x Elsamatilde If Not Intersect(Target, Range("A1:A10")) Is Nothing Then Range("B" & Target.Row) = Target.Value ElseIf Not...
1 respuesta

Correr ejemplo Creación y ejecución de consultas personalizadas por el usuario

Solicito me colaboren con el ejemplo encontrado aquí, he copiado el módulo y formulario a mi base de datos. He agregado consulta con el nombre CU_Asistencia de una tabla llamada "Asistencia"- Quisiera saber cual será mi error, el formulario abre pero...
2 respuestas

Listar rutas de carpetas dentro de otra carpeta

Soy muy nuevo en esto, he empezado hace poco con las macros y es algo que me parece interesante, de momento voy investigando con las que me bajo, las voy modificando a mis necesidades. Ahora necesito para el trabajo lo siguiente: Supongamos que tengo...
11 respuestas

Ejecutar macro según el valor de la celda

Que tal necesito de su valiosa ayuda tengo que ejecutar una macro en automático esto depende del valor de la celda. Estoy utilizando la siguiente macro: Private Sub Worksheet_Change(ByVal Target As Excel.Range) If Target.Address = "$S$1" And...
1 respuesta
¿No es la pregunta que estabas buscando?
Puedes explorar otras preguntas del tema