Hola a todos, estoy intentando enviar un mail desde un formulario y me está dando este error y no sé donde está el error ¿?. Saludos y buen día. MMail.xlsm

Buenas tardes Tengo tres hojas: P01, P02 y P03 y 150 hojas numeradas de F001 á F150. Necesito copiar el Rango B21:J55 de P01 y pegarlo, por ejemplo, en la F001 y para ello uso la macro siguiente: Sub Inserta_1_F001 () Sheets("P01").Range("B21:J55").Copy Destination:=Sheets("F001").Range("B21") Sheets("F001").Select Range("L10").Select End Sub Esto lo hago con las macros correspondientes para la 150 hojas . Lo mismo con P02 y con P03 por lo que tengo 450 macros y que funcionan correctamente. Mi pregunta es: habría alguna forma de crear una macro que haga lo mismo pero desde …

Hola a todos, estoy nuevamente trabada en algo que pareciera facil pero me ha estado complicando la vida absoluta... tengo el siguiente codigo, que lo que DEBERIA HACER, es por cada celda que este vacia "celda.Offset(0, 36)= empty" me ejecute = hD.Cells(ufo, 36) = celda.Offset(0, 4) + celda.Offset(0, 5). Lo unico que LOGRE es que me haga esa funcion en la ultima fila... no se como hacerlo para cada celda vacia ?. Porque la idea es que la hoja se va a ir cargando con nuevos valores, y las celdas que estan vacias significa que aun no hice el proceso fechaJuliana...Perdonen mi igorancia total pero probe varias formulas. y la unica que me ha funcionado parcial…

Hola a todos Estoy intentando automatizar un proceso y que los registros que hay en excel exportarlo a SQL espero que los espertos del gripo me puedan ayudar. El archicho que adjunto me funciona cuando es solo un registro en la fila 7, sin embargo requiero: 1 Que me consulte si los datos de la fila B (que peuden ser una o muchas filas con información ), en caso de ya estar el registro en la base de datos que mande la leyenda. 2 Que si los datos de la fila B no existen en la base de datos que exprote todos los datos con el macro ingesarDatos. El archivo adjunto lo he estado trabajando, sin embargo se me han complicado los p…

Hola a todos; Adjunto una macro donde hay un procedimiento para generar códigos QR. -He cogido el código Vba Access (by Antonio) y lo he adaptado a Excel. Creo que funciona correctamente, lo que no sé es si es posible imprimir desde el formulario el código generado o bien pasarlo al libro Excel. ¿Sería posible una u otra opción? Saludos y buen día. MQr.xlsm

Hola a todos; ¿Es posible cargar en un comboBox el rango de las columnas de una tabla? Por ejemplo: Si tengo un rango de columnas que va desde la columna "B" hasta la "G" en el comboBox me muestre los siguientes items: B C D E F G Adjunto una macro. Saludos. MRCol.xlsm

Buenas tardes, Creo que el título de mi tema es un poco confuso, pero la consulta es la siguiente, tengo un userform en Excel que me envía la información a una tabla en Access, hasta ahí funciona todo de maravilla, pero que pasaría si por ejemplo en la columna [Cantidad] de Access, en la fila 15, quiero sumarle la cantidad que ya está ahí mas la cantidad que digité en el userform? por ejemplo, en Access tengo una columna [Cantidad] con los siguientes valores ID Cantidad 1 5 2 12 3 15 entonces desde un textbox en un userform en excel, si yo digito 7 y quiero que esa data se sume a la celda con ID 2, el resultado final obtenido…

Private Sub ListadeBusqueda_DblClick(ByVal Cancel As MSForms.ReturnBoolean) If Me.ListadeBusqueda.ListIndex <> -1 Then CIdAutomatico = ListadeBusqueda.Column(0) 'A CProvincia = ListadeBusqueda.Column(1) 'D CEspecie = ListadeBusqueda.Column(2) 'N CTipodeRegistro = ListadeBusqueda.Column(3) 'K CMotivo = ListadeBusqueda.Column(4) 'L CSitio = ListadeBusqueda.Column(5) 'E valor_buscado = Me.CIdAutomatico.Value ufila = Sheets("BDCapturasMuertos").Range("A" & Rows.Count).End(xlUp).row With Sheets("BDCapturasMuertos").Range("A2:A" & ufila) Set filaseleccionada = Range("A2:A" & ufila).Find(valor_buscado, LookAt:=…

Hola a todos; He estado viendo si hay alguna macro que pueda convertir un archivo a pdf a Excel. He encontrado algo pero necesita tener instalada una librería de adobe acrobat para que funcione. No se si conocéis alguna otra forma. Saludos. Adjunto la macro MPdf-Excel.xlsm

Buen dia a todos, Vieron cuando uno se traba en un paso **maravilloso**, que por lo general siempre sale... bueno ahora estoy trabada en un paso desde hace 12 hs que probe varias formas y no me esta saliendo... tengo que recorrer de la hoja "atosHuellasEpicollect" , fila por fila todos los registros e ir poniendo en la Hoja BDHuellasMuestas, cada fila acomodando cada datos de la hoja de origen en la colunma que corresponda en la hoja destino. Ahora esta acomodado el resultado, me pone el dato en la hoja de destino, en cada colunma correspondiente.... el problema es que solo me trae el primer dato de la hoja de origen y no me trae el dato de cada fila…

Buenos dias. He hecho un formulario y me da error. Me podeis ayudar Gracias

Hola buenas noches, espero su ayuda por favor. Estoy intentando copiar datos de un libro: prueba_guardarotrolibro(TEMP) para pasarlo a otro: baseprueba(TEMP), desde la columna A hasta la columna AO, que cumplan la condicion en la columna Estado = Cerrado al pasar al otro libro debe copiarse debajo del ultimo registro. ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS, ES MUY IMPORTANTE. baseprueba.xlsx prueba_guardarotrolibro.xlsm

Hola buenas tardes, espero su ayuda por favor. Lo que estoy haciendo es mostrar en el listbox los datos de la hoja: prueba_guardarotrolibro(TEMP), segun la condicion de la fecha y del combo Lo que deseo es que en el listbox se muestre solo los datos que he seleccionado (N°, Cotizacion, Producto, Costo, Cantidad, Ingreso) Pero para luego pasarlo a la hoja: baseprueba(TEMP), deberia pasar todas las columnas de la hoja en el orden que se encuentra la hoja destino (baseprueba(TEMP)) y que al momento de pasar los datos, en la columna "Estado" cambie de Abierto a Cerrado ESPERO CONTAR CON USTEDES, DE ANTEMANO MUCHAS GRACIAS baseprueba.xlsx …

Hola, buenas noches. El objetivo de esta macro seria: Que pida un número por pantalla, y que ese número se itere sumando 150 veces hasta completar la planilla que se muestra, especificaciones: *numero |celdablanco| numero + 1 |celdablanco| (numero +1) + 1 | celdablanco .... hasta que cada fila tenga 6 números con cinco celdas en blanco * que tras esta fila se salte una fila es decir en la zona sombreada gris no se escriba la serie. *que conserve lo que se pide por pantalla num inicial y num final en la hoja HISTóRICOa con la fecha. *adjunto imagen y archivo. No sé cómo plantear este código... me echáis una mano por favor. …

Buenas tardes, espero puede conseguir una ayuda urgente a un caso que me acaba de suceder. estuve haciendo un proyecto en la PC de mi casa que es excel 365 y para poder transformar valores de numeros utilice el "Format" por ejemplo: Format(.Cells(fila, 2), "00000") - "en lugar de mostrarme 1 , con este Format me mostraba 00001" Format(Val(Sheets("TEMP").Cells(fila, 18)), "#,##0.00") - "en lugar de mostrarme 10000", con este Format me mostraba 100.00 Pero ahora estoy ejecutando en una PC que usa Excel 2013 , me sale error en todos estos Format que habia considerado. Espero alguien me pueda ayudar, si puedo cambiar el Format con otro co…

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 …

Buenas noches, espeor me puedan ayudar en esta ocasion estoy trabajando con una tabal especifica en la hoja DATOS, la idea es que cuando INGRESE, ELIMINE registros no altere los registros de las demas celdas que no pertenecen a la tabla he logrado agregar pero para eliminar me sale error, me da error al momento de ubicar la fila en especifico a eliminar. muchas gracias por su apoyo Copia de Guardar datos en Tabla.xlsm

Hola de nuevo; Estoy tratando de fijar conceptos sobre los rangos. En la macro que adjunta he implementado un procedimiento que se me sugirió aquí en el cual la macro me da el primer rango del encabezado de una tabla. Estoy intentado hacer lo mismo con el último pero veo que al ir insertando columnas no devuelve correctamente el rango. A ver si me podéis indicar donde estoy fallando. Adjunto la macro. Saludos a todos. MCR.xlsm

Hola a todos, como estan? estoy con un problema que me viene trabando hace dias!!!! y no le encuentro solucion...estoy desesperada... Tengo un archivo con varios formularios, para una ong que estoy ayudando de cuidado ambiental... uno de los formularios en el archivo "FotosOVideosPorCarpeta, permite seleccionar atraves de un boton una carpeta, y obtener en la Hoja13 o " FotosEtiquetadas" todos los datos de los archivos que estan ahi contenidos, como ser tipo de archivo nombre, tamaño etc, pero tambien extrae la informacion de otros atributos que se suele llamar informacion exif de esas fotos, que se añaden como keywords o etiquetas... hasta ahi estamos super...…

Hola a todos, Una duda que no he sabido resolver y es como puedo a averiguar cuál es la primera columna con datos sin indicarle al procedimiento ni la fila ni la columna, lo tendría que detectar el procedimiento. Igual no se puede, sí es así hacérmelo saber. Sé la que el código para la última columna es: uC=Cells(1,1).End(xlToRight).Column Pero en el le estamos indicando las coordenadas (fila,columna). He puesto el ejemplo (1,1) pero puedo tenerla en cualquier parte de la hoja. Saludos.

Buenos días colegas. Espero su salud sea excelente. Colegas, me apena, pero " ... más de lo mismo..." El Proyecto que he venido trabajando de Disponibilidad Bancaria ahora me está dando un error a la hora de cargar el formulario FrmPrincipal y no sé que hacer, he revisado y nada y no he hecho cambios, ni en el Proyecto, ni en el Ordenador de mi trabajo. Por favor, podrían ayudarme. Usuario: Admin Password: 456 Gracias y que tengan un excelente día. Pino Disponibilidad v4.0.2.xlsm

Buenas noches colegas. Espero todos se encuentren con excelente salud. Tengo un pequeño propblema. En dias pasados acudí a este Foro para buscar ayuda con un reporte que me permitiera buscar entre dos rangos de fechas y un criterio y el profesor JSD me dió una solución muy positiva, de la cual estoy muy satisfecho, pero en ocasiones (no pocas) cuando intento hacer una búsqueda el sistema me emite un MsgBox preguntando si quiero eliminar la toda la fila de la hoja: Esto ocurre cuando oprimo el Botón Buscar. Por favor, si no es mucha molestia, podría ayudarme. Usuario: Admin Password: 456 Saludos Pino Disponibilidad v3.9.2.x…

Buenos dias, expertos tengo una archivo que lo trabajo de forma manual; en la hoja "TARIFARIO" primero filtro en la columna K, luego filtro en la columna C, y los registros filtrados comparo con los datos de la hoja "REDUNDANTE", entonces copio lo que lo corresponde y lo pego debajo de los datos filtrado, eso es la rutina hasta terminar todo. Ahora la pregunta es que si habra una macro que me ayude a realizar esos procesos para optimizar mi trabajo, la idea seria filtra lo que corresponde y ejecutar la macro. Por favor me puden ayudar si habria dicho codigo estare egradecido desde ya. Adjunto el archivo. REALIZAR MACROS.xlsm

Buenos días, tengo un archivo con muchos registros que necesito una macro para sumar algunas celdas y además una vez se haya sumado dividir dos celdas. https://ibb.co/GtPhHTg

Buenas noches colegas. Espero se encuentren bien de salud junto a sus familiares. Primero que todo ofrecer mis disculpas porque sé que esto no es una plataforma para este tipo acción, pero creo oportuno hacerlo con el permiso de sus administradores. Hace un par de días Haplox acudió a dar respuesta a uno de mis temas publicados en este Foro y a algo que él escribió (…) yo le contesté y un par de compañeros de mi trabajo me dijeron que quizás había sido un poco fuerte con él. Yo no creo que fuera así, porque de hecho yo tomé sus palabras como una broma. Recordar que soy CUBANO y que tenemos un Gran Sentido del Humor y si me conocieran personalmente sabrían q…