Buenas, vuelvo a publicar el mismo problema; talvez el otro por haberlo dejado bastante tiempo ya se cerro el tema.El problema es el siguiente:Tengo este problema, al abrir un archivo de Excel (Macro), me sale como cortado o en blanco al momento de ejecutar las macros, sin ejecutar las macros me aparece el archivo completó, ya sea los botones, el formato de la hojas, etc.Cuál podría ser el problema, probé con Office 2016, 2019, 2021, actualmente tengo Windows 10 (x64) pero aún persiste el problema. Pero en otras computadoras me corre bien el archivo. Link del archivo: SIN ERROR (SIN EJECUTAR LA MACRO): (Hoja Principal) (Hoja de Afiliación) …

Estimados buenas tardes, Recurro a Uds para ver si me pueden ayudar con algo que parece sencillo pero me esta complicando. Estoy cargando un combobox y guardando el Id en un textbox para usarlo posteriormente El tema es que quiero mostrar solo el nombre en el combobox y solo muestra campo 0 correspondiente al ID El Id lo copio correctamente al textbox pero no puedo lograr mostrar el nombre en el combo para seleccionar correctamente Aguardo sus sugerencias Adjunto archivo de excel y Base de datos Gracias Cargo Combobox Access.xlsb BaseDatos.rar

Hola tengo una archivo de datos de varias columnas que funciona con listas desplegables con indirecto (una depende de la anterior) y me gustaría tener en Mac una función similar a la de windows que me permita ver la lista de productos que tienen las letras que voy escribiendo en la lista que desprende el indirecto

Hola muy buenas noches, por favor me podrian apoyar, necesito que al señalar un ITEN del formulario AGREGAR_MANTENIMIENTO me lo ilimine de la hoja de calculo llamada "PH", y si en el Listbox "insumos2", agrego un item nuevo pueda tambien guardarlo. QUITAR LINEA.rar

en las celdas desde la V2 a la V50 tengo en formato general los siguientes números: V2=510.941,44 V3=300,150.19 V4=156169,84 V5= 110023,59 quisiera una macro vba que en el caso de encontrar un separador de miles como en v5 lo elimine sea este un punto o una coma y si no tiene separador de miles como en v3 que no haga nada debería quedar V2=510941.44 V3=300150.19 V4=156169.84 V5= 110023.59 Es decir que los números finales deben quedar sin millares y con un punto para separar los centavos además el resultado debe pegarse en el rango que va de BA2 A BA50 Desde ya muchas gracias por la respuesta

Hola a todos, en esta macro que adjunto os muestro tres maneras de cambiar la imagen de un botón o label en tiempo de ejecución de manera muy sencilla,. Decir que a veces es un poco difícil encontrar el icono requerido. Saludos a todos. MBoton(ConBuscador).xlsm

hola como podria en una hoja excel proteger celdas y el textbox dejarlo habilitado para la entrada de datos? si protejo la hoja seleccionando modificacion de objetos no me deja escribir en el textbox. ruego vuestra ayuda , gracias. TARIFICADOR (1) (1).xlsm

Por favor necesito ayuda, es un xml que tiene 4 conceptos distintos y quiero descargar cada concepto en cada celda de excel perome marca error en la palabra cfdi y quisiera solucionarlo es este error le doy click en depurar y asi aparece se los agradeceria mucho

Saludos compañeros Espero se encuentren bien. Necesito ayuda con lo siguiente: Tengo una plantilla de cuentas por cobrar. Mi sistema me da la informacion que se encuentra en la hoja "Datos" tal cual como esta. Busco automatizar el proceso. Crear una macro para separar las cuentas por vendedor, tengo varias hojas con los nombres de los vendedores (Damian, Teodoro, et.) Al activar la macro del boton "Trasladar", me gustaria que se pasen los datos de las columnas A,D,EG,H,I (estan sombreadas en verde en el ejemplo), a la hoja del vendedor correspondiente. En la columna "G" estan los nombres de los vendedores, deberia por ejemplo tomar a Teodoro de la col…

Buenos días, actualmente estoy trabajando con un archivo para crear una solución para la gestión de recibos impagados. Tengo todo listo (algo básico, debido a mi nivel) pero me encuentro con el siguiente problema: Al intentar ordenar el listado original mediante las distintas opciones de Excel solamente consigo ordenar mediante la Fecha de Vencimiento o mediante el Nombre. Si intento ordenar primero por uno y luego por otro, prevalece mas uno siempre. Lo que yo necesitaría es que los recibos con la fecha de vencimiento mas antigua se situasen al inicio de la tabla para ser gestionados primero, pero si un cliente tiene mas de un recibo, este estuviera en la fila …

Hola que tal, tengo un proyecto en el cual necesito de vuestra ayuda. tengo un formulario con un listbox, campos de texto y botones para agregar registros, eliminar y editar. preciso de vuestra ayuda porque no consigo pegar los datos de un nuevo registro a la hoja de presupuesto, si lo hace en la tabla donde estan todos los registros grabados. me explico a continuacion: en el listbox llamado "Lista" al cargar el formulario se carga todos los registros que se encuentran en la tabla Viajes de la hoja "Dia" si quiero registrar una nueva fila o registro pincho en el boton Registrar del formulario , relleno las cajas de texto y al pinchar el boton "Agre…

Hola y buenas tardes estimados foreros, esta vez tengo otra consulta, cómo puedo pintar en rojo como muestra la imagen, cuando se cumpla que valor de columna E sea mayor o igual a valor de columna F, sabiendo que el símbolo "<" significa que ese valor es menor al límite de detección indicado, que para la col E el mínimo es "<0.003" y para la Col F el mínimo es "<0.005". Con una macro que me puedan ayudar debería quedar como muestra la imagen. Les agradezco infinita y nuevamente su apoyo por favor estimados foreros. nota: el rango de datos se inicia en E8:E32 y F8:F32

Buenos días foro. Por mas que busco no encuentro la forma de que al activar una casilla de verificación en celda (casilla15) desmarcar otras dos (casilla16 y casilla17) y viceversa, al desmarcar al 15, marcar la 16 y 17. Por valores en celda no tengo problema, es marcar el objeto en si y no se si tendrá algo que ver que están en la misma celda. Gracias.

Estimados buenas tardes, Estoy con un combobox cargando datos de tabla de access. Si agrego Fields(0) , Fields(1), como esta pensado en el algoritmo que copio a continuación , los carga en filas diferentes de esta manera 3 Dato1 4 Dado 2 2 Cuando 3 es el Id de Dato 1 y 4 es el Id de Dato2 La idea es que al seleccionar el nombre se obtenga el valor del Id correspondiente en una variable Esto es a efectos de obtener el id para agregar datos en otra tabla Aguardo su ayuda Muchas gracias Private Sub CargoComboAccess() Dim cn As Object Dim datos As Object Dim consulta…

Hola a todos, Estoy intentado ejecutar una consulta Sql en un formulario y se ejecuta bien, pero quería ir un paso mas y establecer unas validaciones las cuales se me están atragantando. Hasta ahora mismo solo lo consigo con la fecha y me falta conseguirlo con dos criterios mas que son "Cuenta" y "Concepto" En la validación se debe tener en cuenta que siempre debe haber uno excepto con las fechas que se debe incluir fecha inicio y fin. Saludos Adjunto macro. MiSQL.xlsm

buen Dia masters Tengo el siguiente código con el cual pretendo enviar por correo dos hojas ("Parts Service", "Fault ") de este mismo libro, pero antes de enviar esas hojas quiero que me las guarde en una ruta , la cual ya solucione, ya que genere una lista de los archivos adjuntos que se enviaran, pero me sigue saliendo el error 440 "Se produjo el siguiente error: No se pueden agregar los datos adjuntos. Falta el origen de los datos", pero lo chistoso es que se enviar el correo con los archivos adjuntos Requiero de su apoyo en dos cosas, optimizar el codigo si se puede, si no pues solo la solucion del error De antemano agradezco su apoyo con mi codigo.....…

Necesito ejecutar un macro X numero de veces y que se agregue en una tabla los datos dentro del macro pero no encuentro forma de hacer que funcione Aqui una foto de lo que deseo agregar donde esta X que sea un numero cualquiera deseado Sub Macro1() ' ' Macro1 Macro ' ' Range("H3:K3").Select Selection.Copy Range("A50000").Select Selection.End(xlUp).Select ActiveCell.Offset(1, 0).Select ActiveSheet.Paste Application.CutCopyMode = False Range("J3").Select End Sub Ese es el codigo de la macro. Produccion.xlsm

Hola muy buenos días, por favor me podrían apoyar de como CARGAR un listado a un COMBOBOX, la condicional es la siguiente: Si la columna B tiene X dato, que se cargue lo que tengo en la columna A, Gracias de antemano por tu apoyo!

Buenas tardes a todos. A través de la fórmula "Imagen" he conseguido insertar logos partiendo de un enlace de la imagen. Sin embargo, me gustaría concatenar los mencionados logos estando fijos en la celda, es decir, sin que pueda manipularlos como cuando inserto una imagen normal. Lo he intentado con la función "Concatenar" e "Y" pero no consigo dar con ello puesto que creo que no es posible. Por ello creo que solo a través de una macro podría llegar a hacerlo. ¿Podrían ayudarme? Muchas gracias de antemano PD: adjunto un archivo para que se entienda Concatenar logos.xlsx

Hola a todos: Después de intentar e intentar, no consigo hacer Filtrar con las condiciones que necesito. Resulta que en una variable de tipo string, almaceno los valores para que se filtren. Cuando inserto los valores de forma manual, lo hace correctamente. Pero cuando le paso los valores que tengo en la variable, no consigo que funcione el filtro. Aparece como si no filtrase nada. No se que es lo que estoy haciendo mal. ¿Me podéis ayudar? ejemplo.xlsm

Buenas días a todos, Les copio parte de un algoritmo en donde copio y pego unas tablas en otro libro. Copia y pega todas las tablas correctamente, ahora si les aplico un filtro y copio solo las filas visibles aplicando SpecialCells(xlCellTypeVisible).Copy ,, no copia la tabla con su nombre de rango, solo copia los valores. Aparentemente cuando copias y pegas una tabla filtrada en Excel, es posible que el nombre de rango no se copie automáticamente junto con los datos. Esto puede ser que se deba a que el nombre de rango está asociado directamente con la tabla y no con las celdas individuales. Hay alguna manera de hacer esto en esta instancia al hac…

Buenas tardes , Estoy obteniendo datos sin duplicados de una columna de tabla para después filtrar otra tabla En Function ObtenerDatosTabla Se utiliza un objeto Scripting.Dictionary para almacenar los valores únicos. Antes de agregar un valor al diccionario, se verifica si ya existe en él, evitando así duplicados. Al final de la función, se devuelve un Variant con los valores únicos almacenados en el diccionario utilizando la propiedad .keys del diccionario. Los datos obtenidos los paso como argumento a Sub FiltrarDatosTabla, pero es ahí donde no me funciona, solamente me filtra por el ultimo valor Aguardo sus comentarios Muchas graci…

Buenas tardes, estoy trabajando sobre un archivo en el que quiero modificar los botones que tengo ahora mismo por objetos y que éstos imiten la función de los botones. Tengo un problema con la función deshabilitar botones pero aplicada a objetos, ¿existe? ¿puedo a través de VBA decir a un objeto que habilite o deshabilite su enlace con una macro como hago a través de los botones habilitando o deshabilitando su funcionamiento? He visto una solución que lo que hace es invisibilizar el objeto... pero no me acaba de convencer. Por ejemplo, en los botones tengo: Hoja09.cmdActualizarResumen_Anual.Enabled = True Hoja09.cmdActualizar…

Hola a todos de Maurizio Mi problema es este: Con la hoja de Excel de Microsoft Office 2019 Estoy tratando de crear un calendario bastante simple. ¡Siempre que haya utilizado su formato condicional, etc.! Pero como nunca estoy satisfecho cuando se trata de explotar la programación en su conjunto, he llegado a un punto en que mi calendario funciona bien; Con el único defecto que consiste en el hecho: Tener que ocultar los números que no pertenecen al mes seleccionado. De hecho, actualmente, si lo dejo en el mes actual, mi calendario funciona de maravilla. Pero si intento mover el número del mes posicionado en la celda (D1) mi Calendario me posiciona los valor…

da error de archivo no encontrado; que debo hacer para que se ejecute : WDir1 = "\\DESKTOP-13453GE\C:\Users\ipm20\Desktop\WProces\" WDir2= "F09-CompVda-PC2-20230701.xlsm" Run = "'" & WDir1 & WDir2 & "'!ProcCompVda" Application.Run WRun muchas gracias