Macros y programación VBA

Hola a todos; -Os comparto un video y una macro donde muestr como insertar imágenes usando la propiedad Caption en nuestras Labels y ComandButton. Pinchar sobre el enlace. Video: Saludos a todos MCaptionImg.xlsm

Hola, espero que me puedan ayudar con el sgte. tema: Tengo un libro llamado "MATRICULAS3" que será manejado por una recepcionista en una academia de música, desde donde controla los horarios que cada maestro tendrá en sus respectivas aulas. Son 5 aulas y cada maestro tiene un archivo con el nombre de su aula. Ejemplo: La recepcionista abre el archivo "MATRICULAS3 " y hace un cambio en la pestaña horarios, en la primera tabla de aula 1, entonces actualiza la información con el botón "ACTUALIZAR AULA 1" para que los cambios se copien y peguen en otro libro "AULA 1". Por otra parte, el maestro del aula 1 maneja el libro llamado "AULA 1" y puede ver los cambios que reali…

Buenas Tardes, Por acá nuevamente solicitando respetuosamente y humildemente vuestra ayuda. Estoy trabajando en el siguiente rango de celdas: (A3:AL54), al seleccionar una celda (celda activa) se puede destacar la fila y columna asociada a esta celda (favor ver el archivol que ya tiene una macro) ¿ Es posible destacar las celdas sólo en el rango de (A3:AL54), dar borde a las celdas de este rango y destacar la celda activa ?. Sé que ustedes entenderán al ver el archivo. la macro la encontre y la aplique a este archivo. saludos cordiales Winnerclip 09-Inventario_Septiembre_2012.xls 09-Inventario_Septiembre_2012.xls

Hola amigos. Estoy en la búsqueda de ayuda para modificar una Macro que pretende separar nombres propios compuestos. La macro que utilizo no lo está haciendo correctamente (lo hace parcialmente) y no he podido dar con el código correcto, así que recurro a los que saben solicitando su ayuda. En el fichero que subo van las explicaciones de lo que debe hacer la macro. De antemano, muchas gracias a quien o quienes puedan ayudarme. SEPARA NOMBRES.xls

hola a todos, tengo una macro que una de las funciones que me hace es enviar por mail un reporte, son muchos los destinatarios, pero por cada uno de ellos se envia un mail, o sea, si tengo 13 destinatarios se envian 13 mail con sus respectivo reporte (en donde trabajo no quieren que sepan a quien se envian por eso sale a cada destinatario con una sola persona y no con varias en un solo mail) El inconveniente surge que usamos id, (entonces cuando bajamos el reporte solo me trae estos numeros y no el mail de la persona) o sea, numeros como 893.212, si pongo ese mismo numero en el "to" del mail, y luego hago "check name" ese numero se convierte en un mail de usuario, ej.: p…

Resumen: Como crear funciones sin usar macros? Hola amigos, estuve programando un poco y tuve la necesidad de crear una funcion llamada: "CONCATENAR.SI", que sirva para concatenar celdas si es que cumplen una condición, y tengan un sepadador. Hice mi codigo: Function CONCATENARSI(ByVal rango As range, ByVal criterio As String, ByVal rango_c As range, ByVal sep As String) As String 'Concatena celdas si cumplen una condición Dim celda As Variant: Dim dif As Integer dif = rango.End(xlDown).Row - rango.Rows.Count For Each celda In rango.Cells If celda.Value = criterio Then If rango_c(celda.Row - dif, 1) <> "" Then …

Buenas tardes tengan todos! Nuevamente vengo a recurrir a este excelente foro, para ver si alguien sabe de que forma puedo resolver el siguiente problema, tengo un archivo con dos hojas, en la hoja1 tengo la columna A y B, lo que necesito es de la columna B realizar filtros, por ejemplo los que en columna B tengan "" (celda en blanco) hacer una busqueda con los datos de ID que estan en la columna A contra la hoja2 y ponerlos en la columna C (hoja2) agrupados por ID, osea si del ID 1012 son 10 registros en la columna C de la hoja2 poner el numero 10 donde diga 1012, el segundo filtro son lo que en la columna B sean igual a cero, hacer los mismos pasos y colocarlo en la co…

Hola: A pesar de haber visto bastantes temas similares al propuesto, no encuentro ninguno que me acomode. Necesito enviar unos 20 correos con los campos Destinatario, Con copia, Asunto, Cuerpo, Pie, y dos adjuntos. El problema lo tengo en que no sé cómo indicarle al código que lea las rutas de los archivos que inserto en F2 y G2 mediante un botón. De paso, explico en el archivo que ese botón está preparado para seleccionar varios archivos, pero solo inserta la ruta de uno. Si se puediera arreglar, bien, si no, lo utilizaré para insertar las rutas una a una. He partido del código de Roberto Salas https://www.ayudaexcel.com/foro/macros-programacion-vba-10/macro-para-env…

Macro para: 1. Cuatruplicar datos, 2. Cambio horizontal a vertical condicional Hola a todos, Espero que podaís echarme, con vuestros conocimientos, una mano en una árdua tarea. Poseo una base de datos con 512 observaciones y necesito cambiar la estructura de los mismo. Se trata de un ejercicio donde, en primer lugar, se recogen las características de los individuos y, en segundo lugar, se le indica que ordenen cuatro fotografias (asignando un 1 a la que menos les gusta y una 4 a la que más) extraídas de forma aleatoria de 32 posibles. Estos datos están en forma horizontal y necesito crear una nueva variables que se llame ELE para ordenar en vertical las puntuaciones de …

hola forist@s tengo la duda de como resolver esto, acudo a ustedes para resolverlo espero me puedan ayudar. intento generar un informe estadistico de actividades por fecha, es decir; quiero que sea flexible para que cuando le ponga que me genere el informe digamos por todo el mes de febrero que me diga cuantas actividades se hicieron en ese mes, o si le digo digamos que por dia se genere esa actividad y de ser posible se grafique. Espero no haberme salido de la espectativa y haber pedido algo complicado y me puedan ayudar. de antemano muchas gracias. saludos informeporfechas.xls

Buenas compañeros que tal he estado haciendo unas pruebas con el bifurcado de informacion pues el formulario que estoy diseñando necesito separar datos de una hoja y colocarla en la otra. un formulario con un bombobox donde los datos vienen de una hoja, llamada ESTADO, entonces necesito separar el codigo del estado, ademas un textbox con el nombre en la hoja BASE DE DATOS y el nombre del estado en la hoja ALTERNO. Al colocar el primer registro del estado lo inserta pero cuando vuelvo a insertar otro, se inserta el mismo que se seleccionó la primera vez. Si me pueden comentar que error estoy cometiendo y saber como enmendarlo. Cualquier sugerencia es aceptada. Muchas gr…

Un favor, me pueden ayudar a generar archivo txt en la columna N de la primera hoja excel pero con alguna macro y asignandole un boton para ejecutar. Al unir quiero que sea usando la barrita "|" Gracias, No puedo adjuntarlo pero asi debe quedar pero quiero una macro y boton ejecutar. [TABLE=width: 615] [TR] [TD]20130600| 1| 01| 121| 20/10/2010| VENTA DE MERCADERIAS| 11900.00| 0.00| 1|[/TD] [/TR] [TR] [TD]20130600| 1| 01| 40111| 20/10/2010| VENTA DE MERCADERIAS| 0.00| 1900.00| 1|[/TD] [/TR] [TR] [TD]20130600| 1| 01| 701| 20/10/2010| VENTA DE MERCADERIAS| 0.00| 10000.00| 1|[/TD] [/TR] [/TABLE]

Hola a todos. Necesito hacer una macro en Excel que me genere un archivo plano delimitado por ";" pero los datos de cada celda deben quedar en orden especifico en el archivo plano, así como también es bueno saber que las celdas que contienen la información esta en excel están en ubicadas determinadas posiciones de la hoja. de antemano mil gracias por su ayuda. KELVIN

Hola amigos del foro, utilizo actualmente el siguiente código para extraer un rango datos de todas las hojas de un libro y colocarlo en otra hoja. Este libro se hizo con el tiempo cada vez más pesado y tuve que hacer un libro para cada hoja, pues aquí radica mi problema: tengo que ajustar mi código para buscar en todos los archivos de la carpeta. On Error Resume Next Dim wrbLibro As Workbook Dim wrsHojaActiva As Worksheet, wsHoja As Worksheet Dim CurFilename As String CurFilename = Sheets("RANGOS").Range("A1") Set wrbLibro = Workbooks(CurFilename) Set wrsHojaActiva = ThisWorkbook.Sheets("RESUMEN") For Each wsHoja In wrbLibro.Worksheets If wsHoja.Name = "VIAJ…

buenas a todos, otra vez... en el negocio de mi mujer su sistema de cobros, me genera un archivo con la fecha y la hora con todas las ventas de la historia. pregunta yo separo las ventas x mes, a mano, pero me gustaria saber las ventas diarias hay alguna manera de usar la funcion SUMA, que me pueda dar esta opcion y no tener que hacerlo a mano? adjunto excel como siempre gracias a todos Libro1.xls

Hola amigos, estoy en el trabajo y me han mandado realizar una serie de tablas pivot a partir de un monton de tablas de excel en distintos documentos. Abro el documento y hay tengo la tabla, y le doy a grabar macro, pongo el comando ctrol+q, acepto, selecciono todo la tabla, insertar, tabla pivot y por defecto me la selecciona, acepto y listo y parece que todo va bien. Pero cuando abro el siguiente excel y pulso ctrol+q para que se ejecute sobre esa nueva tabla, me da error. Si me pudierais ayudar seria fantastico porque me simplificaria mucho el curro. Un abrazo

hola, buenas noches quisiera y me apoyen a solucionar dado que quiero copiar la tabla 1 del libro "libro a cargar" y poner en el libro "prueba de carga" para poder utilizarla en el listbox del formulario, dado que con la macro que utilizo no copia en formato de tabla haciendome imposible cargarla al listbox. adjunto los archivos ; espero y me puedan brindar su ayuda. gracias Mis documentos.rar

buenos dias. necesito poder insertar en esta hoja tantas celdas como me marque la primera celda de la fila y que se refleje en otra linea. Muchas gracias. adjunto hoja consulta.xls

Buenos días, tengo el siguiente código que intenta copiar el mismo rango desde el archivo "DATOS DEL SISTEMA" hacia el archivo "Escenario" en la hoja Datos, siempre y cuando el nombre de la hoja del primero sea igual al encabezado de columna de la hoja Datos del segundo archivo, la intención es que si falta alguna variable el proceso no se detenga y salte al siguiente con datos, y luego en el archivo Escenario, elimine las columnas que queden sin datos, ya que no todos los días hay datos para todas las variables, esto cambia día a día. Necesito que en la hoja datos solo aparezcan las columnas en forma consecutiva co n las que tengan información. El problema es que la macr…

Hola a todos de nuevo. Tengo un problema al cargar los datos de una consulta SQL de una Access a mi archivo Excel. La consulta funciona bien, de hecho ya tengo el formulario casi listo. El problema viene porque quiero modificar el formato de varias columnas. Por ejemplo la columna 4 a pesar de estar el Access en moneda cuando lo cargo en el listbox lo hace en números con decimales. Estoy leyendo pero no encuentro exactamente esto, al menos al cargar todos los datos en el listbox de manera multiple. Agradezco vuestra ayuda como de costumbre. Pongo el código, creo que no es necesario todo el archivo para ver que código me falta poner. Sub Llenar_Checklist…

Buenos días amigos, Tengo esta macro que me oculta las columnas en vacias. Ahora quiero ir un poco más alla, quiero que me oculte las columnas en vacias y las columnas que estén con datos pero que NO TENGAN el color de fondo Interior.Color = RGB(255, 0, 0), pero no se como ponerlo. Si alguien me puede ayudar, le estaré muy agradecido

Buenos dias maestros del excel, Tengo un userform con varios ComboBox y ellos hagan las consultas de distintas tablas del access (datos constantemente actualizándose) con la acción del UserForm_Initialize. Con este codigo puedo consultar en el combobox desde access: Private Sub UserForm_Initialize() Dim cn As Object Dim datos As Object Dim consultaSQL As String Dim conexion As String Set cn = CreateObject("ADODB.Connection") conexion = "Provider=Microsoft.ACE.OLEDB.12.0;" & _ "Data Source=C:\Users\JULIO CESAR\Desktop\Prueba_V01.accdb" 'Aqui va la ruta de tu base de datos consultaSQ…

Hola buenas tardes foreros. Retomando una macro que tenía a medias, a ver si podéis ayudarme porque mis conocimientos en VBA no son muy amplios y por más referencias que miro en ejemplos de "exportar a pdf" no saco el error. Describo: - Función: Exportar un rango de la hoja a pdf en función de 2 variables, para esto utilizo "if" con ocultar y mostrar filas para que entrase justo en 1 o 2 hojas. - Errores: 1 - El msgbox de la ruta donde guarda el archivo SIEMPRE muestra la ruta donde se ENCUENTRA el excel, NO donde lo ha guardado. 2 - Da igual el nombre que pongas en en el msgbox de "guardar como", siempre utiliza el pre-programado. …

Hola a todos copie una macro de nuestro amigo JSDJSD, lo que quiero es que el filtrado entre fecha me funcione en mi libro y que el reporte lo guarde en un libro nuevo de Excel por aquí le dejaré el archivo Filtrado y reporte.xlsm

Hola a los foreros y maestros del foro, tengo un duda que seguro que me daréis solución, en un listBox tengo una columna llenas de códigos ( al mes me genera mas de 1000 codigos en total) estos van del B01 al B25, con el siguiente macro solo me reporta uno, he probado y no se como hacerlo para que me reporte la información de los 25 codigos y me cuente los generados (ejemplo B01 =124 , B02=78, B03=189 ..etc) mi nivel de macros es de un principiante. Gracias por adelantado Private Sub CommandButton2_Click() For i = 0 To ListBox1.ListCount - 1 If ListBox1.List(i, 5) = "B01" Then Contador = Contador + 1 End If Next i Label3 = "B01 = " & Contad…