Hola. A raíz de ver una macro (ver abajo) que abre determinados documentos (doc, txt,...), me ha surgido una pregunta: ¿Hay alguna manera de listar las rutas de todos los programas ejecutables (o al menos los más habituales) que tenga en el ordenador (notepad, winword, excel , etc)? Sub abreDoc() Dim Archivo As String Archivo = Application.GetOpenFilename() Shell "winword.exe " & Archivo, 1 End Sub[/PHP] Saludos.

Como imprimo un rango de celdas hasta que encuentre un valor especifico? Ejemplo: ----[1]--[2] (A) 1 ( 8 © 25 (D) A Cuando encuentre que una celda tiene el valor "A" que mande a imprimir únicamente todas las anteriores. Muchas gracias

tengo una duda si se puede cambiar el caption de un label a medida que el progressbar va cargando por ejenplo cuando lleve un 10% ponga en el label"cargando" y asi para distintas etapas del progressbar aqui subo un archivo y algunos ejemplos de que quisiera poner en el caption gracias. progress bar.xls

Hola Estimados, pues bien, un gran favor, tengo este archivo con una macro, la cual no está funcionando muy bien, ya Que lo que necesito es que cada vez que ponga la palabra “ok” desde el rango E 2 hacia abajo de la hoja PROCESO se copie toda la celda hacia la hoja PENDIENTE, pero una debajo de otra cada vez que ponga “ok” en la celdas de la fila E. les adjunto el ejemplo. Muchas Gracias, Seguimientos 2.xls O COMPRa.xls Seguimientos 4.xls

estoy haciendo una hoja de calculo que sera utilizada por otros usuarios y en la parte que se introducirán los datos tiene un formato de celda especifico .. el problema es que cuando se pegan de otro lado el formato de esa celda también se copia... intente con una macro que haga pegado especial pero no funciona si el pegado se hace desde el menu . así que se me ocurrió que talvez se podría hacer una macro que bloquee el formato de estas celdas donde se introducirán valores de manera que se puedan pegar datos de cualquier lado sin hacer pegado especial. pero no se me ocurre ninguna forma de hacerlo. as que espero que tengan alguna solución para ayudarme.

Hola buenas tardes amigos de Ayuda Excel. Por favor si me pueden ayudar con este procedimiento que no logro hacer. gracias La macro que está en el botón debe evitar insertar una fila nueva si el valor de la última celda en la columna G es igual a cero (0). Y un MSGBOX que indique al usuario que debe llenar la información primero. EJEMPLO AYUDA EXCEL.xlsm

Buenas tardes. Tengo un libro que los datos funcionan correctamente, lo que necesito es una macro que haga todo esto que pueden ver en el libro que adjunto pero poder eliminar las formulas y que la macro sea la que se encarge de hacer esto. Ejemplo: En la hoja CLIENTES columna I8 tengo esta macro: =SUMAR.SI(DATOS!D7:F2000;"ACANA";DATOS!F7:F2000) y pasa igual en todas las filas hacia abajo. La pregunta es ¿se puede hacer todo esto con codigo visual y así poder eliminar las formulas de la hoja? Y tambien en la Hoja datos tengo otra formula en la columna C :=CONTAR.SI($D$6:D7;CLIENTES!$D$2) ¿Tambien se podría hacer con codigo vb?. Lo que busco es evitar tener que poner…

Buena tardes, ¿me podrían ayudar a resolver este problema? - Soy nuevo en esto de las macros y esta vez san google no me ayuda :( Estoy tratando de poder copiar la unica hoja del archivo INDICADORES.xls al archivo recién abierto formado por los datos que se toman de la variable IN26, el problema es que cada mes cambia el nombre del archivo y su carpeta, el abrirlo no hay problema ya que la variable "IN26" se forma de los datos obtenidos de las celdas en la hoja y libro indicadores, pero al copiar la hoja,si no especifico el nombre del libro IN26U202106350114.xls la macro no funciona, intente en lugar de poner IN26U202106350114.xls la variable "archivo" y no funciono,…

Buen dia, Me pueden hacer el favor de ayudarme.? El adjunto hace lo siguiente: Guarda datos en en la hoja RELACION, CTAS, Y FACT, cada cuenta esta asociada con un numero el cual esta ligado a las facturas de dicha cuenta. Mi pregunta es: Como hago para modifica la cuenta y la facturuas asociada a una cuenta? ya que una cuenta se puede dar la posibilidad de modificarle, eliminar y agregarle facturas a esa cuenta. De antemano les agradezco su valiosa ayuda. Gracias. Registros Asociados.xlsm

Hola necesito ayuda con lo siguiente: resulta de que estoy trabajando para una empresa que se dedica a hacer aberturas de metal y aluminio, el tema es que tienen 3 planillas de Excel y yo quisiera ver la forma de que la información de dos de ellas se traspase automáticamente a una de esas tres. Primero hay una planilla de caja donde se va cargando todo lo que se paga en el día y los pagos que se van recibiendo de los clientes incluyendo los cheques recibidos, otra planilla qué donde se van anotando los diferentes recibos que se van haciendo de forma manual y una tercer planilla que es la planilla que debería incluirse o qué debería tener la información de las primera…

Buenas tardes, Me gustaría que me ayudaseis a crear una macro con las siguientes características: Cuando pones una o más palabras (un texto y no un valor) en una celda determinada, te da acceso a otra hoja de Excel. Sin la introducción de las palabras correctas, no se puede abrir la hoja (es como una especie de contraseña). Tiene que ser válido para más de una combianción de palabras (hay más de una contraseña correcta). Muchas gracias

Saludos A todos: Pues que tengo un problemita que no he podido resolver, si alguien me puede ayudar se agradecera de antemano Paso a Explicar: Tengo una hoja que se llama Datos que va de la Columna A a la Columna BI y en filas tiene casi 6000 en la Columna P se puede poner Pagada, Cancelada, Devolucion, Gestor o Juridico y en base a ella se pinta la fila, no con formato condicional sino con formato manual, he creado 5 hojas mas con los nombres Pagada, Cancelada, Devolucion, Gestor y Juridico, puedo seleccionar y copiar de manera manual una fila y pasarla a la hoja correspondiente, pero pense que con una macro seria mas rapido de hacer, ya que se haría de manera…

Buenos dias amigos. Recurro a ustedes con el siguiente problema. Tengo este buscador, el cual funciona perfectamente. Pero, cuando intento buscar en la primera columna de la tabla me da error. Alguien por favor me podria indicar que estoy haciendo mal. Agradecido de antemano por vuestra ayuda. Ejemplo busqueda.xlsm

Hola mi duda es sobre selección de rangos. ¿Para poder seleccionar un rango la hoja donde se encuentra debe estar seleccionada/activada? Lo he intentado mientras estaba seleccionada otra hoja de esta forma: Sheets(«Datos»).Range(«A1:A5»).Select Pero da error, para evitarlo solo se me ocurre, seleccionar la hoja previamente: Sheets(«Datos»).Select Range(«A1:A5»).Select No se si hay alguna forma de hacerlo sin seleccionar previamente la hoja, para que sea un proceso mas rápido. ¿Seria lo mismo si pongo .Select ó . Activate; cual es la diferencia entre ambas? Por otro lado; ¿Todo lo anterior es extrepolable a otros procedimientos?, por…

Buenas a todos. He programado muchos Userforms con Listbox en ellos. Cuando el número de elementos del Listbox es superior al que puede mostrar su ventana sale la barra de desplazamiento vertical. Todo correcto. El problema es que me he dado cuenta de que, en estos casos, al desplazarme con la barra lateral y hacer click con el ratón en un elemento, se selecciona otro elemento distinto ya que la barra lateral hace scroll hacia arriba. He intentado ya muchas cosas y no se porqué ocurre esto. ¿ Cómo se selecciona, con el ratón, el elemento que quiera del Listbox y que no me marque otro elemento distinto porque la barra de desplazamiento vertical hace scroll ? Ay…

Hola: Tengo el siguiente problema: En la hoja de excel tengo una serie de datos, estos se van a sombrear siempre que el valor sea mayor que cero. el problema es que quiero que cuando se sombreen mas de 4 celdas seguidas ese numero que esta a la iquierda se extraiga y se ponga en otro lugar en la hoja, les adjunto el documento para que vean lo que les estoy diciendo. Muchas Gracias por la ayuda Barra Movil Ejemplo.xls

Saludos Tengo dos bases de datos para cruzar las cuales las tengo organizadas por subtotales en la opcion 2 (que es cuando muestra solo los totales de cada referencia). Para esta tarea ejecuto una macro de busqueda referenciada que funciona bien, pero como comente anteriormente los datos esta organizados por subtotales en la opcion 2 la macro me trae el valor exacto pero se ejecuta tambien en las celdas que estan ocultas. Mi duda es si existe alguna forma o codigo que evite que la macro se ejecute en las celdas ocultas Espero haberme expresado de la mejor forma, Sin embargo Dejo un ejemplo Gracias por sus respuestas. EjemploLSV.rar

Buenas noches y felices fiestas a todos He estado buscando una macro de como poder imprimir copias de una misma hoja pero con diferentes pies de página, y aquí no supe encontrar nada relacionado. ejemplo: 1ª copia..... Copia departamento RECAMBIOS 2ª copia..... Copia departamento LOGISTICA Conseguí desde otra web código para hacerlo efectivo y creo que es interesante para cualquiera que tenga mi misma necesidad. Sub Imprime_mi_hoja() Dim Departamento, n As Byte Departamento = Array("RECAMBIOS", " LOGÍSTICA") For n = LBound(Departamento) To UBound(Departamento) With Worksheets("hoja1") With .PageSetup .PrintArea = "$a$1:$G$19" .LeftFooter = "Copia para " &…

Estimados compañeros, Necesito una macro para fusionar la información contenida en dos hojas en función de los números contenidos en una columna común. En la hoja 1 tengo 2032 observaciones y una columna que se llama nº foto con 32 valores posibles desde F1 hasta F32. Por otra parte, en la segunda hoja tengo únicamente 32 observaciones correspondientes a esas 32 fotos. Al igual que en el caso anterior tengo una columna que se llama nº foto y a contuniación una serie de variables que describen esa foto. Esa serie de variables son las que tengo que ir copiando interativamente en la hoja 1 en función de que coincida que el valor de la columna nº de foto sea el mismo en amba…

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

Hola amigos, tengo un código que lo que hace es al hace es entre dos fechas buscar en una base de datos los cumpleaños que hay entre esas dos fechas. El problema creo que el código esta poco optimizado y en algún lado he metido la pata ya que tengo tres problemas os lo enumero a continuación: 1- Para seleccionar la fecha hago click en una nube y me sale un calendario y selecciono la fecha, el problema es que la fecha me sale según donde esté la celda seccionada y no en B2 que es donde me gustaría. Lo mismo me pasa con la segunda fecha de hasta, la fecha no me aparece en B8 2- Cuando abro el formulario del a fecha no me aparece un botón que he creado de cerrar el calen…

Hola Foristas. Buenas a todos. Espero estén bien de salud. Una vez más por acá con dudas. Primero: En el Formulario (UserForm6) Pretendo insertar los Datos Generales de la Empresa que se imprimirán en las hojas correspondientes. Estos datos se fijarán una primera vez y no “deben” modificarse a no ser que alguno de ellos cambie en algún momento. ¿Cómo puedo mantener los Datos en sus respectivas celdas sin que cambien? ‘Este es el código (inconcluso): Private Sub BtnGuardar_Click() 'Validar que se ingresen Datos en todos los Campos If Me.TxtEmpresa.Text = "" Then MsgBox ("Debe completar el campo: " & Me.TxtEmpresa…

Hola foreros! Les cuento que es lo que deseo hacer: Tengo un archivos con 2 hojas... En la primera consta el padrón de personas de mi ciudad (nombre, DNI, domicilio, etc) con 35000 registros. En la segunda tengo el listado de socios de mi empresa (nombre, DNI, domicilio, etc) con 10000 registros. La idea es separar todos aquellas personas que no forman parte del listado de la empresa para luego ofrecerles los servicios. Dada la falta de información (por ejemplo, muchos DNI faltantes) tendría que hacer la comparación con los nombres. Como entiendo algo de Excel he intentado utilizar la funcion BUSCARV con el atributto "verdadero" (dado que los nombres no son exactam…

Hola amigos. Tengo un problema con una macro para ingresar números consecutivos y fechas. Tras varias pruebas he conseguido que funcione con las fechas pero no con los números. Y al revés, si funcionan los números no lo hacen las fechas. No consigo dar con la solución. Gracias. NUMEROS CONSECUTIVOS.xlsm

Saludos Amigos Encontré este código que según debía eliminar cualquier archivo de Excel sin que el mismo pudiera volver a ser utilizado o quedara en la papelera sin embargo al ejecutarlo ciertamente aparece el MsgBox e inhabilita el archivo para su uso sin embargo no lo elimina de donde este archivado no se si es que la versión en la que programaron ese código sea mucho mas antigua que la mía, de igual modo me interesaría saber si este mismo codigo puede ser usado para Macros en Word mucho les sabre lo que me puedan colaborar Option Explicit Private Sub Workbook_Open() Call Module1.AlAbrirLibro Dim exdate As Date exdate = "30/04/3100" …