Buenos días colegas. Espero se encuentren bien de salud. No acabo de salir de una y ya estoy en otra. El Sistema de Pre-Nominas que algunos de ustedes me han ayudado a terminar y que felizmente ha esto trabajando sin problema alguno, acaba de darme este error: Error de sistema &H8000FFFF Error catastrófico He buscado en este Foro y vi algunas cosas de una anterior consulta, pero no me quedó claro nada y no se si después de eso alguien haya podido solucionar el dichoso problema y estamos a fin de mes y mi esposa que trabaja con el esta vuelta loca porque el sistema no le funciona...así que podrán imaginar... Me habla de memoria insuficiente, pe…

SOLUCIONADO Raíz cúbica de un número negativo Al operar de esta manera (-9)^(1/3) en excel se devuelve el resultado de forma correcta, pero en VBA se produce un error. Sub raiz_negativo() Debug.Print (-9) ^ (1 / 3) End Sub[/CODE] Conoceís el motivo y algún forma de evitarlo, sólo se me ocurre: [CODE] Resultado = Abs(Numero) ^ (1 / 3) If Numero < 0 Then Resultado = -1 * Resultado [/CODE] Un saludo

Hola a todos, por favor si alguien me puede ayudar con esta macro para que los datos que copia se peguen como valores,ya que actualmente copia con todo y formula el contenido de la celda F7. Sub completa() 'Rellena la columna F hasta la ultima fila con datos de la columna E 'Se detecta la última fila con uf = Range("E10").End(xlDown).Row 'desde donde inicia 'Se detecta el rango a rellenar rango = Range(Cells(10, 6), Cells(uf, 6)).Address 'Luego se Rellena el rango con el contenido de la celda F7 Range("F7").Copy Range(rango) 'es desde donde se autocompletara End Sub Grac…

Estimados buenas tardes. por favor su apoyo para poder corregir este codigo, no se porque razon no me funciona. no estoy adjuntando archivo por que es demasiado grande , y esta a medio desarrollo. lo que hace el codigo es buscar un dato escribiendo el nombre o el codigo en el textbox en un listbox cuyos datos fueron extraidos de una hoja ( esta hoja tiene dos columnas una que tiene por nombre EAM y OTRA descripcion. los registros ahi contenidos son indeterminados ( pueden reducir como aumentar). Private Sub Buscar_Change() On Error Resume Next With Sheets("Listeq") If Buscar <> "" Then ListBox1.Clear i = 1 …

Hola amigos, De nuevo acudo a ustedes para resolver un problema que me lleva atrancado, despues de muchas pruebas, tengo un formulario para buscar, si le pongo el nombre de la hoja a buscar funca perfecto, el problema lo tengo cuando la hoja la selecciono por medio de un combo, hay se me complica, le agradeceria toda la ayuda que me puedan prestar Saludos cordiales Prueba.xlsm

Hola a todos. Este es mi primer tema en este excelente foro. Agradezco de antemano a aquellos que puedan aportar en algo. Me interesa lo siguiente: - Tengo una Base de datos Oracle con datos de los GPS de 10 vehiculos actualizado cada 15 segundos aproximadamente. - Me interesa crear una aplicacion en excel que permita ingresar datos asociados a estos vehiculos (mediante formularios) como por ejemplo, carga transportada, nombre transportista etc. - Me gustaria crear una serie de reportes a partir de estos datos, los del GPS y lo de los formularios, con sus respectivos gráficos tablas, etc. - Quisiera mostrar una hoja con un mapa del sector en que se mueven los vehicul…

Hola como están? Tengo un libro de excel con registros de una base de datos de productos, dividivos en grupos por hojas. Necesito que en una nueva hoja se copien todos los datos de cada registro de cada hoja siempre que la columna digamos tengo un valor mayor a cero. Estuve intentando crear macros para lograrlo pero no pude avanzar mucho ya que solo vi macros muy básicas. Se que doy poca info y es un tema extenso pero no se, en lo que me puedan ayudar les agradeceré Algunas de las dudas que me pueden ayudar son * como preguntar si un dato es mayor que cero * como tener en cuenta todas las hojas del libro * como copiar los datos a la columna que quiero

Buenas foro,a ver si me podeis echar una mano. En un userform con 4 checkbox con sus correspondientes textbox, lo que pretendo es que los checkboxs que sean verdaderos, por ejemplo el 2 y el 4, me copie los valores del textbox2 en B2 y el textbox4 en C2, es decir que según los checkbox marcados vaya rellenando en la misma fila sin dejar hueco. Ejemplo.xlsm

Hola a todos! He estado revisando los temas que hay relacionados con mi duda y no he sabido encontrar nada que se adapte a lo que busco. Creo que para los "megacracks" que hay aquí, os será sumamente facil, pero como yo no tengo ni idea de programar, pues una ayuda me vendria muy bien. Muy rápido. Tengo varios archivos como el que os subo "Hoja Actividades 1", "Hoja Actividades 2", "Hoja Actividades 3"...y así hasta 10. Todas con idéntica estructura de columnas. Necesitaria crear un libro nuevo que se podria llamar "Hoja Actividades TOTAL" que a través de una macro capturara la información de las 10 hojas de actividades y las agrupara en la TOTAL, en una unica pestañ…

Buen día a todos!!! Solicito de su apoyo para saber si es posible agregar código a un formulario para que verifique la ortografía de un cuadro de texto (o varios) mientras se escribe como lo hace Word. Hasta el momento solo he hecho lo mas facil que es agregar el código Cells.CheckSpelling SpellLang:=2058 para que verifique el texto una vez exportado a excel, pero esto me quita tiempo, por lo que quisiera hacerlo desde el mismo formulario. Gracias! PD: No me permite subir el archivo, me marca un error

Hola! Como dice el asunto estoy buscando una función personalizada del tipo =Bold(A1) que devuelva el valor de A1 en negrita. Me estoy volviendo loca y no consigo encontrar la solución! Me echáis una mano? Mil gracias!!

Buena tarde a todos: Necesito hacer un resumen de folios y con los nombres de pacientes a una hoja resumen. Pero los datos de cada hoja son extensos. La informacion que quiero extraer son de las columnas en que se encuebntran los Folio, fecha, y nombre de paciente. Muchas gracias Extraccion de datos.xls

Buenas tardes Saludos mi consulta es la siguiente. Quisiera hacer una macro para que digamos ponga a cada rango el nombre especificado de a1, b1 etc. Pero si digamos hubieses nuevos datos después de haber puesto el nombre al ejecutar la macro me borre los nombres actuales y me actualice con los nuevos. Ej. si en a13 no hay datos el rango de (nombre2) seria de a2:a12, pero si mas adelante le pusiera mas datos hasta a17 el nuevo rango seria de a2:a17. gracias por la ayuda. subo archivo. nombres.rar

Hola, Alguien me podría apoyar con una maros que pueda generar una alarma en Excel? He estado buscando información, pero la mayoría son para fechas, y no sé programación. Lo que requiero es un aviso para cuando tenga el stock mínimo para determinados productos. Gracias!

Hola: Adjunto un macro que me suma por separado la columna A de 3 hojas de un libro. Lo que necesito ahora es sumar los resultados de cada una de las hojas y me lo muestre en un MsgBox. De paso, si podéis simplificar la macro propuesta, mejor que mejor. Saludos. Sumar Hojas.zip

Hola, En búsqueda de ayuda y enseñanza me dirjo a los foristas. Necesito crear un MsgBox que me informe que al introducir un dato en una celda de la columna H, debo introducir otro dato en una celda, en la misma fila, pero en la columna L. Advierto que son varias filas, es decir un rango de celdas. El MsgBox debe informar también que no se puede guardar el libro sino se ha introducido el dato en la celda de la columna L. Estuve buscando por el Foro pero no encontré ningún código que me sirviera. Subo un ejemplo para mayor comprensión. Gracias de antemano. MSGBOX.rar

Buenas noches hace un tiempo cree unos formularios con google form y los archivos están en el drive, como son varios y cada uno es una hoja utilice formulas para conectar los datos que se ingresan, implemente el uso de macros con el fin de automatizar el formato y la copia y pega de las formulas, pero al ejecutarse las macros estas afectan las mismas columnas en todas las hojas, lo que ocasiona que se borren los datos, existe algún código que permita garantizar que la macro solo se ejecute en una hoja en particular o debo crear varios libros quedo atento muchas gracias

buenas tardes, tengo el siguiente código para navegar por paginas web, pero navega en segundo plano, que debo agregar al código para que se pueda abrir y visualizar la pagina que abre la macro? Sub testnavegar() Dim htmlDeRespuesta As Object Set htmlDeRespuesta = CreateObject("htmlFile") With CreateObject("msxml2.xmlhttp") .Open "Get", "https://www.google.cl/", False .send htmlDeRespuesta.body.innerHTML = .responseText End With On Error Resume Next Range("d4").Value = htmlDeRespuesta.getElementsByid("gNO89b")(0).innerText On Error GoTo 0 End Sub muchas gracias

Buenos días para todos... Mi consulta es: Tengo un excel en donde esta conformado en la primera hoja una lista y n cantidad de hojas donde: n= personas que deben cumplir con ciertos criterios para pasar primera hoja= lista donde deben ir las personas que no cumplieron con ciertos criterios como mencione anteriormente en cada hoja se pone el nombre y cédula del individuo y se desglosa en los criterios que deben cumplir para pasar ejemplo: Experiencia certificada, realizacion de cursos etc... Cuando la persona no cumple con el requisito de terminar estudios se debe reportar en la lista (situada en la primera hoja) con su nombre y cédula... Realice una macro para que c…

Buenas noches, acudo nuevamente a Uds. para realizar la siguiente consulta: Tengo un libro en Excel con varias hojas. Deseo que al cerrar el file, solo se protejan "ciertas hojas", no todas. Estoy usando el siguiente código, el cual proteje todas las hojas del libro, quisiera modificarlo para cerrar el archivo y que automáticamente se protejan "algunas" hojas. Sub Proteger_Hoja() For Each Sheet In ThisWorkbook.Worksheets If Not Sheet.ProtectContents Then Sheet.Select ActiveSheet.Protect ("Xxxxxx") MsgBox "Se ha protegido la siguiente hoja : " & Sheet.Name, vbExclamation + vbOKOnly, "Proteger_Hoja" End If Next End Sub Por cierto, las hojas tie…

Hola que tal expertos, en esta ocasión recurro a ustedes ya que no tengo idea de como generar esta macro, lo eh hecho con la función de buscarv pero no me funciona tal cual yo quiero ya que solo me muestra el primer dato en el que coincide y los demás datos no me los toma en cuenta, espero me puedan ayudar a solucionar u orientar en como realizar lo siguiente. Tengo un archivo de excel en donde tengo alrededor de 50 hojas cada una llamada ESTADO1,ESTADO2... asi sucesivamente... una de mis hojas se llama ACUMULADO que es donde tengo toda la información de la base de datos, por lo pronto ya logre que dependiendo del nombre de mi hoja se asigne a una celda dentro d…

Buen día, agradezco desde ya a las personas que me puedan asistir en esta macro ya que estoy incursionando recién (tarde, pero lo haremos :suspicion: ). La idea de la macro es para una planilla diaria que armo para darle a las cuadrillas bajo mi cargo las tareas del día (adjunto planilla .xls). Lo que tengo pensado armar, es lo siguiente: 1 - Todos los datos de la planilla son cargados manualmente, lo que deseo hacer "automático" por decirlo de alguna manera es que una vez ingresados los datos desde la columna B hasta la columna K, halla un botón que apriete y me pregunte la fecha que quiero colocar, llenando de esa manera la columna A. Simplemente eso, desde ya le ag…

Hola buenas noches, Estoy intentado crear una macro para copiar datos de una tabla de un libro a otro. Este es el código que estoy utilizando: Sub copiar_a_libro_dashboard() Application.ScreenUpdating = False 'Variables Dim wbLibroOrigen As Workbook Dim wsHojaOrigen As Worksheet Dim wbLibroDestino As Workbook Dim wsHojaDestino As Worksheet 'Ruta Dim Ruta As String Ruta = "C:\Users\Puche\Desktop\PAQUETERIA PALAU\BASE DATOS.xlsx" 'Datos destino Set wbLibroDestino = Workbooks.Open(Ruta) Set wsHojaDestino = wbLibroDestino.Worksheets("Base Datos") 'Datos origen Set wbLibroOrigen = Workbooks(ThisWorkbook.Name) Set wsHoja…

Hola compañeros, Cuál es el método que me permite quitar la ventana de alerta al cerrar un libro (ver imagen adjunta)? Estoy probando con este código, pero no me funciona... guardar = MsgBox(Prompt:="Gracias por usar la aplicación ofimática, " & tbNombre & "." & vbCr & _ "¿Desea guardar los cambios antes de salir?", _ Buttons:=vbYesNo + vbCritical, _ Title:=" SALIR DE LA APLICACION OFIMATICA") If guardar = vbYes Then ActiveWorkbook.Save Else Application.DisplayAlerts = False ' No mostramos la ventana de alerta para guardar manualmente l…

Todos los excell en una misma carpeta. Unicamente a cambiar una celda de todos los excells de la carpeta. La "BC30" es una celda combinada. Condicional: Si el valor actual de BC30= "hogares" cambiar el valor de la celda por "infiernos" Si el valor actual de BC30= "alquileres" cambiar el valor de la celda por "placeres" Si el valor actual de BC30= "compartir" cambiar el valor de la celda por "genesis" En la celda CB30 solo pueden existir estos valores:" hogares", "alquileres" , "compartir" Y siempre se quieren cambiar por estas correspondencias: Alguien sabe como hacerlo de forma masiva?