Buenos días y gracias de antemano. Me estoy devanando los sesos y no consigo lo que necesito, que no es sino lo siguente: Tengo dos libros de excel, cada uno de ellos, en un directorio diferente de una red. A saber: H:\PROFESORES\ESTUDIOS\03_GESTION IPA\CURSO 2014_2015\DATOS\CUARTO\1CTR\RESUMEN.xls H:\PROFESORES\ESTUDIOS\03_GESTION IPA\CURSO 2014_2015\DATOS\FECHAS LIMITE.xls En la celda B5 DE FECHAS LIMITE.XLS pongo la fecha tope a partir de la que ya no se permitirá a los usuarios hacer uso del libro RESUMEN.xls. La idea es que cuando se abra la hoja"RESUMEN" del libro RESUMEN.xls, el procedimiento Sub auto_open() lo primero que haga es comprobar la fecha actual del…

Estimados amigos del foro acudo a ustedes nuevamente para averiguar como debo hacer para poder cargar varias imágenes que están en una carpeta en esta carpeta siempre se ordenan sea alfabeticamente o numéricamente si es por código, lo cierto es que si pulso un botón de control de desplazamiento numérico pueda cargarse varias imagens (que en realidad es cada archivo jpg) tanto como de 100 en 100 pues podría tener 1000 o mas imágenes. Subo unas imágenes de las que menciono y el código que uso pero que solo me muestra una misma imagen para explicarme mejor. En esta es obvio que se muestre una imagen pues el la celda activa solo activa una imagen según el nombre en la…

Problema que tengo ahora es que solo me permite cargar 2 archivos cuando trato de cargar más de 2 se revienta y sale el error "se ha producido error 1004 en tiempo de ejecución" le doy en depurar y me resalta esta línea Hoja.Copy after:=Workbooks(A).Sheets(Workbooks(A).Sheets.Count) Adjunto el archivo XLSM y un zip con los archivos que se van a cargar al tiempo Gracias por su ayuda Macro_Masivo.xlsm Archivos.zip

Hola a tod@s. Tengo el siguiente código. Sub Auto_Open() OcultarHojas End Sub Sub OcultarHojas() Dim Ws As Worksheet For Each Ws In ThisWorkbook.Worksheets If Ws.Name <> ActiveSheet.Name Then Ws.Visible = xlSheetHidden Next Ws End Sub Funciona bien, abre en la última hoja activa. Pero...... los vínculos de esta a las otras (50) no funcionan, ¿ Que le falta al código ? Salu2

Buen día estimados amigos del foro agradezco me puedan colaborar con una sencilla aplicación a este archivo, requiero por favor que cuando yo marque una casilla esta quede bloqueada por medio de una contraseña, ósea que no se puede des-marcar hasta que yo coloque una contraseña. Agradezco de antemano el apoyo que me puedan brindar. Saludos y cuídense mucho.? casilla de marcacion.xlsx

Estimados, favor vuestra ayuda, necesito agregar una casilla de verificación (control de formulario) que al marcarla me marque el resto de casillas (40) que tengo en la hoja, esto para restaurar los datos a su forma original; se que debe hacerce con vba, pero no me manejo. Es decir, tengo una hoja con 40 casillas de verificacion y necesito agregar una que al marcarla marque todas y al desmarcarla las desmarque todas. Quedo atento sus comentarios --------------------------------------------------------- buscando y rebuscando en la web encontre estos 2 codigos, si lo ejecuto por separado funcionan perfectamente, pero no se como unirlos para que funcionen dependiendo del…

Buen día foreros; Adjunto una macro que contiene un formulario y una casilla de verificación con triple estado. Si pulso sobre ella arroja un mensaje en su etiqueta con la propiedad .Caption Me funciona con .Value= True y .Value="False" Lo que no se configurar es que cuando no sea ninguno de los dos primeros casos la propiedad .Caption sea igual a "Todos". -Esto es un recorte de un formulario y este check me permite según su estado el filtro solo las facturas pagadas, pendientes y "todas". -Igual no es viable hacerlo, si es así agradecería la confirmación. Un saludo y buen día. Private Sub CheckBox1_Click() If CheckBox1.Value = True…

hola estoy programando un formulario pero no he podido avanzar mucho por que tengo casillas de seleccion y no se como hacerle para manejar toda la informacion, adjunto un archivo, en el viene en la parte de formulario lo que necesito y tambien en el boton aceptar viene la programacion que ya tengo hecha, espero suS sugerencias mil gracias. Saludos Copia de Modulos ejem.zip

Hola, chicos, cómo están? Lo que vengo a consultarles a hoy sé que es simple, pero lamentablemente no me las puedo ingeniar... Tengo una hoja de excel donde hice una especie de "tracker" y selecciono el nombre de una persona, y me trae toda la información que recopila de otras hojas, incluso una fotografía. Las fotos están en un directorio llamado "imágenes" y coinciden con el nombre de la persona. Lo que quiero es que en caso de que NO EXISTA IMAGEN para esa persona, se muestre una imagen llamada "marlies.jpg" que se encuentra en el mismo directorio (actualmente si no hay imagen, me muestra la última imagen cargada). Este es el código: Private Sub Worksheet_Change(B…

Hola buenas tardes, nuevo por acá en el foro. Mi consulta es como realizar un macro que me permita organizar unos reportes clasificándolo en la primera columna por nombre total de su sección y a la vez que elimine su total. Ejemplo: REPORTE ORIGINAL (Foto1) REPORTE DESEADO(Foto 2) me explico, estos reportes (foto 1) solo traen su nombre de categoría en el total, lo cual hay que realizar una modificación agregando el nombre de su categoría(foto 2) para poder trabajar en tabla dinámicas.- Se agradece cualquier idea o solución de antemano.- REPORTE DESEADO.xlsx REPORTE EN BRUTO.xlsx

Estimados espero que se encuentren bien, para solicitar su valiosa ayuda en complementar la macro que necesito, les explico al cargar los xml a la hoja de excel requiero que en la celda de CFDI Relacionado en la celda "AD" tenga todos UUID y no solo 1, ya que en diversos mxl hace referencia a mas de 2 asi Tambien que extraiga el importe pagado Celda "AE". anexo ejemplo en la hoja si pueden apoyarme se los voy a gradecer mucho. PD. la macros la tome de este foro y estoy intentando adecuarlo a mi necesidad. Saludos Cordiales cfdi.rar

Buenos días: Estoy trabajando en un archivo en el que necesito que cuando cambie el valor de una celda se cambie automáticamente el valor de otra. He conseguido que funcione usando el evento Change en la Hoja en cuestión. Código: Private Sub Worksheet_Change(ByVal Target As Range) Application.EnableEvents = False Set h1 = Sheets("LISTADO") For i = h1.Range("c" & Rows.Count).End(xlUp).Row To 6 Step -1 If (h1.Cells(i, "c")) <> "" Then h1.Cells(i, "d").Value = "BAJA" Else h1.Cells(i, "d").Value = "ACTIVO" End If Next Application.EnableEvents …

Que sentencia debo de realizar para preguntar si una Celda tiene Comentario. Gracias

Quisiera hacer una macro que me cortase una celda diagonal cuando en una celda determinada ponga astm_din y ponga 50 en una parte del corte como en el ejemplo,como lo puedo conseguir ejemplo1.xlsx

Chic@s les pido ayuda con un macro que me ayude a lo siguiente: Anexo Excel Tengo un control de números que refiere a las fechas: Quiero que al seleccionar cualquier numero el macro me lleve a la celda donde esta la fecha que refiere el numero. Pero que me de la libertad de poder navegar también manualmente. Les anexo mi archivo muchas gracias COMPARTIR.xlsm

Hola a todos Estoy tratando de copiar el contenido de una celda excel a un Control Rich TextBox, pero no logro que el texto una vez pegado en el control me mantenga el formato con el cual se encuentra en la celda (que se trata de un texto que contiene distintos colores) Desde ya muchas gracias

Tengo una macro que desde un txtbox ingresa un valor en una celda determinada, lo que ocurre que ese valor a veces es una fecha y a veces es texto. Indica la caducidad de un elemento, entonces introduzco por ejemplo 01/01/2025, pero en ciertas ocasiones ese elemento no caduca y entonces escribo "NO EXPIRED", pero siempre me muestra el resultado como fecha 00/Jan/0000. El codigo es TxtCYellow = CDate(.List(i, 13)) cuando es fecha, pero para introducir texto? Gracias

Saludos a todos, quisiera saber como crear una macro que haga una lista con una frase y números consecutivos, por ejemplo, que en la primera celda (A1) aparezca "hola 1 fin" en la celda (A2) "hola 2 fin" en la (A3) "hola 3 fin" y así sucesivamente: lo único que cambia es el numero 1,2,3,.... la idea es simple estoy un poco familiarizado con otros entornos de programación y básicamente lo que haría para dar un nombre a la primera celda (A1) seria: Cells(1, 1).Value = " hola 1 fin" y según tengo entendido esto se puede hacer de varias formas por ejm: Cells(1, 1).Value = " hola"+" 1" +"fin" Entonces la idea seria que el 1 aumente consecutivamente. yo queria hace…

Hola buenos Días, saludos desde Chile. Tengo una consulta, es muy simple pero no he logrado realizarlo, estoy realizando una planilla de inventario utilizando macros. Hasta ahora todo bien pero me salto un pequeño error. No se como hacer para que excel una dos casillas duplicadas, pero que sume los valores. Ejemplo: Identificación ................Entrada ................Fecha Martillo ................................10 ...............19-12-2012 Martillo .................................20.............. 21-12-2012 Alicate ................................30 ................21-12-2012 Como puedo realizar una macro para que queda …

Hola Necesito modificar mi macro de la hoja "Evaluación de Doble Cierre" en la cuales tengo listas despegables dependientes en las 4 celdas a continuacion en la cual: E6: Proveedor E8: Envase E9: Espesor Cuerpo E10: Espesor Tapa Mi macro pone en blaco las celdas E8,E9,E10 cuando escojo un proveedor y puedo poner su envase y espesores de cada uno, todo ok hasta ahí, pero, si ya tengo elegido un proveedor y elijo otro envase los valores de espesor de cuerpo y espesor de tapa no cambian, lo cual me puede causar un error en cualquier momento, por lo cual es necesariamente urgente resolver este problema, se podria modificar mi macro para solucionar este problema. Macr…

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 tengo una duda respecto a la formula R1C1 en vba. grabe mi pimera macro para vincular una hoja que contiene la base de datos con las hojas en donde estos datos se pegan en filas diferentes aunque en la misma columna. el macro recorder me dio esta formula: activecell.formulaR1C1 = "='hojadedatos!R[-5]C[9]" el problema es que no siempre sera el mismo numero para la fila, es decir esta fila va a cambiar para la siguiente hoja que sera: activecell.formulaR1C1 = "='hojadedatos!R[-4]C[9]" existe alguna manera de que los numeros de la fila sean variables para no escribir de nuevo la formula cada vez que cambie de hoja? soy nuevo usando vba y agradeceria mucho me ayudara…

Buenos días,Estoy realizando unas tablas y tengo el siguiente problema,En la hoja 1 tengo unos nombres con unas notas (Columna A nombres y Columna B notas), en otra hoja del mismo libro tengo lo mismo y lo que quiero hacer es lo siguientes:Que las notas las pueda modificar tanto en la hoja 1 como en la otra y que siempre tenga en las dos hojas el último valor escrito.Espero me puedan ayudar.Gracias.

Buenas chic@s. Lo primero decir que soy totalmente novata en VBA. Siento si mi pregunta es tonta. Estoy creando una macro y editándola en VBA. Tengo una tabla que puede variar su número de filas, así que necesito en todo momento saber cuál es la última fila. He declarado la variable UltFilaTC como INTEGER. Y uso la siguiente expresión: UltFilaTC = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row Funcionaba perfectamente toda la macro hasta que he creado una tabla gigante para comprobar como iba con muchos más datos y me casca justo en ese punto del código. Me he dado cuenta de que funciona con hasta 32.667 filas. Si añado una más, ya no. Obviame…

como se podría centrar las graficas y tablas que tengo en un power point de forma automática. gracias