Jump to content

Recommended Posts

Hace 15 minutos , Víctor Pérez dijo:

Buenas,

Estoy intentando realizar un macros que me lea los registros que cumplan una condición y me los pegue en otra hoja en la celda que le marco.

He probado con esta macro, pero no me lo hace correcto me da error

Sub Copiar_datos()

 

Hola

Seguro lo tuyo es un filtro avanzado... busca por aquí en el foro, sobre ese tema, hay variedad de soluciones que hemos aportado con el tiempo

 

Saludos 

Link to post
Share on other sites

Hola Antoni,

Te adjunto el libro, lo que pretendo es que lea la matriz de la Hoja selección mes y que copie los valores que son distintos a "Falso" en la columna B de la hoja de Consumos.los valores los quiere copiar fila a fila. Primero los valores de la primera fila y después los de la segunda y así sucesivamente.

Gracias.

libro1.xlsm

Link to post
Share on other sites
Hace 41 minutos , Víctor Pérez dijo:

Hola Gerson,

Lo hace bien, pero se come el último registro de la última columna que tiene datos. Solo sucede en esta última columna.

He revisado y no falta ningún registro, VBA me devuelve 744 en total, seguro tu conteo manual/visual esta incorrecto

Prueba con una tabla mas pequeña

 

Saludos 

Link to post
Share on other sites

Hola Gerson,

Lo que sucede es que yo te pase el excel con valores, ya que tiene muchas mas hojas con referencias y pesaba mucho para mandar el adjunto, pero realmente son formulas que devuelven un número si lo encuentra o falso si no lo encuentra.
Entonces si no paso a valores la hoja no coge ningún dato, ya que tu le dices que coja las que tengan número.

Como lo podría hacer con fórmulas?

Gracias.

 

Link to post
Share on other sites
Hace 11 horas, Víctor Pérez dijo:

Lo que sucede es que yo te pase el excel con valores, ya que tiene muchas mas hojas con referencias y pesaba mucho para mandar el adjunto, pero realmente son formulas que devuelven un número si lo encuentra o falso si no lo encuentra

No importa que esos números sean resultado de formulas, solo se hace un leve ajuste en VBA y listo

Hace 11 horas, Víctor Pérez dijo:

Como lo podría hacer con fórmulas?

Estas "loco" jaja se puede, pero evidentemente, no es recomendable, por tema de rendimiento

Si gustas pasa el archivo tal cual con formulas pero con pocas filas y unas 3 hojas, para realizar la prueba y adaptarlo

 

Saludos 

Link to post
Share on other sites

Hola Gerson,

Muchas gracias por tu ayuda. Yo lo que me refiero es que la hoja  tiene unas formulas y yo te lo pase en valores para que ocupará menos. Al utilizar el macro con formulas me daba error de ejecución.

Te adjunto un ejemplo muy básico con  formulas en lugar de valores

Obtener numeros diferentes columnas_GP (2).xlsm

Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Crear macros Excel

  • Posts

    • saludos  esta perfecto tu ejemplo. me sirve de mucho. ahora otra duda como se podría aplicar este mismo ejemplo pero con los datos de una tabla dinámica. ya que esa formula es con celdas fijas.  pero como lo aplico a una tabla  para sacar el porcentaje de lo que he avanzado  si cuando actualizo la tabla me da error.  gracias   
    • muchas  gracias  esta perfecto
    • @Gerson PinedaMuchas gracias.  Os lo agradezco a los dos, me va a ir bien cualquiera de las fórmulas. Y sino en este fichero en otro con la misma situación. Moisés.
    • cuando grabas una entra o salida se redondea el numero en la existencia ejemplo si vendes 1.5 en existencia descuenta 2  igual si es una compra
    • Private Sub CommandButton11_Click() Dim Descarga As Range Set Descarga = Sheets("Hoja2").Columns("C").Find(TextBox2, lookat:=xlWhole) If Not Descarga Is Nothing Then Descarga.EntireRow.Delete CommandButton6_Click End If End Sub '--------- Private Sub CommandButton6_Click() TextBox2.Text = "" TextBox12.Text = "" TextBox13.Text = "" TextBox14.Text = "" TextBox15.Text = "" TextBox16.Text = "" TextBox17.Text = "" TextBox18.Text = "" TextBox19.Text = "" TextBox20.Text = "" TextBox23.Text = "" '<-------------------- estaba mal TextBox2.SetFocus ' EL SetFocus devuelve el cursor al inicio End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy