Buenas días a todos, Les copio parte de un algoritmo en donde copio y pego unas tablas en otro libro. Copia y pega todas las tablas correctamente, ahora si les aplico un filtro y copio solo las filas visibles aplicando SpecialCells(xlCellTypeVisible).Copy ,, no copia la tabla con su nombre de rango, solo copia los valores. Aparentemente cuando copias y pegas una tabla filtrada en Excel, es posible que el nombre de rango no se copie automáticamente junto con los datos. Esto puede ser que se deba a que el nombre de rango está asociado directamente con la tabla y no con las celdas individuales. Hay alguna manera de hacer esto en esta instancia al hac…

Hola a todos, me gustaría saber como se puede enviar un mail con una macro desde un archivo excel sin enviar el propio archivo excel (si es posible). Me explico, ahora a través de una macro envío por mail el archivo excel con el que estoy trabajando con un texto en el asunto del mail, pero realmente solo necesito enviar el texto del asunto. El archivo excel ocupa mucho y me llena el correo electronico. Resumiendo necesito enviar un mail sin el excel a traves de una macro. Gracias

Hola, Lo que necesito hacer quizás sea complicado, pero no encuentro nada de como poder hacerlo. Tengo varios documentos de texto con cierta información. Siempre el mismo formato, en cada línea este texto solo cambian los 3 valores que es están entre comillas al final. Estos 3 valores son los que se deben cargar, cada uno de ellos en una celda diferente. Lo que tengo es una macro que genera estos archivos con estos textos, pero con esto necesitaría hacer el efecto contrario, pasar de los archivos a las celdas. Por ejemplo, tengo estas dos líneas en el TXT. INSERT INTO tabla-01 VALUES (Unidad, Tipo, Descripcion) VALUES (tabla-01) SELECT Unidad FROM tabla-02 WHERE Un…

Hola a todos En el archivo adjunto me permito explicar la necesidad que se me presenta. Se trata de cargar datos de un documento ( facturas ). He probado grabando algunas macros, pero tengo muchas dificultades. Esto es debido al poco conocimiento que tengo sobre la creación de procesos de rutina automatizados. En el foro seguro existen infinidad de soluciones a mi necesidad, pero si podeís adaptarlo mínimamente a lo que necesito, estaría muy congratulado. Muchas gracias. Rubén CargaFacturas.zip

Hola Extraordinarios miembros del Foro, un palcer saludarle este Año Nuevo Espero que este año este colmado de muchas bendiciones y logros en su vida para cada uno de ustedes escribo por que tengo un problema y la verdad no sé ni por dondé empezar a resolverlo,por ello pido su ayuda por que ustedes son extraordinarios en estos temas. es que tengo una base de datos de produccion(Hoja Pro) y de la cantidad de materia prima que se utilizó para producir(Hoja MaP ), esto considerando cada una de las plantas de transformación. de estas dos hojas consolido los datos en otras hojas(dependiendo en que planta se ha procesado) si es que se ha procesado en la planta 1 en la…

Buenas tardes Foristas, quiero darles las gracias por la ayuda que he recibido en otras ocasiones. Entrando en materia necesito que por favor me ayuden a copiar y luego insertar o adicionar un formato prediseñado en excel para toma de datos de costos y luego organizarlos en un tabla para su posterior analisis. La idea es que si tengo un producto mas a crear o adicionar pueda insertar el formato y llenarlo y asi me vaya generando los datos en la tabla de analisis. Muchas gracias Anexo un ejemplo. Insertar formato.rar

Saludos amigos del foro, tengo un archivo que al abrirlo y luego mostrar el userform esta todo bien pero al cerrar con unload me se muestran junto al archivo otras dos hojas. Sospecho que debido a que le aplique un codigo para minimizar y maximizar el userform este esta haciendo algo como eso pero no estoy seguro, pongo el codigo de min-max: Option Explicit Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Declare Function FindWindow…

hola expertos como puedo modificar el principio de este codigo con la idea de transpasar no solamente los dato de la columa B sino tambien los datos de la columna A,B,C Sub zero() Dim ultimaCeldaDatos As String 'hallar la ultima celda con datos de la columna B de la hoja estadistica ultimaCeldaDatos = Sheets("analisis").Cells(Rows.Count, 2).End(xlUp).Row 'copiando datos de columna B Sheets("analisis").Range("b5:b" & ultimaCeldaDatos).Copy Sheets("archivo").Select 'posicionando en la celda donde pegare los datos en la hoja archivo Sheets("archivo").Cells(2, Columns.Count).End(xlToLeft).Offset(0, 2).Select Selection.PasteSpecial Application.CutCopyMode = False …

Tengo 100 archivos en una carpeta y solo quiero cambiar n cantidad de archivos de esa carpeta a otra. Ejmplo:Ejecuto macro y cambia 10, vuelvo a ejecutar y cambia otros 10 y así sucesivamente hasta vaciar la carpeta.

Estimados Buenas tardes. Sigo aqui con mi programacion la cual estroy por culminar he implementado varios de los codigos que he hido aprendiendo con el maestro bigpetroman entre otros maestros de los cuales revisando sus codigos he podido implementar mucho de lo que he necesitado. pero ahora me he quedado estancado en algo que parese simple pero no he podido solucionar. es por eso que solicito su ayuda o guia. lo que hace el excel es que cuando ingreso al formulario inicial con el boton TREN DE RODAMIENTO hago la seleccion de la famillia del equipo, una vez seleccionado me extrae una lista de codigos que se encuentra dentro de esa familia.(esto se hace con la intencion…

Buenos dias. Les presento mi consulta: Tengo 2 libros (libroA, libroB), en los dos existe la columna A llamada "ID" y contiene identificadores de cada fila (521, 123, 965, 354...etc). Entonces lo que quiero hacer es un macro que recorra cada fila de libroA, leyendo unicamente la columna A, compararla con la misma columna de libroB, y si coincide tengo que tomar el dato de libroB.columnaB y lo pegue en libroA.columnaB . Digamos algo asi.. For i= libroA.ColumnaA.PrimerCelda To libroA.columnaA.UltimaCelda if libroA.columnaA = libroB.columnaB then COPIAR libroB.columnaB en libroA.columnaB end if Next i Espero se entienda. Desde ya muchas gracias.

Buenos dias expertos, dias atras me ayudaron con un formulario que filtra muy bien, ahora necesito pedir una ayuda para que cuando al filtrar y realiza los calculos me haga una condición los que tienen iva muestre con esa y los no los tiene igual sin iva lo que pasa es que la operacion de los calculos saca los totales e iva, en la data hay registros que tiene iva y los que no lo tiene, quiero que al momento de filtrar me salga como esta los que tienen que muestre con iva y los que no lo tienen igual sin iva, pero este ejemplo me saca el iva para todos cosa eso no debe ser asi. por favor espero haber me explicado bien los adjunto el archvio. Cotizaciones.xlsm

Hola tengo el siguiente archivo en excel lo hice en 64 bits pero necesito correrlo en 32 bits como puedo hacerlo mil gracias

hola expertos buenas tardes mi idea es como puedo expandir el codigo que se ejecuta entre la columna "y:af" a las columnas "ah:by" y ademas se ejecute en la hoja 1 al mismo tiempo gracias de antemano

Hello everyone my name is Maurizio and my problem is this again: On an Excel sheet In Cell (B13) I send the data directly from the web page, which in turn I would like to be able to take only its first data as I specified in the project. And you should transfer them to the Cells (L2:L3). Is all this possible? Thanks for all the help you want to give me about it. Greetings from A: Maurizio Meteo_Con_Form.xlsm

Que tal, Hago este tema porque tengo una duda que me gustaría y me ayudarán a resolver. Me gustaría saber si desde un boton de un formulario en Visual Basic 6.0, es posible abrir una macro en VBA creada en Excel 2010. Si es posible, me gustaría saber cuál es el código que necesito. Muchas gracias por su atención.

Saludos Soy nuevo en este foro y vengo pidiendo una gran ayuda de su parte Necesito algún método para que al momento que yo ingrese una formular en una celda cualquiera por ejemplo en la celda A3 coloque una ejemplo SUMA(A1,A2) se copie automáticamente en B3 pero ahora haciendo la suma B1,B2 alguna manera de poder hacer esto ?, honestamente no se si esto sea posible con Macros o si exista alguna forma de poder hacerlo sin macros y programación, mis conocimientos de Excel son algo basicos y lo que no quiero es tener que usar el botón de auto llenado o copy-paste espero alguien me pueda ayudar con mi problema y muchas gracias

Expertos, disculpe tengo un archivo que cuando valido me debe copiar ese dato a otra hoja, e intentado grabando macros y solo me funciona para uno me debe hacer con todo. Tengo un video que e preparado para que me puedan entender mejor, por favor me ayuden como lo puedo hacer muchas gracias. https://drive.google.com/file/d/1VN18MGHOUM3nZwgJH6TxnMgi7kgt74cC/view?usp=sharing Adjunto el archivo. Rodillos.xlsm

Hola a todos. Trato de explicaros lo que necesito. En la hoja tengo una celda donde voy a introducir una cadena de texto. Lo que necesito es una macro que compruebe si el texto de esa celda está en el nombre del documento. Imaginaros: Tengo en la celda 123456. Si el documento se llama 'Documento 123456 Provisional.xlsx', me tendría que salir un mensaje de 'OK'. Si en el nombre no estuviera esa cadena '123456' me tendría que salir un mensaje de 'Renombre el fichero con la el nº de documento'. No sé si para hacer esto sería con el Cells.Find... no sé, ando un poco perdido. El fichero adjunto es un poco simple, pero no se me ocurría que poner para hacerlo algo más compl…

Buenos dias: Tengo una base de datos y en mi codigo uso el vlookup para traer informacion de esa base a un userform, lo que necesito es incluirle un mensaje de alerta cuando se digite el codigo equivocado y por tanto no se encuentra en la base de datos, alctualemnte si se digita mal lo que hace es sacarme al codigo. Gracias por su colaboracion... el codigo es el siguiente Private Sub CommandButton1_Click() If Reclamacion = "" Then Numero_de_Factura = "": Exit Sub total_facturado_mdqx = "": Exit Sub total_reclamado_mdqx = "": Exit Sub Primer_apellido_de_la_victima = "": Exit Sub Segundo_apellido_de_la_vicitima = "": Exit Sub Primer_nombre_de_la_victima = "…

Estimados, un saludo cordial. Tengo en un archivo específicamente una conciliación bancaria (Cruce de datos entre cuentas de mi empresa vs. un extracto bancario) lo he realizado con los conocimientos más básicos sobre programación en excel VBA, pero lo he logrado. Ahora dentro de éste archivo existe lo que en la web leí "código innecesario", pudiendo a este simplificarlo y hacerlo mucho mejor. En el archivo en el módulo A_Cruce_Diferencias tengo el siguiente código: If Range("J2").Value < 0 Then Range("A2:I2").Select Selection.Insert Shift:=xlDown Call Update ElseIf Range("J2").Value > 0 Then Range("K2:R2").Select Selection.Insert Shift:=xlDown Call Upd…

Hola a tod@s. Me está saliendo un mensaje que he tratado de buscar la solución por los foros y no doy con ello. Tengo un programa en una unidad de red. El fichero solo puede abrirse en modo lectura si ya está abierto en otro ordenador, pero esto es otro problema. El problema me surge cuando el primero que lo ha abierto cierra, y es que si trata de salir del programa el segundo operador, aparece el siguiente mensaje: Ya existe un archivo con nombre "xxx" en esta ubicación. ¿Desea reemplazar el archivo existente? Si No o Cancelar Tengo que decir que esto ocurre cuando pasa por la instrucción: ActiveWorkbook.Save Si pulso Si sale del programa salvando, pero si puls…

Buenas tardes amigos excelianos. Me ha surgido una duda, yo he utilizado este código para leer el disco duro de cada computadora. Me funcionaba bien, ya que le paso un hexa, para convertirlo y sacar de ahí las dos primeras y las dos ultimas. mediante el hexa, ese seria mi contraseña, resulta que ahora con esa contraseña no permite entrar, en otro Excel 2016, y Excel 2007 instalado en una maquina de 64 bits igual ya lo probe en otra maquina de 64 bits y va muy bien!! no se a que se deba esto!! este es el codigo Private Sub Workbook_Open() Author = "XXX" ' disco duro Set fs = CreateObject("Scripting.FileSystemObj…

Hola a todos, mi nombre es A.Maurizio y mi problema es este: no me digas que soy pesado porque siempre vuelvo más o menos en proponer las mismas preguntas; Pero créeme, lo hago exclusivamente porque quiero aprender más. posible. El hecho es este: Utilizando este sitio: https://www.worldweatheronline.com/torino-weather/kostroma/ru.aspx Me gustaría poder extraer las cantidades mínimas y máximas de los pronósticos meteorológicos. e inserte estos datos en las celdas (A1) y (A2) de la hoja de Excel. ¿Cómo puedes hacerlo todo? Gracias (Ps) Intenté usar el método (texto interior) combinado con una celda; ¿Pero no funciona? ##########################…

Buenas tardes, Soy nuevo en este foro ya que me ha parecido muy interesante y me ha resuelto varias dudas, aunque tengo una de la que no sé como solucionarla. Verán, les adjunto un ejemplo de mi problema. Les explico, En una hoja excel tengo varios datos de clientes, el caso es que , como verán en el fichero adjunto, hay dos columnas, una con el numero asignado al cliente, y otra con la letra. La letra se asigna dependiento del valor del numero, la letra A se asigna si el valor del numero es entre 300 y 400. Y la letra H para números por debajo de 300. El caso es que puede haber errores como los resaltados en amarillo, y quisiera saber como hacer una subrutina en …