Jump to content

Pasar datos de una fila a otra hoja


Recommended Posts

Hola buenas noches a tod@s

Estoy realizando un excel con macros para la entrada de paquetes de mi empresa.

El funcionamiento es el siguiente:

En la hoja "Entradas_Palau" , fila 7, introduzco los datos de entrada del paquete nuevo, en la celda "J7" una vez he introducido todos los datos, se ejecuta la macro y me copia los datos  en la fila 10 automáticamente.

Lo que quiero conseguir es que si por ejemplo escribo (Hangar) en la celda "H7", al finalizar al entrada del producto, aparte de copiarme la entrada en la fila 10, me la copie en la hoja "Arrastre_Hangar" y me inserte una fila nueva para que no se solapen nuevas entradas con la palabra "Hangar".

Espero haberme explicado bien.

Avisar de que me estoy iniciando en este mundo de las macros y no tengo muchos conocimientos.

 

Saludos y gracias de antemano,

Javier,

MacroVBA.xlsm

Link to post
Share on other sites

hola...

prueba con:

if range("h7") = "hangar" then

    rows(7).copy destination:=sheets("Arrastre_Hangar").range("a" & rows.count),end(xlup).offset(1, 0)

end if

 

si la celda h7 es hangar.. que copie toda la fila 7 y la lleve a la hoja.. "arrantre" y la ponga en la siguiente a la ultima escrita de la columna a

Link to post
Share on other sites
  • 2 weeks later...

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