Saltar al contenido

Macros y programación VBA

Temas sobre la automatización de Excel utilizando macros y VBA. Errores de VBA. ¿No consigues que tus macros hagan lo que necesitas?

  1. Lo que intento, como veran en el archivo adjunto, es buscar los nombres mas parecidos o similares, tengo la lista 1 con 5800 nombres y la lista 2 con 800 nombres (no subo todos los nombres porque supera la cantidad de datos que puedo subir), pero como veran ninguna lista es igual porque los nombres tienen alguna diferencia, ya sea en letras, en nombres incompletos o abreviados, probe varios macros y funciones pero ninguna me funciono, ojala puedan ayudarme como ven es bastante trabajo y me es muy repetitivo, y ya no quiero buscar registro por registro. Saludos es mi primer post.:victorious: Dejo ejemplo: [TABLE=width: 659] [TR] [TD=class: xl1664, width: 444, bgcolor: …

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 14.4k visitas
  2. Estimados señores buenas, felicidades por el foro. Les escribo para solicitar un favor inmenso en lo siguiente: Soy nuevo en el uso de macros y estoy creando un informe para análisis de aceite en laboratorio, lo que quiero es automatizarlo, se tienen diversos parámetros, uno de ellos es el parámetro "oxidación" al cual se le hicieron 4 pruebas en distintos tiempos, y se tiene un indicador "alarma" (adjunto archivo) La norma indica que para "oxidación" el resultado debería ser menor a 3 "normal"; si el resultado es igual mayor a 3 pero menor a 5 significa "alerta" ; y si el resultado es mayor igual a 5 significa "peligro" (cambio de aceite) Lo que quiero es que al hac…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 708 visitas
  3. Hola amigos.. soy bastante nuevo en el tema de la programacion pero me gustaria seguir aprendiendo. Tengo un formulario con un listbox en donde voy agregando elementos (Productos) con varias columnas. Necesito que al presionar un boton me compare los nombres de cada elemento en el listbox con el nombre del producto en la tabla y descuente del stock. Adjunto imagenes y dejo parte del codigo... Private Sub btn_AgregarProducto_Click() Dim i As Integer Dim uFilaConDatos As Integer Dim CantidadColumnas As Integer Dim CantidadVendida As Integer Dim Columna1 As Variant Dim Columna2 As Variant Dim Columna3 As Variant Dim…

    • 0

      Reacciones de usuarios

    • 17 respuestas
    • 3k visitas
  4. Started by DiegoLG,

    Hola buenas tardes a todos. Por ahí encontré un código que realiza búsqueda y regresa múltiples resultados, sin embargo, no logro identificar como sería para que me repita los datos de acuerdo a un rango de fechas, adjunto archivo en donde muestro de como actualmente me devuelve el resultado y como debe de quedar, Ojala alguien me puede orientar, de antemano gracias... Saludos, Diego Busqueda con multiples resultados.xlsm

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 925 visitas
    • 1 seguidor
  5. Saludos! Tengo una base de datos donde se almacenan mantenimientos a instrumentos, cada instrumento lleva cierto número de mantenimientos con sus respectivas fechas. Lo que deseo es hacer una nueva tabla donde me indique el último mantenimiento de cada instrumento (última fecha), pero el problema es que es un rango variable, pueden añadirse o eliminarse nuevos datos. No se que método utilizar, si la misma celda ejecute algún código o realizar alguna macro. Agradecería mucho su colaboración, adjunto el archivo. Libro1.xls

    • 0

      Reacciones de usuarios

    • 5 respuestas
    • 732 visitas
  6. Started by jcastord,

    Que tal!! Tengo un pequeño problema para filtrar unas fechas de una columna, tengo dos fechas que obtengo de una caja de textos... Asi las obtengo: FechaOrigen = Format(Caja1.Text, "mm/dd/yyyy hh:mm") FechaDestino = Format(Caja2.Text, "mm/dd/yyyy hh:mm") Fecha1 = CDate(FechaOrigen) Fecha2 = CDate(FechaDestino) Teniendo las primeras dos variables de arriba como DATE y las otras dos variables como DOUBLE Posteriormente tengo este codigo que es donde selcciono la hoja origen y toda la columna de fechas: Sheets(HojaDescargada).Select 'HojaDescargada es una variable tipo String Range("C2").Select Range(Selection, Selection.End(xlDown)).Select Sele…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 5.6k visitas
  7. Started by SOFIA 89,

    Hola. Primeramente saludos a todos.. Yo soy capturista, a diario tecleo informacion repetida que esta en un archivo en diferentes hojas del mismo. Ejemplo: Tipovivienda Ciudad Habitaciones Calle Coto Casa3 Mexico 3 Paraiso Lomas La informacion de Mexico, habitaciones, calle y Coto esta dentro del mismo libro pero en diferentes hojas y siempre iria lo mismo si tecleo casa3. O bien si tecleo Casanvo1 voy a buscar los datos en las hojas. ¿Alguna formula que compare y jale informacion a los campos? Saludos Gracias (Mi primer post)

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 825 visitas
  8. Started by jeladio,

    Hola Amigos: Recurro a uds. solicitandoles su ayuda estoy buscando la manera de solucionar lo siguiente, tengo un libro con una cantidad variable de hojas cada una tiene tambien una cantidad variable de datos en la columna A lo que necesito hacer es poder comparar todas las hojas entre sí para poder encontrar los duplicados y poderlos marcar y luego borrar, preferiblemente si hubiera alguna manera de seleccionar cual o cuales hojas necesito comparar, de no ser así pues aunque sea una comparacion de todas entre sí a la vez. Adjunto un pequeño archivo de como tengo los datos. Gracias de antemano y espero haberme podido dar a entender. JG2 comp.rar

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 814 visitas
  9. Muy buenas. Espero que puedan ayudarme con lo siguiente. Mi macro crea carpetas segun el rango que seleccione, las carpetas tienen el nombre de cada celda. Dentro de cada carpeta se crean 5 carpetas mas con nombres que yo defini (1,2,3,4,5). (Esto ya lo termine) --------------------------------------------------------------------------------------------------------------------------------- Requiero lo siguiente 1.- Mediante eventos de click movere el cursor a una posición, dará doble click y se seleccionara un texto. (Esto ya lo he hecho) Private Sub DoubleClick() 'Double click as a quick series of two clicks SetCursorPos 200, 100 'x and y position mouse_e…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 1.1k visitas
  10. Buenos dias compañeros seria posible que me ayuden con el siguiente tema, quiero hacer una macro que me compare los dos últimos datos de una columna dinámica de tal manera que si el ultimo es mayor tome el promedio de los dos dos datos y si es menor tome ese valor. Además después se compare con el ultimo dato de una columna de otro libro de tal manera que se tome el menor de estos dos. Agradezco en lo que me puedan orientar, estaré atento a sus comentarios.

    • 1

      Reacciones de usuarios

    • 15 respuestas
    • 1.5k visitas
    • 3 seguidores
  11. Invitado Juan Pelfort
    Started by Invitado Juan Pelfort ,

    Hola, como se pueden comparar dos macros y actuar según si son iguales o no ?

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 742 visitas
  12. Started by bartarg,

    Hola, esta es mi primer consulta y trataré de ser claro y conciso: Tengo 6000 archivos excel. Cada archivo contiene un libro y una hoja con datos. Cada hoja contiene dos columnas, en las que hay números enteros o con dos o más decimales Los datos están en A2 y B2 en adelante, ya que en la fila 1 están los encabezados de ambas columnas Esos 6000 archivos se están cargando nuevamente porque mi cliente pidió que hagamos graboverificación. La tarea es comparar todos los archivos y saber en qué celdas hay diferencias. No importa cuál es la diferencia, sino sólo saber en qué celdas los datos no son exactos. De ese modo, resolveremos manualmente las incidencias. Los 6000 a…

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 6.8k visitas
  13. Started by nachorch,

    Hola a todos! tengo esta macro: Sub loco() Dim CompareRange As Variant, x As Variant, y As Variant, contador As Double Dim RANGES As Range Set CompareRange = Sheets("PRECIOS").Range("B1:B1000") Set RANGES = Sheets("COMPRAS").Range("B1:B1000") Application.ScreenUpdating = False Sheets("PRECIOS").Select Range("A1").FormulaLocal = "=CONTARA(B1:B1000)" For Each x In RANGES For Each y In CompareRange If x = y Then contador = 1 Next y If contador = 1 Then contador = 0 Else Cells(Cells(1, 1…

    • 0

      Reacciones de usuarios

    • 6 respuestas
    • 1.6k visitas
  14. Started by merlow,

    Amigos y Maestros: Buenas Tardes. En esta oportunidad les solicito ayuda para resolver este tema (a mi criterio bastante dificil de hacer), por lo que debo pedir asistencia a Uds, los maestros del excel, para resolver mi problema. Estoy tratando de hacer alguna especie de planilla validadora de stock para la venta, para esto les presento el archivo que adjunto: Columna A: Una Categoría Global para el producto Columna B: El codigo que identifica al producto (no existen 2 repetidos) Columna C: El stock actual de ese producto. Columna D: La rentabilidad que me genera la venta de ese producto. Columna E: La cantidad de unidades que siempre debo tener en la gondola Co…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 654 visitas
  15. Started by rapo12,

    Buenas: Resulta que no he dado con la solucion he probado con el Select Case para ir comparando tres columnas y si una fila tiene valor los copie . Ej en la columna 10 no hay valor pasa a la columna 14 tampoco hay valor en la columna 15 si hay valor ahi tiene que copiar esos valores y copiarlos en la hoja1 en la columna C de C8 a C13.. Y asi para cualquier caso de esas tres columnas que tengan datos los copie en el rango de la hoja1 Gracias de antemano prueba.zip

    • 0

      Reacciones de usuarios

    • 7 respuestas
    • 1.2k visitas
  16. Buenas A ver si me podéis echar un cable porque no hay manera >< tengo un combobox en una hoja el cual le meto una lista que esta el hoja7 "Tablas" y lo que quiero es que cuando seleccione un nombre me compare si existe ese nombre en la hoja7 "Tablas" en dos columnas columnas diferentes tengo dividida la lista del combobox es decir que si el nombre que le meto se encuentra en la columna O2 : O53 me active que se vea Imagen1 y si se encuentra en la columna P2 : P75 me active Imagen2 para asi diferenciarlas y si se da el caso de que el nombre no aparezca en ninguna de las columnas o el combobox no tenga ningun dato me desactive la aparición de las imagenes miran…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 829 visitas
  17. Hola a todos los participantes en este foro. Para empezar dar las gracias a todos aquellos que me puedan ayudar en el desarrollo de este proyecto. Mi consula es acerca de lo siguiente: tengo un libro con dos hojas, en la hoja dos esta la BD, en la hoja uno tengo una consulta de busqueda a dicha BD, la cual se realiza a través de filtros avanzados y automatizados por un macro asignada a un botón. Lo que deseo es que cuando un usuario digite alguno de los parámetros de busqueda (documento o nombre), al presionar el botón de consulta se me realice una busqueda en la BD, por ejemplo que si digita el documento 6894785, verifique que en la columna cedula de la BD se en…

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 1.3k visitas
  18. Hola, Soy nuevo en el foro y necesitaría de vuestra ayuda para realizar una pequeña macro. He estado buscando en el foro antes de crear el tema pero no he encontrado lo que necesito. Resulta que tengo 2 libros: libro A y libro B. Ambos libros tienen las mismas columnas. Hay una columna que se llama ID que identifica la fila. El libro A se actualiza cada día, de manera que aparecen nuevas filas que no se encuentran en el libro B. Además puede ser que alguno de los campos del libro A se modifique por lo que aun existiendo en el libro B hay que encontrar esta actualización. Lo que quiero conseguir es lo siguiente: 1. Comparar cada campo ID del libro A con todos los campo…

    • 0

      Reacciones de usuarios

    • 8 respuestas
    • 3.8k visitas
  19. Started by bdurango,

    Buenas tardes a todos. Tengo una pequeña inquietud que le he dado infinidad de vueltas y no doy. Es algo como esto: With r(1, 7).Resize(r.Rows.Count, 1) .FormulaR1C1 = "=IF(RC[-2]> sm * 4, RC[-2] * 0.01,0)" .Value = .Value End With Trato de comparar la celda escogida con la variable sm, pero no sé cómo llevar esta variable a la fórmula. He intentado con comillas, dobles comillas pero no doy. Alguna idea?? Muchas gracias por su tiempo Boris

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 1.1k visitas
    • 1 seguidor
  20. Started by rikardoroa,

    Sub Macro2() ' Dim valor As String valor = "pedro" Set mirango = Workbooks("Libro1").Sheets("Hoja2").Range("B7:B12") For Each mirango In Selection.Cells Sheets("Hoja2").Select Range("B7:B12").Select Selection.Copy Sheets("Hoja3").Select Range("B13:B18").Select ActiveSheet.Paste Next End End Sub TENGO EN LA HOJA 2 LO SIGUIENTE EN EL RANGO B7:B12 TENGO UNA COLUMNA DE NOMBRES ASI SIN TITULO DE ENCABEZADO hoja2 hoja 3 PEDRO PEDRO MARIA JOSE PEDRO PEDRO …

    • 0

      Reacciones de usuarios

    • 1 respuesta
    • 655 visitas
  21. Estimados quiesira una ayuda para solucionar este entuerto.. llevo dias tratando.. Tengo dos hojas.. en un libro.. necesito comprar una matriz de 5000 registros contra otra que es mucho mas pequeña.. pero tiene los datos de horas de jornada que debo comprar con la hora de jornada de la matriz de 5000 registros.. En el archivo que he subido como ejemplo-- se encuentran marcados las columnas a comprar.. si el rut existe.. revisar el "estab" establecimiento que también puede cambiar entre las hojas. y comprar las Hrs_inte_JOR, y que aparezca en la matriz de 5000 registros otra columna con el dato cambiado si corresponde.. Pinte en amarillo las columnas.. y en magen…

    • 0

      Reacciones de usuarios

    • 2 respuestas
    • 926 visitas
  22. Started by pepe1970,

    tengo un archivo con dos hojas, pedidos y distribución. al momento de completar la hoja distribución con un formulario vba (userform2) intento que busque y compare dos columnas la columna B de pedidos y la columna c de distribución, y en una tercera columna L de la hoja pedidos cambie el estado de pendiente a preparado. pero me arroja el error 91 ADM RTOS ENERO-FEBRERO2020.xlsm

    • 0

      Reacciones de usuarios

    • 19 respuestas
    • 2.3k visitas
  23. Started by sprit36,

    Buenos días, necesito con una macro poder comparar dos hojas, extraer un dato y a la vez poder convertir en porcentaje una columna. Adjunto ejemplo. Gracias. Ejemplo.xlsx

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 820 visitas
  24. Started by jcjones,

    Buenos dias Tengo una hoja donde se realiza los calculos de la nomina para su pago, deseo que cuando se habra la hoja compare la fecha del salario minimo y si es diferente ( anterior) me salga el mensaje "por favor actualizar el salario minimo). Mejor dicho cada que cambie el salario minimo dme de ese mensaje. La fecha esta en B3. Anexo ejemplo Muchas gracias por su ayuda Nomina.xlsx

    • 0

      Reacciones de usuarios

    • 3 respuestas
    • 1.1k visitas
  25. Buen día, Espero alguien me pueda apoyar, tengo un libro de Excel con dos hojas, en la hoja llamada "Datos" viene capturada la información (marca, modelo, # de serie) de diversos equipos electrónicos proporcionados por el vendedor. En la Hoja 1 de igual manera viene capturada la información de los mismos equipos electrónicos capturada por gente en oficina. Se supone que todos los números de serie presentes en la "Hoja 1" deben coincidir con los números de serie de la hoja "Datos", ya realice la comparativa aplicando la función BuscarV en la columna G de la "Hoja 1", pero cerca de la mitad no encuentran coincidencia exacta. Pienso que puede existir errores d…

    • 0

      Reacciones de usuarios

    • 0 respuestas
    • 644 visitas

Información básica de protección de datos

  • Responsable: Sergio Andrés Celemín
  • Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.
  • Legitimación: Consentimiento del interesado.
  • Destinatarios : Hetzner Online GmbH.
  • Duración: Mientras se conserve este post o hilo en la comunidad, o decidas eliminar el comentario.
  • Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso, rectificación, supresión, oposición y demás derechos legalmente establecidos a través del email [email protected]

Información adicional: Encontrarás más información en la política de privacidad.