Buenas tardes a los miembros de este foro, en esta ocasión solicito vuestra colaboración y ayuda para mejorar la macro que estoy utilizando para remitir reporte de consolidados,para lo cual adjunto los archivos y el error radica esta parte Range("B8:AO17"). Copy., La AO17 (problema) debe ser la ultima fila de cada archivo y como es lógico son variables como por ejemplo una tiene 113, 36, 28, etc., para ellos necesito que a ejecutarse la macro solo permita leer la última fila (SIN INCLUIR LA SUMA TOTAL). A la espera de su respuesta quedo de uds. Agradecidos. UNION DE CONSOLIDADOS.part01.rar UNION DE CONSOLIDADOS.part02.rar UNION DE CONSOLIDADOS.part03.rar UNION DE C…

Hola grupo, No adjunto archivo, pues ya resolvi el problema que tenia con la propiedad value de un rango de celdas, sin embargo, me gustaria su opinion al respecto de algo que creo yo podria ser un error de VBA: Tengo entendido que la propiedad value devuelve un array con el contenido de cada una de las celdas del rango que invoca esa propiedad, pero al parecer dicho array no permite que se acceda a los elementos. Me explico mejor con un codigo simple de tres lineas: Dim vector As Variant vector = Selection.Value ' Aqui tengo seleccionado previamente un rango con digamos 10 celdas, cada una de ellas con un valor Debug.Print vector…

Hola... ¿Qué se debe modificar en el código para buscar por número de cédula? Filtro.xlsm

Hola alguien sabrá con activar un botón oculto en un Userform donde tengo un ListBox en modo multiselect, anteriormente el ListBox lo tenia en modo single y con la siguiente instrucción funcionaba bien. Private Sub ListBox1_Click() CommandButton6.Visible = True End Sub

Hola, amigos. Seguro que me van a poder ayudar en este tema. He creado una macro para guardar un documento con el nombre que se contiene en una celda. Mientras que la ruta donde guardarlo nos lleve a un espacio del disco duro, no hay problema. La coas se complica cuando intento guardarlo en una biblioteca de Sharepoint, ya que aunque no me da ningún error al ejecutar la macro, el archivo no llega a destino Gracias de antemano por su ayuda El código es el siguiente: Sub Guardar_Ficha_Cliente() Dim nombre As String nombre = Range("N4").Value ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, FileName:= _ "/Users/andreu/Desktop/" &…

hola expertos como puedo resaltar las celdas que van de "ah: by" tomando el código instalado en el libro gracias AnalisisCifras.xlsm

Hola!! Desarrollé un libro de excel con algunas formulas de uso común para mi y lo grabe en mi computadora como "COMPLEMENTO DE EXCEL" dejé que excel lo colocara en la carpeta por default que utiliza. Para trabajar ocupo el equipo de mi oficina, un equipo de escritorio en casa y una laptop, los tres con Excel 2016 MSO. Actualmente estoy desarrollando una solución utilizando VBA y dentro del código hago referencia a un par de formulas de las que contiene mi complemento utilizando la función Application.Run llamando al archivo mediante la ruta completa hasta la carpeta donde Excel guardó el complemento, en la computadora. El archivo de trabajo que estoy des…

Buenos días a todos; -Llevo un buen rato a vueltas con un error y no consigo saber donde me estoy equivocando. Me explico un poco: Tengo un formulario creado con una serie de textbox y unos botones de desplazamiento para mostrar los registros. Para mostrar los registros hago una consulta a una BD de Access y por medio de la consulta me los devuelve a los textbox. ¿Lo que no sé es porque no me respeta los campos vacíos?. Adjunto macro de ejemplo. Saludos gracias anticipadas . Consulta.zip

Tengo una hoja de excel que es una tabla. ¿Cómo puedo copiar mas líneas desde otra hoja de forma que aumente el tamaño de la tabla en la hoja de destino? Me estoy volviendo loco y no sé cómo hacerlo...

Mis mas sinceros saludos a equipo y colaboradores de Ayuda Excel. He decidido ponerme en contacto con uds para ver de solucionar un problema con un proyecto que he encarado con mucho entuciasmo, les comento que nadie me explico nada lo poco que se lo aprendí viendo videos y estudiando de alguna paginas de Microsoft para entender algunas cosas . El problema puede parecer muy sencillo , pero para mi no loes , y esta el la macro eliminar del proyecto que elimina la fila completa de la tabla de datos, en algunas oportunidades elimina correctamente pero en ciertas otras me elimina además de la fila la primera columna de mi base de datos, o sea pierdo el nombre de …

Hola a todos Tengo este proyecto que para ejecutar dos macros lo hago a través del dos botones en la pestaña ESTADO. ¿Es posible que se ejecuten de forma automática en cada cambio de la hoja? Gracias TEST_PENDIENTES_MACRO.zip

Hola a todos muy buenos dias como estan! A los grandes maestros de este grupo, queria consultar por una macro que estoy usando para buscar archivos en una carpeta, actualmente la macro me funciona, recorre todos los archivos dentro de una carpeta pero no que no logre es que si hay subcarpetas entre tambien a las sub carpetas, asi que tengo que hacerlo uno por uno aun asi seleccionando carpeta por carpeta, es muy muy muy lento?.... demora 11 minutos en ejecutarse para evaluar por ejemplo una carpeta con 600 archivos... me gustaria saber si existe o no una forma de optimizar para que demore menos... porque lo que necesito es evaluar MUUUUCHAS CARPETAS con …

Hola como andan!, me estoy iniciando en el lenguaje de VB y me surgió una duda al momento de realizar una tarea. El control en cuestión consta en lo siguiente: la hoja de Excel consta del día del 1 al 31 en las columnas de la hoja y en la fila de debajo se coloca un 3 o se deja vacía dependiendo de si ese día se realizo el control pertinente (por ejemplo si en el día 12 hay un 3 es porque ese día se hizo el control, si no hay nada, no se hizo). La cuestión es que el control se debería hacer cada MAXIMO 7 días (es posible que se haga cada menos días). Lo que quiero hacer es un macro que analice los datos de control y si un día que debería haberse hecho control (ósea si pas…

Buenas, en la siguiente base de datos, la cual es bajada de un software contable, quisiera realizar un recorrido por las columnas E, hasta la ultima Columna Activa, en este caso es la columna M. ("como les dije es bajado de un software contable y para cada empresa puede ser diferente el numero de columnas"), la idea es realizar ese recorrido por el rango de columnas (E: hasta la ultima columna activa) y eliminar aquellas columnas que no tengas valores positivos, ya que en algunos casos en una columna sin valores me puede colocar la fecha o cualquier otro dato informativo que no se requiere. BASE PRUEBA.xlsx

Buen día a todas las personas que forman parte de esta gran comunidad. Vengo a solicitar de su invaluable ayuda y conocimiento con la siguiente duda, estoy extrayendo tablas desde PDF a Excel usando macros para Power Query: With ActiveSheet.ListObjects.Add(SourceType:=0, Source:= _ "OLEDB;Provider=Microsoft.Mashup.OleDb.1;Data Source=$Workbook$;Location=""Page002 (2)"";Extended Properties=""""" _ , Destination:=Range("$A$1")).QueryTable Deseo saber si existe un método para saber cuantos objetos tiene el PDF a extraer, para así poder sustituir el valor de Location:""Page002 (2)"" Cualquier ayuda es bien recibida y con un agrad…

Hola buenas tardes. Por las necesidades en mis movimientos de archivos en mis carpetas necesito mover a carpetas diferentes archivos, esto puede ser desde 1 a varios y copiarlos a una carpeta. Con una macro útil hago esto. 1. desde excel se abre el buscador, selecciono el archivo a copiar. 2. me muestra nuevamente el buscador, para seleccionar la carpeta en donde se pega el archivo y lo realiza. Esto es archivo por archivo. Pero esta misma operación la necesitaría poder hacer con diferentes archivos. Existe alguna manera de poder realizarlo? He intentado hacer algunas modificaciones y ya he conseguido poder seleccionar los archivos …

Hola a todos, gracias a Macro Antonio, pude avanzar muchísimo pero tuve que parar porque me di cuenta de algo. No siempre juegan por 6 líneas, a veces juegan por 4 líneas. En el botón de grabar ya está programado para grabar puntajes de 6 líneas (su promedio, total, máximo de puntaje), pero no está preparado para 4 líneas. A mi me gustaría que me aparezca un aviso al pulsar "Nuevo registro" que diga "¿quiere registrar 4 líneas o 6 líneas?", que me de la posibilidad de elegir. No sé si me expliqué bien, pero subo el archivo... Muchas gracias Saludos, Nenuco14 BOW I.rar

Hola chicos, tengo un cuadrito que marca algunas personas que han bajado del promedio y quisiera poder enlistarlos aparte uno tras otro sin dejar blancos, me ayudan por favor? En base a la calificación se tiene que dar el nombre del individuo y el día en que reprobó, gracias por su apoyo! lista aparte.zip

Buenos días, ante todo muchas gracias por todo el apoyo que se recibe de este foro. Muchas veces he encontrado la respuesta de algún problema aquí. Acabo de inscribirme al foro porque tengo un problema con una Macro que genera el error "Se ha producido un error '438' en tiempo de ejecución: El objeto no admite esta propiedad o método". Yo utlizo Office 2010 y funciona bien, pero el error me sucede cuando el archivo lo abren compañeros que tienen una versión anterior (2002 creo). Esta es la macro, la hice a través de la herramienta de grabar macros. Quizás de ahí venga el error. La idea principal es que haga dos ordenamientos, primero por la columna "c" y luego por la …

Hola a todos, Antes de nada os felicito por facilitarnos a todos nuestras jornadas con excel. Os comento mi problema: Quiero conseguir filtrar de una columna entre una fecha con su hora y otra fecha con su hora. Para esto he optado, tras consultar por muchas paginas, por transformar la fecha en formato long y la hora en formato double, esto mismo es lo que le paso a la funcion Autofilter en su campo "criteria" y se supone que tendria que funcionar. Tras ejecutar el código el resultado está vacio. Investigando en el propio excel, depurando, para ver que es lo que ha filtrado (me voy a filtrado entre fechas y veo que hay escrito) y aparece que le falta la "coma"…

Hola a Todos Soy nuevo en el Foro Tengo 2 dudas concretas la primera es : Realice un excel con macros y demas pero cuando lo pongo en otra pc y lo abren en vez de abrirse el useform que puse me lo frena el cartel de seguridad que desabilita las macros, en resumen lo que quiero es que cuando envie mi excel a otra pc que tenga esta configuracion no afecte las macros y se inicien igual esto es posible?. (pense que quizas podia poner algun archivo que guarde la configuracion de excel en un instalador junto con el excel y que se instale todo junto ya con la configuracion de las macros habilitadas) Otro punto Me gustaria saber si hay alguna forma de que se instalar el co…

Hola, tengo un formulario donde deben ser ingresadas tres fechas, cada una con su text.box. Ingreso la fecha pero luego al copiarla en la base de datos me la arreja en el formato mm-dd-yy, necesito que sea dd-mm-yy como lo puedo hacer? Gracias

Buena Tardes les escribo por la siguiente duda. Estoy construyendo una macros, para enviar datos de UserForm en excel a word, todo funciona perfectamente. excepto la validación de un texbox en el formulario, los cuales estan agrupado en unos frame. al precionar la tecla enter, en un texto en blanco lanza un mensaje de error, pero al ir al ultimo texbox de cada frame, no realiza la validación y simplemente pasa al otro texbox les adjunto mi archivo para dejarlo todo mas claro prototipo_luminaria.rar

Obligar al Usuario a llenar Textbox o Combobox hola buenos dias a todos, tengo una duda, intento validar un textbox para que se obligue al usuario a llenarlo con cierta cantidad de caracteres (las que yo decida) o si esta vacio tambien lo obligue una vez que el foco se haya puesto en él. En el archivo de muestra intento validar eso pero no lo logro completar ojala este dentro de su valioso tiempo porderme ayudar a este ejemplo. Gracias validartextboxparallenado.xls

Saludos, Estoy iniciando con macros y tengo una macro con la siguiente linea: For Each a In Range(Cells(1, ActiveCell.Column), Cells(ultimoRenglon, ActiveCell.Column)) a.Activate 'si el valor en la celda es p entonces copia la fila If a.Value = "p" Then a.EntireRow.Copy Destination:=Sheets("Hoja2").Range("A6001").End(xlUp).Offset(1, 0) end if Todo trabaja bien pero el codigo me copia toda una fila y necesito copiar un rango especifico, osea que copie las filas que cumplan con la condicion pero que esten entre C2 y H2. Alguna idea se los agradeceria.