Hola a todos, Tengo la siguiente macro para ir completando una tabla a partir de valores definidos en el módulo y llamados Cant1, Cant2, Cant3.......hasta el 100 Dim i, k As Byte Dim a As String For i = 1 To 100 k = 3 * (i - 1) 'para ir saltando de a 3 columnas a = "Cant" & i 'cantidad % de componente a ingresar en tabla If a = "" Then Exit For Else Cells(FilaIngreso, 1 + k).Value = a End If Next i El bucle como tal funciona pero en lugar de ponerme los valores antes definidos de Cant1, Cant2....etc, me pone el texto "Cant1", "Cant2", etc Cómo hago para que me de de el valor y …

Buenas noche amigos de Excel Ayuda quisiera que me ayuden completando mi amplicación con la ayuda de ustedes e creado una aplicación que ingresa datos para analizar en varios perìodos, los datos estan en un hoja BBDD, mi objetivo es que al analizar los productos cada periodo y culminarlos quiero pintarlos de acuerdo a dos criteros "suspendido" o "culminado" utilizando el buscador yo digito el "Lote" y doy clik en la lupa y busca el producto pero quiero que al ubicar el "Producto1, Produco2 etc" al selecionar uno de los dos botones de opción "verde o rojo" se pinten automaticamente en la base de datos BBDD todas las filas que buscó. Les agradezco por darme un tiempo e…

Hola a todos. Tengo un bucle donde el nombre del la variable de la cual necesito obtener el valor va cambiando de Cant1....a....Cant10 (he simplificado el ejemplo que sigue). Los valores de estas variables Cant1.. fueron definidos antes para todo el módulo. Dim i As Byte Dim a As String For i = 1 To 10 a = "Cant" & i Cells(Fila, 1).Value = a Next i El bucle como tal funciona pero tengo el problema que en lugar de ponerme el valor de Cant1, Cant2 (definidos antes) me escribe el texto "cant1", "cant2". Como obtengo el valor de Cant1 a Cant10? Gracias

Hola, quiero crear un boton en la Hoja Grafica el cual se enlace con la macro de guardar archivo en la carpeta donde esta el archivo pero me salta el siguiente error. Alguien me puede ayudar, gracias. GRAFICA_TEMPERATURAS_CAMARAS_1_T10-12_v01.xlsm

Hola a todos. Me gustaría me ayuden con lo siguiente. Quiero hacer una macro que borre el contenido de 10 combobox cuyo nombre es CbxComp1.....al....CbxComp10. Una forma de hacerlo es obviamente la que sigue (y me funciona): CbxComp1.Value = "" CbxComp2.Value = "" CbxComp3.Value = "" CbxComp4.Value = "" CbxComp5.Value = "" CbxComp6.Value = "" CbxComp7.Value = "" CbxComp8.Value = "" CbxComp9.Value = "" CbxComp10.Value = "" El tema es que quiero hacerlo con un bucle porque voy otras situaciones similares pero con más comboxes. He probado lo siguiente pero no me funciona (no soy experto): Dim i …

Buenos días a todos; -Tengo creada una macro que hace una consulta Sql sobre una tabla Access con un Where donde le pongo los parámetros de fecha. Ahora estoy intentado cambiar los parámetros de fecha (DD/MM/AAAA) por solo año (AAAA). Lo que he añadido a mayores al formulario son dos SpinButton que insertan los años en cuestión. Private Sub btn_Buscar_Click(): On Error Resume Next Dim vConsulta, where As String Dim Fecha1, Fecha2 As Date '<<<Dim Año As Variant Dim i As Integer Conectar Application.ScreenUpdating = False Application.DisplayAlerts = False vConsulta = "sql_Resumen" Fecha1 = Format(Me.TextBox100, "DD/MM/YYYY") '<<<<&l…

Recurro a ustedes con la siguiente duda. Estoy haciendo un complemento, pero tengo un problema. Necesito que el formulario activo detecte el cambio de hoja, para que se ejecute una macro. Existe alguna forma de realizar esto ¿? Gracias de antemano

muy buenas, se que es una tonteria pero no logro dar con el problema. es una macro sencilla para calcular el numero de meses transcurridos desde una fecha, y lo que pretendo es asignar la celda donde está la fecha incial a una variable, pero me da error de tipos muchas gracias Option Explicit Sub DifMeses() ' ' calcula diferencia de meses entre fechas ' Dim Fecha1 As Date Fecha1 = Range(InputBox("donde está la fecha inicial", "Cálculo meses")) ActiveCell.FormulaR1C1 = _ "=DATEDIF(RIGHT(Fecha1,2)&""/""&MID(Fecha1,5,2)&""/""&LEFT(Fecha1,4),TODAY(),""m"")" End Sub

Tengo una hoja de excel que es una tabla. ¿Cómo puedo copiar mas líneas desde otra hoja de forma que aumente el tamaño de la tabla en la hoja de destino? Me estoy volviendo loco y no sé cómo hacerlo...

Buenos días y mes a todos; Estoy intentando armar una macro que sobre unos datos me genera un gráfico. Lo que me gustaría configurar es el poder cambiar los nombres de las etiquetas que aparecen en la leyenda y que se generan predeterminadamente y también si es posible añadir un filtro. Adjunto macro de ejemplo. Saludos a todos. MGráfico.xlsm

Amigos míos, tengo una duda. Existe una manera de mostrar y/o ocultar los objetos (control ActiveX, controles de formulario, comentarios, etc.) en la hoja activa ?¿ Se como ocultar los objetos en el libro, pero hacerlo en la hoja activa no doy con la solucionen. Agradecido de antemano por vuestra ayuda. Saludos.

Buenos dias, expertos recurro a sus experiencias, tengo un archivo de excel con macros con dos hojas que cumplen funciones iguales osea la macro que tengo grabado me funciona perfecto para las dos hojas, pero necesito es que me funcione mas automatizado esta macro funciona que estando en la hoja nueva hay celdas pintadas de color amarillo en la columna D esos datos los copio a la parte izquierda en la columna C en la misma direccion de cada uno de ellos luego me voy a ejecutar la macro y me pide seleccionar el rango de celda y los selecciono el rango de la columna C donde copie los datos de color amarillo y le pulso aceptar me rellena los rangos de celda identificando a l…

Hola a todos, encantado de estar en este foro. tengo una duda respecto a una plantilla que he conseguido aquí mismo en este foro (lo subió un compañero al cual no sé como citar aquí mismo) y es que quería ver si hay opción de refinarla aún más. La idea del archivo que es un avance grande cuando lo he encontrado ya que trata de actualizar los precios automáticamente de una base de datos respecto a un listado de proveedor. En la hoja Base de Datos tenemos la información interna y en la hoja Nuevos Precios los datos a actualizar. Cunado se ejecuta el macro en la hoja de base de datos, centrándose con la referencia del proveedor, pinta en verde las variaciones de precio a a…

Estimados amigos... Hoy vengo con una interrogante, donde puedo conseguir una macro para obtener los FaceId ¿? He probado muchas de la red, y de todas las que he probado dos o tres de ellas se detienen en ActiveSheet.Paste, y no entiendo el motivo. Este es una de las macros que se detiene en ActiveSheet.Paste: https://excelforo.blogspot.com/2014/12/vba-listar-los-iconos-que-corresponden.html Espero me puedan echar una mano con esto. De preferencia macros, no me gusta mucho la idea de instalar Add-in por desconfianza, a no ser que ustedes la recomienden. Saludos.

Hola amigos, he estado intentando todas las formas para finalizar mi base de datos con macros. He avanzado mucho, pero no logro lo siguiente: Tengo una hoja llamada :"formulario" ahí digito los datos para "guardar", "limpiar"o "eliminar"información. Tengo una hoja: "Hnas Total", que es donde tengo la base de datos. Necesito que desde el formulario yo escriba el apellido y ese formulario se llene con la información correspondiente a ese apellido y luego yo lo pueda eliminar. el problema es que puede que hayan tres personas con el mismo apellido y entonces necesito saber la información exacta para eliminar a la persona correcta. La macro de eli…

Buenos dias expertos, necesito una ayuda en macro que voy implementando donde tengo un libro llamado proyecto dentro de ella hay un formato donde pongo el nombre del libro luego ejecuto la macro de inmediato me debe de listar y enumerar en la columna izquierda los nombre de las hojas de dicho libro pero sin conciderar dos primeras hojas llamados TOOLING y STICKERS, estas hojas se repiten en todas los libros por lo que no deben ser conciderados en el listado; una vez terminado de listar la anterior en la siguiente fila en la celda de la misma columna pongo el nombre del otro libro a extraer los nombre de las hojas me debe ejecutar de la misma manera y asi para todo los lib…

Hola a todos. Saludos, agradezco el tiempo de cada uno y aporte al tema. Morbilidad 2021.xlsm Ciertamente desconozco totalmente sobre VBA, por ello acudo a ustedes. Necesito en una hoja de calculo, poseer una lista despegable (Validación de Datos) con selección múltiple. He encontrado un código VBA en la WEB y funciona según lo que necesito, no obstante, el código aplica a todas las celdas de la hojas, quisiera me ayuden a establecer su funcionamiento en una hoja especifica ("Morbi-Covid Trebol") y a un rango especifico ("R2:R2000") que corresponde a la Columna "SINTOMAS". Acá les dejo el código: Private Sub Worksheet_Change(ByVal Target As Range) '…

Deseo enviar varios correos a diferentes destinatarios de Gmail a través de Excel. No se nada de macros y he visto tutoriales pero salí más confundido. Tendrían algún ejemplo que me sirva? O tal vez un gestor de correos? Les doy un ejemplo de mi drama. Todos los meses tengo que enviar unos informes a más de 400 personas, y a cada mes vuelvo repetir lo mismo. Es agotador. Muy agradecido.

Buenas tardes amigos alguien me podría ayudar Quiero ver para modificar sus datos bancarios las columna no son consecutivasy solo quiero cargar las columnas A, B, K, y L Libro de Clientes.xlsm

Buenas a todos, necesito cambiar el color de borde de la celda activa o seleccionada por defecto de Excel (2016) que viene por defecto color verde. Intente integrar una macro pero el problema es que cuando quiero imprimir la hoja cambia el color y si no es el color es el borde, de acuerdo como está programado. En cambio, con el color de borde de las celdas seleccionadas o activas que viene por defecto n el excel no altera o no afecta nada de las celdas ya sea el color del borde, color de la celda, etc.

Buenas tardes maestros. Tengo dos listbox (Listbox1 y Listbox 2) y deseo sincronizar la barra horizontal de ambos. Por favor cual sería el código para lograrlo? gracias de antemano

Qué tal, estoy intentando agregar la hoja de "SoloMexico" de varios libros a otro libro de excel, el problema que tengo es que sólo me está agregando el primer libro de la carpeta, he estado un rato intentando arreglarlo sin éxito, adjunto el código que estoy utilizando: Public Sub TLD_IniciarMacro() With Application .ScreenUpdating = False .EnableEvents = False .CutCopyMode = False .DisplayAlerts = False End With ActiveSheet.DisplayPageBreaks = False End Sub Public Sub TLD_FinalizarMacro() With Application .DisplayAlerts = True .EnableEvents = True .CutCopyMode = False .ScreenUpdati…

Hola Espero se encuentren bien Estimados tengo un libro con 4 hojas: Parámetros, Equipos, Datos y Informes El proceso es el siguiente, que se cargan valores en las hojas Parámetros, Equipos, Datos. Estos valores rellenan la hoja informes. Este proceso se repite con 20 clientes en el día. Cada hoja de cliente se guarda con un nombre corto. Al final del día se tiene que pasar los reportes. Eso implica imprimir uno por uno. Por eso me gustaría saber como puedo hacer un macro que imprimir las hojas con los nombre de los clientes y las hojas Parámetros, Equipos, Datos no se impriman Es decir que la final del día el libro queda así: Parámetros Equi…

Tengo un libro con varias hojas. Con el editor de VBA tengo uno o varios módulos en cada hoja de ese libro. Necesito declarar una constante que sirva para todos los módulos de todas las hojas de ese libro. ¿Dónde se declara y Cómo lo hago? He intentado declarar n=12 para leerla en cualquier módulo del libro de la siguiente forma: Public Const n As Integer = 12 Const n As Integer = 12 Public n As Integer: n = 12 Private Const n As Integer = 12 Esas declaraciones las he escrito tanto en uno de los módulos de cualquier hoja como en ThisWorkbook pero la única forma que funciona es la última pero sólo se declara en el módulo de la hoja en la que est…

Hola, estoy intentando modificar esta macro para poder obtener una ruta del archivo excel del forma automatica. Cambiar HostFolder = "C:\TestFolder" por la ruta que obtengo de concatenar 2 celdas Sub startIt() Dim FileSystem As Object Dim HostFolder As String HostFolder = "C:\TestFolder" Set FileSystem = CreateObject("Scripting.FileSystemObject") DoFolder FileSystem.GetFolder(HostFolder) End Sub Sub DoFolder(Folder) Dim SubFolder For Each SubFolder In Folder.SubFolders DoFolder SubFolder Next i = Cells(Rows.Count, 1).End(xlUp).Row + 1 Dim File For Each File In Folder.Files Active…