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 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

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, 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…

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…

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.

Hola, estoy haciendo una macro para hacer un filtro en base a un listado en un rango pero veo que esta algo lento el proceso, sera que alguien tiene una mejor idea o un codigo ya probado que sea menos lento, adjunto archivo con macro de ejemplo. Salu2 FILTROBASE.xlsm

Me encuentro en una ventana de Formulario y no logro dar con la instrucción que me permita eliminar un control del Formulario, por medio de un procedimiento dentro de un botón (por ejemplo). Pretendo eliminar controles específicos, creados en tiempo de ejecución. El problema por los momentos comienza en que no se con que instrucción eliminarlos aunque estos hayan sido creados en el modo diseño del UserForm. Agradezco ayudas probadas.

Buen día Estimados, Intento conseguir dejar el zoom en 100% en cada hoja, haciendo referencia a un libro y hoja en especifica sin usar Activate o Select Windows(Nombre del Libro).Worksheets(Numero de Hoja asignado por un For).Zoom = 100 ¿Es posible hacerlo así?

Buenas el formulario del excel que adjunto funciona correctamente. es solo un ejemplo de lo que pretendo hacer, tengo muchas mas áreas para imprimir y mas de un informe por área y mi pregunta es si hay alguna manera de declarar la variable PDF una sola vez. lo he probado dentro del código del userform pero me da error. muchas gracias un saludo prueba impr.xlsm

Hi Everyone my new problem is this: On an excel sheet with Office 2007 I entered numbers ranging from cell (A1: E18) And Three Shape Buttons Now the purpose of this project and that I would like to be able to achieve is this: 1) Pressing the first key It should from Routine Create a Word Sheet and insert it in my sub Folder called (Attachments) with only the data taken from the cells (A1: E18) and save it with the name I insert in the cell (I1) 2) The Same Thing You Should Be Achieving with an Excel Sheet 3) Also for what concerns the file in pdf format which in some ways is the only one that I was able to make work Except for the fact that I would…

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…

Necesito ayuda, quisiera saber como insertar una imagen desde un sitio web en un cuadro de imagen del UserForm, he intentado de todo y no logro hacerlo, intente con este código que lo inserta en la hoja de excel y funciona de maravilla, pero no logro hacer que se incruste en un UserForm, he intentando modificarlo pero no funciona, AUXILIO!!! Private Sub UserForm_Initialize() Dim URL As String URL = "https://petsbioforestal.es/wp-content/uploads/2020/05/porque-mi-conejo-estornuda.jpg" Range("C5").Select Hoja1.Pictures.Insert(URL).Select 'End Sub Tambien probe con un WebBroser y si unfiona muy bien pero no logro adecuar e…

Saludos a todos Por favor me gustaría que me ayudaran a crear una UDF para lo siguiente : Tengo una base de datos en access con una Tabla1 y en este ejemplo 4 campos, con la macro se insertan 3 de los cuatro campos, y el cuarto campo (Descripcion) se debería de llenar dependiendo de la columna C del libro de excel, es decir, si en la celda de la columna C tengo un 1 en el campo descripción se debe llenar con la palabra Matutino, los demas numeros o letras están en la macro y como debería de quedar está en la tabla Copia de Tabla1 Nota.- No puedo utilizar por ejemplo una formula como buscarv, porque en la realidad tengo mas columnas con datos, salvo su mejor…

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.

Buenos días a todos; -Una pequeña ayudita si es posible. -Adjunto una macro que en su día amablemente me ayudó a configurar Antoni. Como es habitual en él funciona de maravilla. He querido si es posible ir un poco mas lejos y es que en el momento que calcular el subtotal en dicha línea me indique el número de cuenta. Adjunto marco e imagen del resultado. Gracia como siempre por vuestra ayuda y buen finde. MSubtotales.xlsm

Buen dia comunidad. Necesito generar un conjunto de combinaciones formada por 03 números ALEATORIOS desde el (01 al 09) de forma ascendente. Que en su orden correlativo son 84 combinaciones desde el (1-2-3) hasta (7-8-9). Dentro del archivo se detalla más. Gracias.. 1.- CRT.xlsm

Hola: No soy capaz de sacar este macro, soy un poco novel con el tema, a ver si podeis ayudarme. Necesito copiar en una hoja nueva la misma fila n veces (siendo n la cantidad de unidades del producto comprado) y además dividir el total por la cantidad n (numero de unidades compradas para sacar el precio unitario) Os adjunto un fichero con dos hojas, la hoja albarán son los datos en bruto y la hoja Resultado Deseado como necesitaría que quedara. Muchisimas gracias por adelantado. SALIDA_albaran.xlsx

Buenos días a todos; -La consulta que hoy os planteo trata de lo siguiente: En el archivo que adjunto hay una macro (ctrl+h) que al pulsar combinación de teclas sale una ventanita emergente que me indica en una lista el número de hojas disponibles y al pulsar sobre una de la lista me lleva hacia esa hoja. Hasta aquí bien, lo me gustaría conseguir es que a parte de llevarme hacia esa hoja me mostrase un msgbox que yo configuraría y tendría que ser distinto para cada hoja. Adjunto macro. Saludos y buen día. MEmergente.xlsm

Hola a todos. Tengo una serie de datos (4,872) que contienen cadenas de texto a los cuales hay que suprimir espacios intermedios. He intentado con las funciones Suprimir, Reemplazar y no lo he logrado. Igualmente. con la opción Buscar y reemplazar sin éxito. Las cadenas de texto tienen esta estructura: 00: 01: 04,600 --> 00: 01: 09,599 El espacio que hay que suprimir es el que se encuentra después de los dos puntos (:), es decir, que debe quedar así; 00:01:04,600 --> 00:01:09,599 Aspiro a que alguien me ayude con una macro que me permita hacer esta tarea y, para el efecto, adjunto un archivo con una muestra. Muchísimas gracias. FORMATO.xlsx

Ciao a tutti e il mio problema è questo: con un foglio excel e la sua vba vorrei inviare e-mail con allegati pdf o altri formati che si trovano nella mia sottocartella chiamata (Utility) ma per esigenze personali uso sia (Outlook) che (Thurderbird) Ma anche se provo un mare di soluzioni, mi fa sempre dare un errore e non carico nulla si dà un'occhiata e mi dicono perché? Grazie saluti da A.Maurizio Prova_Email_Con_Allegato_3.rar

Muy buenas, a ver si alguien puede ayudarme en la captura de datos en un userform, quisiera controlar la longitud de un campo, pero no se donde poner la instruccion, que he visto en uno de los hilos. Lo que tengo es esto: Private Sub CommandButton1_Click() Dim fila As Long 'Obtener la fila disponible fila = Application.WorksheetFunction.CountA(Range("A:A")) + 1 'Insertar datos capturados Cells(fila, 1).Value = UserForm1.ComboBox1.Value Cells(fila, 2).Value = UserForm1.ComboBox3.Value Cells(fila, 3).Value = UserForm1.TextBox3.Value Cells(fila, 4).Value = UserForm1.TextBox4.Value Cells(fila, 5).Value = UserForm1.T…

Buenos dias, Quisiera modificar este diagrama de Gantt, la idea es poder añadir, ya sea con un sombreado los dias del calendario que usarémos para una tarea. En la captura indico lo que me interesa en la tarea 2. La suma de los dias sombreados seria en este ejemplo 13. Si añado mas dias pues se sumarian. Asi con todas las demas tareas. Es posible? Diagrama de Gantt.xlsx

Ya se como: Crear controles en tiempo de ejecución. Hacer que de un modulo de clase, controles creados en tiempo de ejecución hereden eventos. Gracias @Antoni Pero me surge la duda ahora, de como hacer que los controles que voy creando a través de un modulo, hereden propiedades como: Caption, BackColor, BackStyle, etc... Hay forma de hacer que en modulo de clase tenga estas propiedades previamente definidas para que lo hereden objetos en un Formulario? ¿Lo anterior puede hacerse en el mismo modulo de clase en donde están los eventos?

Buenas tardes. He colocado vsflexfrid7 en mi trabajo, he habiltoado los activex pero me sigue apareciendo el mensaje "Esta aplicacion va a iniciar controles Active x " y se me cierra el archivo. Tambie probe con eliminar todos los archivos temporales. Que mas puedo hacer? Garcias