Hola, estimados usuarios de AyudaExcel. Soy nuevo en el tema de las macros en Excel y VBA, pero quiero ver la posibilidad de que si pueden ayudarme con lo siguiente. Tengo un archivo llamado "BD IDS" (el cual adjunto), el cuál tiene divididas por hojas varias plataformas (Windows, Linux,etc), los datos de varios usuarios, ordenados en columnas. Mi idea es hacer una macro, en un archivo (adjunto), que se llama: "BUSQUEDA IDs". Lo que pretendo es que según la plataforma que esté seleccionada, al apretar el botón, busque los datos en otro libro excel que pretendo que esté cerrado y según la plataforma seleccionada, busque en una hoja determinada con esa plataforma. En …

Buenas tardes una consulta como puedo hacer una macro que al momento de ingresar estos datos (del 1 al 100) en la celda me convirtiera al dar enter automáticamente, entre los rangos de 1 a 5: En la hoja A1 coloco 50 pero automáticamente debiera aparecer 3, como esta en la descripción de abajo. De 1 punto a 11 puntos * 0,05 = 1 punto De 31 puntos a 49 puntos * 0,05 = 2 puntos DE 50 a 69 puntos *0,05 puntos = 3 puntos DE 70 puntos a 89 puntos *0,05 = 4 puntos DE 90 puntos a 100 *0,05 = 5 puntos La fórmula la tengo en una celda pero no hay espacio en mi hoja de impresión por eso deseo que haga esa conversión automáticamente al momento de i…

Estimados, este es mi primer post en la pagina, la verdad les queria agradecer por todos los aportes que suben dia a dia ya que muchos de ellos me han salvado en mas de una ocacion. En esta oportunidad necesito de su ayuda y les escribo porque no encontre las respuestas en el foro, les intentare dar toda la informacion que pueda, pero los datos que manejo son 100% confidenciales entonces si falta algo preguntenme y les indico mas informacion al respecto. Bueno, tengo una base de datos con mas de 20.000 filas, que incluyen las columnas CAJA, BANCO, FALLA, INICIO Y TERMINO, estos son problemas que puede haber ocurrido con esta "CAJA" en un dia, la base que adjunto solo ti…

Buenos Días, en una hoja activa seria posible tener algo así como una ventana flotante en la que pudiera configurar varios botones con distintas macros cada uno.? Sin que tener que poner los botones directamente en la hoja activa. Saludos

Dim Titulo$ Dim objHttp As Object Set objHttp = CreateObject("MSXML2.ServerXMLHTTP") objHttp.Open "GET", "https://sitioaverificar", False objHttp.Send "" Titulo = objHttp.ResponseText If InStr(1, UCase(Titulo), "<TITLE>") Then Titulo = Mid(Titulo, InStr(1, UCase(Titulo), "<TITLE>") + Len("<TITLE>")) Titulo = Mid(Titulo, 1, InStr(1, UCase(Titulo), "</TITLE>") - 1) Else Titulo = "" End If MsgBox Titulo Hola a todos, Estoy utilizando esta macro para obtener el título de un sitio http para saber si se encuentra ok o no, funciona a la perfección, pero no me resulta para los sitios https Sólo necesito extraer el título de la…

Saludos a todos Estoy tratando una macro para realizar lo siguiente: En la hoja BASE tengo varios datos y en la columna G (TIPO) tengo una P o D, necesito acomodar todas las P de un "Id" y luego las D y totalizar, en la celda siguiente sacar la diferencia, poner un T en la columna J Adjunto un pequeño ejemplo de lo que pretendo realizar Agradezco de antemano sus comentarios y/o ayuda Saludos EJM09052020.xlsm

Hola, tengo un pequeño contratiempo y necesito hacer una macro que me haga lo siguiente, a ver si alguien me puede ayudar: Estando en un libro Excel ejecuto una macro que me copia una tabla en otro libro nuevo creado automáticamente. El nombre del libro que me crea automáticamente es libro1, libro2, depende las veces que ejecute la macro, el que genera por sí solo, pero si detecta que ya existe y quiero cancelar me sale un error(13). La cuestión es que quiero que ese libro nuevo se cree con la fecha y hora actual y así no tendré problemas con el nombre del libro. Tengo hecho la siguiente macro: Sub copiaTabla() ' 'Declaramos las variables. Dim NombreHoja As String …

al ejecuar la siguiente macro, quiero que la hoja1 del libro DATOS, se agregue en el libro ORIGEN, pero no lo hace Sub copiar_Datos() ORIGEN = Application.GetOpenFilename(Title:="Selecciona el archivo ORIGEN", filefilter:="Excel files (*.xls*), *.xls*") DATOS = Application.GetOpenFilename(Title:="Selecciona el archivo DATOS", filefilter:="Excel files (*.xls*), *.xls*") Workbooks.Open DATOS Workbooks.Open ORIGEN info = Excel.ActiveWorkbook.Name Workbooks(info).Worksheets(1).Copy After:=Workbooks(DATOS).Sheets(1) Windows(info).Activate ActiveWindow.Close End Sub alguien que me pueda ayudar para corregir lo que no que …

Hola amigos, buenas tardes. Trabajando desde Excel 2003, necesito crear un botón para que al hacer click, me abra el formulario “Presu01” de Access y que pueda ingresar datos en él. He visto algunas cosas por ahí pero no he encontrado lo que busco. Si alguien puede ayudarme, por favor, se lo agradeceré. Saludos

Hola amigos, Solicito vuestra colaboración para encontrar una variable que me ayude con el proyecto que llevo a cabo. Se trata de una base de datos en cuya Hoja1 llevo el registro de datos y en la Hoja2 los resumo con una macro, de manera que al hacer un nuevo registro o modificar alguno de los existentes, los datos se actualizan automáticamente. Necesito una variable para integrar la propiedad "OutlineLevel", de forma que se respete la estructura del calendario existente en la Hoja2. Adjunto archivo. Gracias. Base_d_datos.rar

Buenas a todos, Estoy intentando crear una macro para rellenar automaticamente unas celdas con unos valores de texto predeterminados y siguiendo unas pautas de repeticion...., y no consigo ni acercarme :-( Adjunto el fichero que estoy trabajando. La primera hoja contiene los datos. La segunda hoja es como deberia de quedar. La tercera hoja es la de los resultados. En la hoja de datos estan marcados en rojo aquellos que indican los criterios de repeticion..... no se si consigo explicarme... En el ejemplo del archivo, como hay 4 "PAGINAS POR JUEGO" existen 4 valores para TEXTO POR PAGINA. Cada valor se repetirá 10 veces y sucesivamente hasta completar el rango total…

Buenas a todos tengo una duda que realiza una impresión de la hoja en la que estoy trabajando:Dispongo de este código:………………….................................................................................................................Private Sub CommandButton68_Click()If ExecuteExcel4Macro("show.toolbar(""ribbon"",1)") ThenApplication.CommandBars.ExecuteMso ("PrintPreviewAndPrint")End IfExecuteExcel4Macro ("show.toolbar(""ribbon"",0)")End Sub………………....................................................................................................................--------------------------------------------------------------------------Este código:ExecuteExcel4Macro("sh…

Hola: Tengo una macro de excel que a partir de una plantilla de word, genera un nuevo archivo de Word y lo guarda en una ubicación especifica. El tema es que al final de todo esto necesito que ese documento de word generado se muestre en primer plano pero no lo consigo, aparece siempre detras del resto de programas o minimizado. He probado lo siguiente sin exito: Static objword As Object . . wdDoc.SaveAs Filename:=rutainf, FileFormat:=wdFormatXMLDocument wdDoc.Activate wdDoc , vbMaximmizedFocus Muchas gracias. Saludos.

Hola a todos, en esta oportunidad quisiera que me ayuden con un cronograma de impuestos, lo que quiero es lo siguiente: 1. Que mediante alguna formula, me extraiga cual es la fecha de vencimiento según el último digito de RUC o si es buen contribuyente para cada periodo. 2. Que se pinte un determinado color cuando falte 3 días para que venza y rojo si se vence en el día actual. Adjunto archivo. crononograma sunat 2014.xls

Buenos Dias Por favor me pueden ayudar ya que tengo el siguiente codigo para buscar pero me sale error, por favor su apoyo. Dim ult As Integer Dim datoBusqueda As String Dim ncontrato As Long ult = transRowRng.Rows.Count datoBusqueda = TextBox1.Text If datoBusqueda = "" Then MsgBox "Búsqueda cancelada", vbInformation, "Mensaje" Exit Sub Else ncontrato = Val(datoBusqueda) For j = 1 To ult If Cells(j, 2) = ncontrato Then cont = 1 fila = j TextBox2.Text = Cells(j, 3) End If Next j End If If cont = 0 Then MsgBox "Contrato no encontrado", vbInform…

Muy buenas, Soy nuevo en el foro. Un cordial saludo. Mi problema es el siguiente: Necesito exportar un código fuente, copiarlo a excel y crear una macro para detectar partes de una celda de 5 caracteres repetidos una, dos o n veces con partes de otra celda de los mismos caracteres. Esto para detectar saltos erróneos que pueden parar un PLC al entrar en un bucle infinito. Algún método sencillo? Gracias de antemano,

Hola a todos. Tengo un problema. Estoy intentando hacer un archivo en Excel donde a través de un cuadro de diálogo abro un archivo Excel y quiero importar esos datos a Access. Como estoy haciendo pruebas solo intento importar varios campos, pero no consigo hacerlo. Me da este error: El código que estoy intentando hacer funcionar es este, que no es obra mía, he encontrado en la Red y he intentado adaptarlo. Option Explicit ' Public Conn, Sql$, rs_AV, Rs2 As Object, Rst As Recordset ' Sub Conexión() ' On Error Resume Next: Rst.Close: rs_AV.Close: Rs2.Close: Conn.Close: On Error GoTo 0 Set Conn = CreateObject("adodb.Connection") Conn.Open "Provider=…

Buenos días compañeros !! Podrían ayudarme, tengo una duda con un formulario. En el apartado de BUSCAR, tengo un buscador inteligente, pero sólo me busca por algunos campos. Me gustaría poder buscar cualquier coincidencia en todo el documento, ya sea por números, letras, etc... Muchas gracias compañeros Pruebas14032022.xlsm

Estimados: Reciban gratos saludos desde Nicaragua. Quisiera consultarles algo, como puedo hacer para que en un libro de Excel me aparezca una alerta de recordatorio, es decir no que se coloree una celda, sino que me aparezca un cuadro de texto o una ventana diciendo: “TE QUEDAN DIEZ DIAS PARA COMPLETAR Y ENVIAR EL FORMULARIO” dejando establecida que aparezca a partir de una fecha especifica En palabras sencillas seria que tengo un libro en Excel que las personas tienen que enviar el 15 de diciembre, entonces yo quiero que diez días antes les aparezca una alerta de recordatorio diciéndoles: “TE QUEDAN DIEZ DIAS PARA COMPLETAR Y ENVIAR EL ARCHIVO”.Creo que seria un macro…

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…

Tengo la versión 2007, el planteamiento es el siguiente: es un libro con una sola hoja de calculo, en la cual está definida un área de impresión, la parte superior (las primeras filas) se repiten en la impresión para las filas posteriores bajo ese encabezado, en la columna "M" a partir de la celda "M11" hay una formula con un =SI condicional, la cuestión es que si no hay cantidad indicada en la columna "H" no se muestra nada en estas celdas de la "M", pero al momento de imprimirlas, me manda todas las hojas hasta donde esta la formula que es la celda "M2516", lo que necesito es que me imprima las paginas resultantes (que a parte se están auto-numerando conforme se llenan…

Buenos días, Tengo un libro con 13 hojas. Doce de ellas correspondientes a cada uno de los meses y una final (TOTALES) en las que necesito pegar los datos de esas doce hojas mensuales; todas tienen el mismo formato. Me encuentro con varios problemas: De cada hoja mensual sólo necesito unas determinadas líneas, éstas vienen indicadas con el nombre del destino. Sólo necesito copiar de cada una de las hojas mensuales los datos con los totales pero además necesito diferenciar en esa hoja TOTALES a qué mes corresponde cada dato. Añado fichero de ejemplo, con el resultado final en la hoja TOTALES, de cómo lo necesitaría. En el ejemplo sólo he incluido dos meses, necesitar…

Hola a tod@s, he buscado en el foro pero no encuentro exactamente lo que necesito. Tengo en una columna grupos de celdas del mismo color y me gustaría obtener el resultado de cuántas seguidas hay y su número, en una misma columna. Ejemplo: si hay 3 celdas seguidas de color, obtener un 3, si hay 4 obtener un 4, etc Adjunto un excel con el ejemplo por si es más fácil. Muchas gracias de antemano por vuestro tiempo y sabiduría!! Ejercicio contar celdas consecutivas mismo color.xlsx

Estimados amig@s me sale el siguiente mensaje cuando llamo a un formulario: "Se ha producido el error '404' en tiempo de ejecución: No se puede mostrar un formulario modal cuando se muestra un formulario modal " Este formulario lo llamo desde otro formularioque lo uso como "MENU" el cual tiene un pagina múltiple y en una de las paginas tiene tres commandbutton un commandbutton funciona bien porque lo uso para llamar a otro formulario pero el segundo commandbutton le di la orden para llamar a otro formulario pero me sale el mensaje de arriba. Com pudo solucionarlo? Saludos Jesús

Hola, tengo un userform con un ComboBox que al iniciar selecciono un item. se podria hacer que al seleccionar uno de esos item cargue en el TextBox1 otro item relacionado con el ComboBox. ejemplo: Seleccionar Enero y en el texbox1 ponga 31 dias. Que los datos no los seleccione de una tabla que los seleccione desde el userform. Gracias Saludos. Libro1.xlsm