Macros y programación VBA
Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?
8690 temas en este foro
-
buen día , agradezco de antemano la ayuda . El archivo enviado es una muestra pequeña ,en el proyecto real consta de la base de datos que va a ser diligenciada ´por varias personas que llenan muchos campos, en la hoja de tabla dinámica se encuentran muchas TD de varias consultas que se muestran en las hojas de dashboard como datos segmentados para hacer el seguimiento a la información de forma visual rapida y esta es realizada por los jefes . lo que quiero hacer es que un filtro de una segmentación pueda ver un campo de esa misma linea en un textbox por controles active X y a su ves se pueda modificar o editar, afectando la base de datos. ( si se filtra azul , en el t…
-
0
Reacciones de usuarios
- 0 respuestas
- 790 visitas
-
-
Estimados, espero que todos se encuentren bien. Estoy experimentando problemas con un código el cual intento tener un listado RowSource dinámico. Lo requiero debido a que existirá un combobox que se irá alimentando de datos, y requiero realizar busquedas a través de él. Llegué a un código a través del foro, pero no he podido compilarlo. Alguien podría darme luces de cual es el error que estoy cometiendo? Agradecido de todos ustedes. Libro1.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 826 visitas
- 1 seguidor
-
-
buen día a todos!, espero se encuentren bien!! me podrían ayudar a crear una macro o algún comando que me permita siempre guadar y no me pregunte si quiere guardar?. adjunto la imagen de lo que sale
-
0
Reacciones de usuarios
- 3 respuestas
- 1.1k visitas
- 1 seguidor
-
-
Sub CambiarColorCeldaCondicion() Dim miRango As Range Set miRango = Range("I7:AM300") For Each celdaActual In miRango If celdaActual.Value = "LJO" Then celdaActual.Interior.Color = RGB(255, 204, 204) If celdaActual.Value = "T" Then celdaActual.Interior.Color = RGB(0, 204, 204) If celdaActual.Value = "L" Then celdaActual.Interior.Color = RGB(119, 210, 85) If celdaActual.Value = "V" Then celdaActual.Interior.Color = RGB(255, 255, 204) If celdaActual.Value = "C" Then celdaActual.Interior.Color = RGB(255, 229, 204) If celdaActual.Value = "I" Then celdaActual.Interior.Color = RGB(189, 183, 107) If celdaActual.Value = "HA" Then celdaActu…
-
0
Reacciones de usuarios
- 1 respuesta
- 787 visitas
-
-
Buenos días! A ver si alguien puede ayudarme... ? Dada la celda activa, quiero seleccionar todas las celdas hacia abajo y hacia la derecha, hasta las últimas celdas con datos, aunque haya celdas vacías entre medias, y borrar su contenido. He probado de mil maneras y no doy con la buena..... Creo que lo que más se acerca a lo que quiero es esto, aunque no lo estoy aplicando correctamente porque me da error en 'Range' de '_Objeto' global: busca.Offset(filatm + 1, -13).Select Dim abajo As Range, derecha As Range abajo = Range(ActiveCell, Range(ActiveCell).End(xlDown).SpecialCells(xlCellTypeLastCel…
-
0
Reacciones de usuarios
- 5 respuestas
- 1.1k visitas
-
-
Hola!! Necesito añadir una búsqueda igual para la columna de autonomía, en la que yo pueda poner Sí y me aparezcan los usuarios que si tienen autonomía, y todos sus datos, al igual que pasa con la edad, lo quiero poner con la autonomía. Me urge hacerlo!! Gracias!! Búsqueda de usuarios.xlsm
-
0
Reacciones de usuarios
- 6 respuestas
- 839 visitas
-
-
Buenas tardes estimados programadores, Acudo nuevamente a su conocimiento, de antemano, agradecer siempre a la persona que se tome el tiempo de ayudarme. Como lo indico, lo que requiero es lo siguiente Tengo un TextBox15 en el cual una vez el usuario hace clic arroja un tiempo en formato "hh:mm:ss", este tiempo sale después de restar 2 fechas del mismo formulario. Ahora bien, la ayudita que quiero es que dependiendo del rango de tiempo le ponga un color u otro, de la siguiente manera si es >= 00:05:00 ponga el color del forecolor del textbox15 rojo si es > 00:02:00 y 00:05:00 ponga el forecolor en amarillo si es < de 00:02:00 p…
-
0
Reacciones de usuarios
- 3 respuestas
- 803 visitas
- 2 seguidores
-
-
Hola a todos como podria hacer un calendario perpetuo en un userform para crear citas para una clinica. CalendarioPerpetuo.xlsm
-
0
Reacciones de usuarios
- 4 respuestas
- 2.1k visitas
-
-
Hola buenas tardes amigos de Ayuda Excel. Por favor si me pueden ayudar con este procedimiento que no logro hacer. gracias La macro que está en el botón debe evitar insertar una fila nueva si el valor de la última celda en la columna G es igual a cero (0). Y un MSGBOX que indique al usuario que debe llenar la información primero. EJEMPLO AYUDA EXCEL.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 874 visitas
-
-
Estimados amigos, tengo un sistema contable que seguí por internet del profesor Otto González y no puedo adaptar a los valores de Chile; le he escrito al profesor y no me contesta; es posible que alguno de ustedes me ayude para solucionar el tema? ingreso un valor de 15.000,00; me escribe en el formulario 1.500.000,00 y me envía al libro diario 1.500.00000 Desde ya les agradezco incidencias.docx Gestor de Contabilidad - Balance General.xlsm
-
0
Reacciones de usuarios
- 7 respuestas
- 2.2k visitas
- 1 seguidor
-
-
Buenos días, Muchas gracias de antemano por su ayuda. Tengo un problema (además de saber mas bien poco de macros) y es que me gustaría en un formulario USERFORM de excel extraer un valor de identidad único por cliente según se meta el numero de teléfono o el mail en 2 textbox que hay para ello. La lógica es la siguiente: 1.- Ingresamos un mail en textbox TEXT_MAIL_CLIENTE y nos debe aportar el ID del cliente denominado TEXT_NUMERO_CLIENTE 2.- Ingresamos un telefono en textbox TEXT_TELEFONO_CLIENTE y nos deberia aportar el ID del cliente denominado TEXT_NUMERO_CLIENTE si el resultado de este ultimo y el anterior coinciden. Si no tenemos MAIL …
-
0
Reacciones de usuarios
- 18 respuestas
- 2.9k visitas
-
-
Hola, buenos dias, Les paso una duda que se me plantea y que aunque se me antoja sencilla, mis desconocimientos de las macros no me permite conseguir el resultado óptimo. Se tarta de conseguir que cuando ejecute una macro, en las celdas vacías de la columna E, se incorpore un texto fijo "Material de Oficina" pero solo si en la misma fila de la columna D hay contenido. No me sirve poner una formula SI porque solo quiero que se autorrelleno al ejecutar la macro, ya que podría querer incorporar un texto distinto y el autorrelleno inmediato podría llevarme a errores. Muchísimas gracias noir adelantado por la ayuda. Saludos, Material.xlsm
-
0
Reacciones de usuarios
- 1 respuesta
- 877 visitas
-
-
Hola, repasando las macros de mi libro me he dado cuenta de que tengo un IF compuesto que no lo ejecuta y no le veo la razón. ¿Podéis iluminarme? Gracias. If CeldaActual.Value >= 11 And CeldaActual.Value <= 13 Then CeldaActual.Interior.ColorIndex = None CeldaActual.Font.ColorIndex = 3 'Rojo CeldaActual.Font.Bold = True Tensión_macros_1bis.xlsm
-
0
Reacciones de usuarios
- 2 respuestas
- 927 visitas
-
-
Hola, quiero crear una tabla con los datos adjuntos en el siguiente documento, con alguna posibilidad de que por ejemplo yo pueda poner 40 años, y me aparezca el listado de personas con 40 años, entiendo que será con la opción buscar pero no se aplicarlo, o no se si habrá alguna otra forma de hacerlo. Me urge hacerlo!! Gracias de antemano. LISTADO DE USUARIOS VULNERABLES.docx
-
0
Reacciones de usuarios
- 8 respuestas
- 1.2k visitas
- 1 seguidor
-
-
-
Hola Amigos del Foro Como siempre agradezco de antemano la ayuda que puedan darme para una adecuación que estoy tratando de realizar a un archivo Tengo 2 Archivos llamado Filtro Archivo (Archivo 1) y Mayor (Archivo 2) En el Archivo Filtro Archivo (Archivo 1) , tengo 3 hojas a.- Hoja Profit allí tengo la data de la información Resumen adecuada en 5 Columnas CODIGO FECHA REF DESCRIPCION SALDO b.-Hoja Cuenta Esta hoja posee las cuentas contables en las 2 Columnas CODIGO CUENTA …
-
0
Reacciones de usuarios
- 2 respuestas
- 1k visitas
-
-
Amigo expertos espero me ayuden, el tema es que tengo un formulario con 2 combobox y un textbox para hacer la busqueda de diferentes hojas y al lado derecho para que muestre los datos consultados en la parte izquierda con los controles antes mencionados; lo que pasa es que me busque cuando escoge del combobx tipo de reciduo me seleccione la hoja correspondiente y mas abajo tengo un textbox para poner el numero de normas a tratar que corresponde en la hoja seleccionada arriba y por ultimo mas abaja hay un combobox y por ultimo en el tipo de reciduo que debo seleccionar normas a cumplir me muestre los datos el los textbox correspondientes cumpliendo todo los pasos correspon…
-
0
Reacciones de usuarios
- 4 respuestas
- 1.3k visitas
-
-
Buenos días comunidad de Excel. Acudo a vosotros por ayuda, mi formulario no registra la información que deseo agregar, no me aparece ningún mensaje de error y el formulario inicia sin problema alguno. No sé dónde puede estar el error? Por favor vuestra ayuda, no sabría cómo agradecer si me ayudan? Gracias de antemano GASTOS E INGRESOS (Prueba 1).xlsm
-
0
Reacciones de usuarios
- 1 respuesta
- 766 visitas
-
-
Buenos dias, tengo una tabla que en la columna A tiene datos de metrajes que se en algunas ocasiones se repiten correlativamente ya que es una tabla normalizada. Necesito recorrer la columna A y cuando encuentre varias filas con igual metraje, en la columna C empiece a llenar desde 0 a más, dependiendo el número de filas con igual metraje. En caso no se repita el metraje deberia llenarlo con O automaticamente. Adjunto excel para mayor claridad. Muchas gracias por su ayuda. MarielaLilianEjmDatos.xlsx
-
0
Reacciones de usuarios
- 8 respuestas
- 1.2k visitas
-
-
Hola, buenas tardes, hacía tiempo que no escriía por el foro. Tengo una macor que da formato a unos valores de una hoja Excel, mi problema es que intento conservar el color del fondo de "sólo" las celdas con determinado height y no soy capaz de hacerlo. El código que estoy intentando usar es: ... If Range("a6").EntireRow.RowHeight = tamanio Then celdaActual.Interior.ColorIndex = 2 End If ... Podéis echarme una mano. Gracias. Saludos.
-
0
Reacciones de usuarios
- 10 respuestas
- 1.8k visitas
-
-
Buenas me podrían ayudar con este error. Gracias
-
0
Reacciones de usuarios
- 1 respuesta
- 936 visitas
-
-
Hola tengo un libro de facturación casi terminado pero siempre quiere uno una función más, y desde unas de mis hojas denominada "Facturar Albaranes" quiero tener acceso a una carpeta de mis Documentos "Albaranes no pagados" y quiero abrir esa carpeta desde esa hoja en concreto desde el rango (B12:B39) al hacer doble clic en cualquier celda de ese rango para tener acceso a todos los albaranes de un cliente por ejemplo. Tengo algunas macros y me funcionan muy bien, pero no puedo sacar esta. Esto siguiente va en la página pero tampoco me funciona. Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Worksheets ("Albaranes_Facturados") If N…
-
0
Reacciones de usuarios
- 3 respuestas
- 2.1k visitas
-
-
Buenas, me encuentro con el siguiente problema. Resulta que a veces, al abrir un documento, no me aparece el mensaje de activar macros. El problema es que tengo un excel de empresa, y parece que tiene bloqueado las ·"macro settings" por lo que me aparecen en gris clarito y no puedo activarlas manualmente. Así que las veces que no me aparece el mensaje al abrir, no puedo activarlo manualmente y por tanto no puedo trabajar con el archivo. Mi pregunta es, existe alguna forma de poder activar las macros de otro modo. Quizás creando un botón que pueda pulsar en cualquier momento o algo así... Saludos y gracias!
-
0
Reacciones de usuarios
- 2 respuestas
- 1.2k visitas
-
-
Buenas, necesito saber como puedo unificar hojas de varios libros, tengo que trabajar varios libros que me llegan ( 4 ) con el mismo numero de hojas cada uno y mismos nombres, y necesitaria unificarlas todas en el mismo libro para extraer los datos. Saludos.
-
0
Reacciones de usuarios
- 1 respuesta
- 833 visitas
-
-
BUENOS DIAS, TRATO DE HACER UNA CONSULTA PARA EXTRAER LOS DATOS DE ACCES CON UNAS CONDICIONES Y ME APARECE ERROR Dim Sql Sql = "SELECT Id, NOMBRE, PRECIO, IMAGEN FROM PRODUCTOS WHERE EMPLEADO =" & Label1.Caption & " AND SUSPENDIDO = 0 ORDER BY NOMBRE" Call Conecta 'Crea la conexion Set Rs = New ADODB.Recordset Rs.Open Sql, miConexion, adOpenKeyset, adLockOptimistic -------Aqui es donde me sale el error No coinciden los tipos de datos en la expresion de criterios
-
0
Reacciones de usuarios
- 2 respuestas
- 802 visitas
-
Información básica de protección de datos
- Responsable: Sergio Andrés Celemín
- Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
- Legitimación: Consentimiento del interesado.
- Destinatarios : Hetzner Online GmbH.
- Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
- Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email sergio@ayudaexcel.com
Información adicional: Encontrarás más información en la política de privacidad.