Estimados señores buenas, felicidades por el foro. Les escribo para solicitar un favor inmenso en lo siguiente: Soy nuevo en el uso de macros y estoy creando un informe para análisis de aceite en laboratorio, lo que quiero es automatizarlo, se tienen diversos parámetros, uno de ellos es el parámetro "oxidación" al cual se le hicieron 4 pruebas en distintos tiempos, y se tiene un indicador "alarma" (adjunto archivo) La norma indica que para "oxidación" el resultado debería ser menor a 3 "normal"; si el resultado es igual mayor a 3 pero menor a 5 significa "alerta" ; y si el resultado es mayor igual a 5 significa "peligro" (cambio de aceite) Lo que quiero es que al hac…

Estimados, solicitode su ayuda, tengo un userform que tiene 3 texbox y lo que necesito es extrar ciertos caracteres de los dos primeros texbox y que el tercero me muestre esos caracteres es para crear un usuario con el nombre y apellidos, bueno lo hice funcionar en una celda y funciona a la perfeccion con la ayuda de un amigo de aca del foro pero no se como aplicar lo en vba. dejo el codigo de excel con el que funciona =IF(A2="";"";LEFT(A2)&MID(B2;SEARCH(" ";B2)+1;1)&LEFT(B2;SEARCH(" ";B2)-1)) esto es asi: A2 = luis B2 = Soto caceres C3 = lcsoto (este es el resultado) Ahora lo que necesito es hacerlo en t…

¿Hola, que tal? Os comento, estoy intentando copiar Todos los datos de Varias columnas No consecutivas de la hoja 1 a la hoja 2. Aquí os dejo un ejemplo del resultado Grácias por vuestra ayuda Libro1.zip

Hola a todos, estoy haciendo una macro para que a aprtir de una tabla me genere un diagrama de gantt. La tabla es sobre el uso de maquinas de una empresa, tiene como datos maquina, articulo(que se crea en la maquina), tiempo de inicio, tiempo de finalizacion y tiempo de uso. En realidad tiene mas datos pero creo que esos son los que mas interesan ahora. El caso es que ya he conseguido que me genere la tabla con el uso de las maquinas pero no como me gustaria: Una vez aqui,lo que me gustaría es que los trabajos de por ejemplo maquina 1 en una linea diferenciando que articulo esta haciendo. Adjunto abajo el excel. Lo que quiero si se puede es que me digais como hacer…

Buenas, Necesito ayuda, no domino mucho el excel y no doy con la macro que necesito. Lo único que necesito es crear archivos txt individuales con el nombre de cada celda, encontré una macro que me valía pero lo tenia que hacer celda a celda y necesitaría que lo hiciera por rangos. si se creara automáticamente al guardar nuevos datos sin necesidad de ejecutar la macro perfecto pero seria un add. Adjunto la macro que encontré por si sirve de ayuda. Sub GeneraMiniArchivoDeTexto() Dim myfile As String, mytexto As String myfile = ThisWorkbook.Path & "\" & _ Cells(Selection.Row, "a") & ".txt" If Dir(myfile) <> "" Then Kill myfile mytexto = Cells(Sel…

Hola amigos del foro lo siguiente es que deseo me colaboren para modificar una macro de tal manera que en la columna "G" se me rebaje automáticamente el dato correspondiente de la columna "C" Y en la comunna "F" Se me rebaje lo de la comunna "E", de seguro que hay forma tambien de hacerlo sin macros toda ayuda será bienvenida. Los rebajos deberian aplicarse una vez se modifique la celda"F2" Prueba.xlsm.zip

Hola, Gracias de Antemano por la Ayuda que me puedan Brindar. La verdad no soy experto ni capacitado en excel pero me gusta y de a poco veo su gran potencial en las aplicaciones que utilizo, y con ciertos vídeos tutoriales es que logre hacer esta macro de varios vídeos y consultas hasta casi conseguir lo que tengo faltandome únicamente este dato. Tengo un archivo de excel, en el cual tengo una hoja que le llamo Recibo unificado, cuando lleno este recibo con los datos que requiero (esta hoja se llama Recibo Unificado), tiene múltiple formulas de diferentes Hojas del mismo Libro que se actualizan al colocar el Nombre de un Usuario, una vez que lleno los datos hago median…

Despues de mucha de la ayuda que me da esta página, creo que es hora de aportar algo. Buscando por la web encontre este codigo que espero que les sirva de mucho. Saludos Sub MoverArchivos() ' 'Antes de correr la macro, elije las celdas que tengan la ruta 'del nombre actual, es decir a partir de A2 Dim NombreNuevo As String Dim NombreAnterior As String ' 'Si no encuentra algún archivo, continuará con el siguiente ' On Error Resume Next For Each Celda In Selection NombreAnterior = Celda.Value 'El dato del nombre nuevo y la carpeta nueva será la columna G, especificado con 6 NombreNuevo = Celda.Offset(0, 6).Value Name NombreAnterior As NombreNuevo Next C…

Hola!! Os pongo en situación, estoy con un proyecto personal, en el que necesito recorrer los datos de una tabla dinámica e ir importando los datos a otra hoja, todo esto con una macro Utilizando la siguiente función pero con unas modificaciones que comento mas adelante: "=GETPIVOTDATA(""[Measures].[suma de Clientes]"",'TD ACUMULADO'!R6C2,""[Clientes].[Año]"",""[Clientes].[Año].&[2015]"",""[Clientes].[Mes]"",""[Clientes].[Mes].&[1]"")" Con la función que he puesto devolvería el número de clientes que han pasado por una tienda el mes 1 ([Clientes].[Mes].&[1]) del año 2015 ([Clientes].[Año].&[2015]). El problema esta en como tengo que coger numero de cli…

Hola que tal? Os cuento, Tengo una duda haber si me podeis echar un cable, en el formulario que os envio, tengo 2 columnas, una con clientes y otra con artículos. (Hoja 1) Al activar la macro se cargará un formulario donde se podrá añadir un nuevo Cliente (Se añadirá un artículo en la columna A autonumerico) y 2 combobox donde se podrán cargar los datos de las 2 columnas. Ahora aquí viene la cuestión, mi idea es copiar en la hoja 2 los clientes en función del valor de la combobox 1 Dejo ejemplos en la hoja 2 del archivo. Al pulsar "guardarcliente" se añadirá el nombre seleccionado en la combobox 2 en la misma fila de la combobox 1 La hoja 3 por si alguien lo mira h…

Buenos días , tengo la siguiente macro que me realiza dos gráficos al pulsar , el problema es que me los pone uno encima del otro, Habría alguna manera de ponerlos un poco separados? de tal forma que cuando ejecute la macro pueda ver los dos gráficos simultáneamente sin necesidad de tener que mover uno. Muchísimas gracias EJERCICOGRAFICAS.zip

Buenas tardes compañeros. Tengo una duda espero alguien me pueda ayudar u orientar con lo siguiente: Tengo 2 libros: -Principal (hojas indefinidas) -Secundario (hojas indefinidas) Lo que me gustaría que hiciera la macro seria que por ejemplo del libro Secundario comparar las hojas de este libro contra las hojas del libro principal, si existe coinciden las hojas entonces haria lo siguiente: Libro secundario -- nombre de la hoja = Dato1 Libro principal -- nombre de la hoja = Dato1 Entonces si la hoja coincide en el nombre quiero copiar el rango de datos de b7 en adelante (no tiene rango definido pero todas la hojas comienzan en el B7) de libro secundario dato1 a …

Buenas tardes, Necesito vuestra ayuda, tengo una hoja que se llama "Registros Automaticos"y mi necesidad es que desde la hoja Registros Automaticos anote los datos en las hojas correspondientes cuando llega la fecha prevista y que la fecha se actualice para el mes siguiente automaticamente. Pero la hoja de Registros Automaticos no se puede sumar a la hoja de Informes Cat y Subcat. Espero que se entienda ContabilidadDomestica.rar

Buenos dias, soy nuevo en powerpivot y queria saber si es posible utilizar macros para powerpivot. Si es posible, alguien tiene un manual interesante sobre ello?

Buenas tardes Compañeros, En fichero adjunto os pongo lo que necesito. Creo que lo que necesito es con una macro, espero que sea asi. saludos y gracias. EJEMPLO.xls

Buenas, reciban un cordial saludo, despues de tanto buscar y probar no he podido lograr llenar un formulario WEB con una dato y luego hacer la busqueda. a ver quien me una ayuda con este codigo. Primero hago la conexion del usuario y me logeo con existo con este codigo. Sub PS_ACCESO_001() Dim IE As Object, tags As Object, tagx As Object If Hoja2.Cbo_Usuario.Value = "" Or Hoja2.Txt_Psw.Value = "" Then Exit Sub Application.StatusBar = "Verificando usuario. Please wait..." Set IE = CreateObject("InternetExplorer.Application") With IE IE.Navigate "http://pspa91web=login&languageCd=ESP" While .Busy DoEvents Wend .Document.all.Ite…

Hola a todos... Amigos tengo una inquietud que no logro solucionar y es por eso que estoy aca por primera vez para ver si alguien de ustedes me puede ayudar. El problema es el siguiente: Tengo una auditoria que realizar a diario, para esto me apoyo en una Macro que me organiza la informacion como la necesito, me arroja una serie de informacion por HOJAS y estas hojas estan divididas por zonas (Zona Norte, Oriente, Occidente, Sur y Centro), ahora es cuando esta el problema, me esta quitando mucho tiempo tener que filtrar cada hoja del libro por zona, crear un archivo nuevo, crear las hojas y pegar los datos de su zona correspondiente, y asi susesivamente con todas las z…

Buenas tardes.. tengo el siguiente inconveniente en mi archivo que adjunto deseo implementar un botón de búsqueda y edición de datos que parta desde de la clínica hasta observación, he conseguido varios userfom para implementarlo pero de verdad que se me hace algo complicado subo ambos archivos para que tenga una mejor idea aquella persona que pueda ayudarme con respecto a esto.! 1: que el agente pueda buscar y editar un dato mal incorporado pero a partir de la columna que dice clínica hasta observacion. Si se puede implementar el userform buscador de comercios en el archivo cierre de guardia seria genial espero no molestar con este problema gracias. Gracias p…

Hola amigos, ¿se puede autoajustar el alto de las filas en un listview o en un listbox?. Quiero mostrar unos datos tipo comentarios en un listbox o listview, y quiero que estos se vean completos, sin tener que modificar el ancho de las columnas. Adjunto archivo que encontre. no es mio, es solo de ejemplo para ver si es factible aumentar el alto de las filas gracias listview.rar

uso el siguiente codigo para tomar la pantalla Sub Capturar() GETWINDOWDC Application.OnKey "^%{PETSIS}" End Sub Pero ahora como puedo guardar lo que esta en el portapapeles en una ruta?

Hola a todos. Tengo muchas imágenes "insertadas" en una hoja de excel en tamaño miniatura y necesito generar una macro que haga zoom únicamente en la foto seleccionada y luego vuelva a su tamaño original. Se les ocurre alguna forma ? Gracias Fernando

Hola a todos, estoy tratando de hacer una "calculadora" u hoja de cálculo para hacer consultas estandarizadas a una base de datos compuesta por los los registros pluviométricos diarios de una estación meteorológica sobre los que hay rescatar una información sobre fechas concretas para rellenar los datos correspondiente a las celdas con los siguientes encabezados: mm max 24h mm tot Evento Nº Dias Evento 1º Días sin lluvia antes prec máxima mm 5 dias antes mm 7 dias antes Días sin lluvia antes del evento mm lluvia evento lluvia anterior - mm max 24h. Hace referencia a la información de la primera estación sobre el máximo día de lluvia en mm. La información que debería …

Ola Masters. Me preguntaba si existe forma de abrir otro archivo de excel, cuando se tiene un formulario ya ejecutado del excel y a la vez abrir otros archivos de excel, sin que me presenten conflictos. Mil Gracias SALUDOS....

Mi consulta es como hacer una macro que al presionar el botón calcular me genere un cuadro de mensaje con los cálculos que muestro en el cuadro conteo pero que se muetre hasta presionar el botón. Gracias por la ayuda. Conteo.rar

Muy buenas. Espero que puedan ayudarme con lo siguiente. Mi macro crea carpetas segun el rango que seleccione, las carpetas tienen el nombre de cada celda. Dentro de cada carpeta se crean 5 carpetas mas con nombres que yo defini (1,2,3,4,5). (Esto ya lo termine) --------------------------------------------------------------------------------------------------------------------------------- Requiero lo siguiente 1.- Mediante eventos de click movere el cursor a una posición, dará doble click y se seleccionara un texto. (Esto ya lo he hecho) Private Sub DoubleClick() 'Double click as a quick series of two clicks SetCursorPos 200, 100 'x and y position mouse_e…