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

Estimados buenas tardes. Agradecería su colaboración con el siguiente caso Tengo una ListBox en la hoja "Distribución" ( se activa con clic en la celda K:2) que trae la información de la hoja "Transformación" celdas "L5:S102" estas celdas contiene formulas. Al momento de activar el ListBox, selecionar y dar doble clic para que la información baje al excel no envia la información de la linea selecionada. Realice una prueba eliminando las formulas de la hoja "Transformación" celdas "L5:S102" ahí me funciona la ListBox. En resume el inconveniente de selección se da al momento de colocar formulas en la hoja "Transformación" celdas "L5:S102" …

Buenas, Estoy copiando tablas a otro libro y no logro copiar los encabezados, si copia correctamente el mismo nombre que también me interesa Uso un buscador para que puedan elegir la ubicación del nuevo libro que se crea, el nombre del nuevo libro es "Salvo" y lo pueden cambiar por código Aguardo ayuda Saludos Adjunto CopioTablas.xlsb

Saludos, Tengo formulas en varias celdas que se alimentan de una Tabla llamada TablaSubAlim la cual reside en el mismo Workbook.. Sin embargo ahora he tenido la necesidad que esta tabla se alimente desde una Tabla que está en Access. Con este código logré hacer esa conexion de manera automática. 'Private Sub Worksheet_Activate() 'Application.ScreenUpdating = False 'Dim l As ListObject 'Dim q As QueryTable 'Dim s As String ' ' ''CONEXION A LA BASE DE DATOS 'Cells.Delete 's = "OLEDB;Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Jet OLEDB:Database Password="" ;Data Source=" 's = s & "\\DATABASE_TABLASUBALIM\DatabaseTablaSubAlim.accdb" …

hola he creado un formulario para añadir registros, modificar, eliminar, buscar etc. el problema lo tengo en el boton busqueda que el dato que necesito que busque es la fecha y sale un mensaje 380. podeis por favor ayudarme en donde tengo que modificar y que poner? adjunto fichero. gracias. Partes de Trabajo.xlsm

Hola a todos; Una duda que no soy capaz de resolver. Tengo dos textbox en un formulario y en el evento beforeUpdate una validación simple. También estoy usando en el evento KeyDown la tecla "F12" que una vez pulsada me retrocede y borra lo que tenía en el anterior textbox Si la validación no se cumple en el textbox2 me arroja un error porque no puede salirse del cancel=true y llevar el foco al textbox1. ¿Es posible salirse de ese cancel=true pulsando la tecla F12, o como podría depurar ese error?. Saludos a todos. MCancel.xlsm

Buenos días, ¿Me podríais decir cómo se puede extraer a una celda el contenido que se selecciona en un combobox personalizado, que está colocado en la cinta de opciones? He encontrado mucha información cuando el combo está en una hoja, pero en la cinta de opciones, no. Muchas gracias

Buenas tardes, Necesitamos un archivo excel que nos permita automatizar los horarios de trabajo con las siguientes premisas: - 7 trabajadores que tienen - 2 días libres a la semana - Turnos de Mañana, Tarde, Noche y Partido. Muchas gracias de antemano!!

Hola, Soy MUY principiante y necesito a ver si me podéis ayudar un poco... He creado una pestaña nueva en la ribbon con xml y he añadido un botón que necesito que imprima directamente en pdf una hoja del libro de Excel y que la guarde en la misma ubicación donde está el archivo xlsm. He estado mirando un poco porai pero no he sabido crear el código VBA para hacerlo... Imagino que es muy básico, pero no lo se hacer... ¿Algún alma caritativa me podría ayudar? Muchas gracias

Hola, me gustaría saber como es el comando de VBA para seleccionar todas las celdas de una hoja que contengan una palabra concreta. Lo necesito con VBA para luego enlazarlo con otra cosa. Sé hacerlo con la funcionalidad de Buscar; Buscar todas. Gracias.

Buenas, os adjunto un fichero que me descargo de una web pública de internet y una macro para importar y consolidar varios de ellos al mismo tiempo. Es un fichero que parece pdf, tiene extensión .1 pero al abrirlo en excel es como si fuese un csv, es más, si modifico la extensión se importa en excel sin necesidad de separarlo por ; Conseguí (como en el módulo de ejemplo) importarlos, tratarlos y consolidarlos, pero no soy capaz de modificar el tema de los decimales. Aparecen con punto si lo intento de una manera, y en otras ocasiones desaparecen los decimales, otras directamente se redondean las cantidades. Si modifico la extensión a csv se me estropea todo el proces…