Jump to content

Copiar ultima fila completa de una Hoja de Origen a otro Libro


Recommended Posts

Sub CopiarCeldas()
 
'Defini objetos
Dim wbDestino As Workbook, _
    wsOrigen As Excel.Worksheet, _
    wsDestino As Excel.Worksheet, _
    rngOrigen As Excel.Range, _
    rngDestino As Excel.Range
     
'indicio el libro de Excel destino
Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/Datos - Abastecimientos.xlsm")
 
'Activar este libro
ThisWorkbook.Activate
 
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Other")
Set wsDestino = wbDestino.Worksheets("Datos")
 
'Indicar la celda de origen y destino
Const celdaOrigen = "A1"
Const celdaDestino = "A1"
 
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
 
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
 
rngDestino.PasteSpecial xlPaste
Application.CutCopyMode = False
 

wbDestino.Save
wbDestino.Close

 
End Sub

Hola amigos, como están? 

Les comparto el código que estoy tratando de adaptar para lograr que desde mi hoja6 ("Other") se copie automaticamente la fila entera del ultimo valor cargado, y se copie a mi hoja "Datos" que esta en otro libro denominado "Datos - Abastecimientos"

Al parecer hace la accion de abrir el libro y lo encuentra, lo que se que esta mal es la forma de seleccionar el rango porque actualmente me toma una celda, la selecciona y copia todo hacia abajo y hacia la derecha, pero para no volver a copiar los mismos datos, quisiera ver como hacer para que me copie solo la ultima fila encontrada desde la columna A hasta la I en la hoja datos...

Me podrian ayudar por favor?

 

 

Link to comment
Share on other sites

Hace 8 horas, roa30 dijo:
Sub CopiarCeldas()
 
'Defini objetos
Dim wbDestino As Workbook, _
    wsOrigen As Excel.Worksheet, _
    wsDestino As Excel.Worksheet, _
    rngOrigen As Excel.Range, _
    rngDestino As Excel.Range
     
'indicio el libro de Excel destino
Set wbDestino = Workbooks.Open(ActiveWorkbook.Path & "/Datos - Abastecimientos.xlsm")
 
'Activar este libro
ThisWorkbook.Activate
 
'Indicar las hojas de origen y destino
Set wsOrigen = Worksheets("Other")
Set wsDestino = wbDestino.Worksheets("Datos")
 
'Indicar la celda de origen y destino
Const celdaOrigen = "A1"
Const celdaDestino = "A1"
 
'Inicializar los rangos de origen y destino
Set rngOrigen = wsOrigen.Range(celdaOrigen)
Set rngDestino = wsDestino.Range(celdaDestino)
 
'Seleccionar rango de celdas origen
rngOrigen.Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
 
rngDestino.PasteSpecial xlPaste
Application.CutCopyMode = False
 

wbDestino.Save
wbDestino.Close

 
End Sub

Hola amigos, como están? 

Les comparto el código que estoy tratando de adaptar para lograr que desde mi hoja6 ("Other") se copie automaticamente la fila entera del ultimo valor cargado, y se copie a mi hoja "Datos" que esta en otro libro denominado "Datos - Abastecimientos"

Al parecer hace la accion de abrir el libro y lo encuentra, lo que se que esta mal es la forma de seleccionar el rango porque actualmente me toma una celda, la selecciona y copia todo hacia abajo y hacia la derecha, pero para no volver a copiar los mismos datos, quisiera ver como hacer para que me copie solo la ultima fila encontrada desde la columna A hasta la I en la hoja datos...

Me podrian ayudar por favor?

 

 

Hola amigos, como están? 

Les comparto el código que estoy tratando de adaptar para lograr que desde mi hoja6 ("Other") se copie automaticamente la fila entera del ultimo valor cargado, y se copie a mi hoja "Datos" que esta en otro libro denominado "Datos - Abastecimientos"

Al parecer hace la accion de abrir el libro y lo encuentra, lo que se que esta mal es la forma de seleccionar el rango porque actualmente me toma una celda, la selecciona y copia todo hacia abajo y hacia la derecha, pero para no volver a copiar los mismos datos, quisiera ver como hacer para que me copie solo la ultima fila encontrada desde la columna A hasta la I en la hoja datos...

Me podrian ayudar por favor?

Link to comment
Share on other sites

Hace 23 horas, roa30 dijo:

@Haploxbuenos dias, disculpa crei que lo habia adjuntado...

En el archivo "Suministros" hay 4 userforms, en (userform) MenuInicial, en teoria primero seleccionaria suministros que me habre el userform1, luego de registrar lo que quiero solicitar, graba en la Hoja6 y le hice hacer una copia en Hoja7. 

La idea es que cargar el pedido en el userform1, con el modulo 9, me haga una busqueda del ultimo pedido agregado (aqui estaba pensando que en realidad no es la ultima fila) sino son todas las filas que compartan el ultimo ID (que representan tanto en la Hoja 6 como en la 7, la columna A), esto pensando que quizas el ultimo pedido (ID 8 por ejemplo tenga no una sino 5 o 15 filas), luego me copie esos datos en el archivo "Abastecimientos.xslm" para poder continuar el proceso de presupuesto ahi.

El archivo de destino es un .xlsm porque la idea es que si soy encargado de abastecimiento ingreso por el menu inicial del mismo archivo, selecciono abastecimiento y me abre otro archivo excel que continue varios formularios para ponerle precio a cada pedido. 

el archivo de destino se llama abastecimientos lo subo tmb!

quizas parezca un poco enredado lo que hice, pero lo arme asi porque son varios usarios en red que usaran el archivo de suministros que contiene el menu inicial, y genera conflictos cuando otro usuario tambien desea abrirlo... realmente lo que hacen pedidos lo usan unos pocos minutos, sin embargo el que presupuesta, lo usa mas tiempo, por eso pense llevar esos datos a otro archivo para trabajarlo tranquilo y que no genere conflictos con los usuarios que solo piden suministros.

el menu inicial pide un usuario para ingresar... es Hola y pass 123... 

 

Gracias desde ya por la ayuda y el tiempo que tan generosamente comparten para ofrecer ayuda...gracias otra vez

Solicitud de Suministros 4.0.xlsm 1.9 MB · 0 descargas Datos - Abastecimientos.xlsm 37.95 kB · 0 descargas

Buenos días, amigos como están...aum no encuentro la forma de resolverlo...

Estaba pensando en la opción de 

Range("A").End(xlUp).Row

Pero con esa podría lograr solo encontrar la última fila.

 

Y no se como hacer para encontrar el último ID en la columna A recorrer todas las filas que cumplan con la condición de tener ese mismo ID...me copie esa selección y me la lleve a la hoja Datos del archivo Abastecimiento ...

Mi cabeza está quemada...llevo días investigando y no le encuentro la forma... por favor recurro a ustedes... que la verdad creo que es un foro de grandes maestros de cual estoy aprendo muchísimo!!! 

Me podrían ayudar por fa? O quizás saber si lo que trato de hacer es posible o no... porque quizás estoy intentando algo que no hay forma de lograrlo... 

 

Desde ya millones de gracias 

 

 

Link to comment
Share on other sites

Hola @roa30

Te dejo un pequeño código para identificar el rango a copiar. Agrega dentro de tu código "CopiarCeldas" un llamado como éste: "Call buscar_ultpedido"
Suerte!

Sub buscar_ultpedido()
Dim ufila6 As String, ufila7 As String
Dim rango As Range

'última fila de hoja Other
ufila6 = 0: ufila6 = Hoja6.Cells(Rows.Count, 1).End(xlUp).Row
If ufila6 < 2 Then ufila6 = 2
'última fila de hoja Abastecimiento
ufila7 = 0: ufila7 = Hoja7.Cells(Rows.Count, 1).End(xlUp).Row
If ufila7 < 2 Then ufila7 = 2

For i = ufila6 To 2 Step -1
    If Hoja6.Cells(i, 1).Value = Hoja6.Cells(i - 1, 1).Value Then
    Else
        j = Hoja6.Cells(i, 1).Row
        Set rango = Hoja6.Range("A" & j & ":J" & ufila6)
        rango.Copy
        Hoja7.Range("A" & ufila7).PasteSpecial xlPasteValues
        Exit Sub
    End If
Next
End Sub

 

Edited by tierra_pampa
Link to comment
Share on other sites

Hace 1 hora, tierra_pampa dijo:

Hola @roa30

Te dejo un pequeño código para identificar el rango a copiar. Agrega dentro de tu código "CopiarCeldas" un llamado como éste: "Call buscar_ultpedido"
Suerte!

Sub buscar_ultpedido()
Dim ufila6 As String, ufila7 As String
Dim rango As Range

'última fila de hoja Other
ufila6 = 0: ufila6 = Hoja6.Cells(Rows.Count, 1).End(xlUp).Row
If ufila6 < 2 Then ufila6 = 2
'última fila de hoja Abastecimiento
ufila7 = 0: ufila7 = Hoja7.Cells(Rows.Count, 1).End(xlUp).Row
If ufila7 < 2 Then ufila7 = 2

For i = ufila6 To 2 Step -1
    If Hoja6.Cells(i, 1).Value = Hoja6.Cells(i - 1, 1).Value Then
    Else
        j = Hoja6.Cells(i, 1).Row
        Set rango = Hoja6.Range("A" & j & ":J" & ufila6)
        rango.Copy
        Hoja7.Range("A" & ufila7).PasteSpecial xlPasteValues
        Exit Sub
    End If
Next
End Sub

 

@tierra_pampaMuchísimas gracias por el tiempo y el aporte ...lo pruebo y te comento... mil gracias 😊

Link to comment
Share on other sites

Hace 8 horas, tierra_pampa dijo:

Hola @roa30

Te dejo un pequeño código para identificar el rango a copiar. Agrega dentro de tu código "CopiarCeldas" un llamado como éste: "Call buscar_ultpedido"
Suerte!

Sub buscar_ultpedido()
Dim ufila6 As String, ufila7 As String
Dim rango As Range

'última fila de hoja Other
ufila6 = 0: ufila6 = Hoja6.Cells(Rows.Count, 1).End(xlUp).Row
If ufila6 < 2 Then ufila6 = 2
'última fila de hoja Abastecimiento
ufila7 = 0: ufila7 = Hoja7.Cells(Rows.Count, 1).End(xlUp).Row
If ufila7 < 2 Then ufila7 = 2

For i = ufila6 To 2 Step -1
    If Hoja6.Cells(i, 1).Value = Hoja6.Cells(i - 1, 1).Value Then
    Else
        j = Hoja6.Cells(i, 1).Row
        Set rango = Hoja6.Range("A" & j & ":J" & ufila6)
        rango.Copy
        Hoja7.Range("A" & ufila7).PasteSpecial xlPasteValues
        Exit Sub
    End If
Next
End Sub

 

Hola @tierra_pampa !!! he probado el codigo y funciona perfecto lo de buscar el rango segun ID, lo copia y lo pega en la Hoja 7,  eres un genio!!! pero me podrias como puedo hacer usando mi codigo copiarceldas para que pegado de los datos lo haga en el otro archivo "Abastecimientos" que es el otro fichero que lo comparti tambien. 

con mi codigo llego a encontrar el archivo "Abastecimiento" que esta en la misma carpeta que el Suministros, pero no logro que me pegue ahi los datos... creo que el cambio habria que hacerlo en "Hoja7.Range("A" & ufila7).PasteSpecial xlPasteAll" pero no se como hacer para que tome que el rango el a & ufila7 pero de otro workbook, en este caso "Abastecimientos"

podrias ayudarme por favor a ver, como hacer ese cambio? te re agradezco de ante mano, todo lo otro funciono excelente

Link to comment
Share on other sites

Hace 11 horas, roa30 dijo:

Hola @tierra_pampa !!! he probado el codigo y funciona perfecto lo de buscar el rango segun ID, lo copia y lo pega en la Hoja 7,  eres un genio!!! pero me podrias como puedo hacer usando mi codigo copiarceldas para que pegado de los datos lo haga en el otro archivo "Abastecimientos" que es el otro fichero que lo comparti tambien. 

con mi codigo llego a encontrar el archivo "Abastecimiento" que esta en la misma carpeta que el Suministros, pero no logro que me pegue ahi los datos... creo que el cambio habria que hacerlo en "Hoja7.Range("A" & ufila7).PasteSpecial xlPasteAll" pero no se como hacer para que tome que el rango el a & ufila7 pero de otro workbook, en este caso "Abastecimientos"

podrias ayudarme por favor a ver, como hacer ese cambio? te re agradezco de ante mano, todo lo otro funciono excelente

Definitivamente he probado varias formas y parece mision imposible... ya no se que mas probar... 

Link to comment
Share on other sites

En 18/7/2021 at 11:55 , tierra_pampa dijo:

Hola @roa30

Te dejo un pequeño código para identificar el rango a copiar. Agrega dentro de tu código "CopiarCeldas" un llamado como éste: "Call buscar_ultpedido"
Suerte!

Sub buscar_ultpedido()
Dim ufila6 As String, ufila7 As String
Dim rango As Range

'última fila de hoja Other
ufila6 = 0: ufila6 = Hoja6.Cells(Rows.Count, 1).End(xlUp).Row
If ufila6 < 2 Then ufila6 = 2
'última fila de hoja Abastecimiento
ufila7 = 0: ufila7 = Hoja7.Cells(Rows.Count, 1).End(xlUp).Row
If ufila7 < 2 Then ufila7 = 2

For i = ufila6 To 2 Step -1
    If Hoja6.Cells(i, 1).Value = Hoja6.Cells(i - 1, 1).Value Then
    Else
        j = Hoja6.Cells(i, 1).Row
        Set rango = Hoja6.Range("A" & j & ":J" & ufila6)
        rango.Copy
        Hoja7.Range("A" & ufila7).PasteSpecial xlPasteValues
        Exit Sub
    End If
Next
End Sub

 

Sub buscar_ultpedido()
Dim ufila6 As String, ufila7 As String
Dim rango As Range
Dim LIBROdestino As Worksheet, LIBROorigen As Worksheet, Plant As Range

Application.ScreenUpdating = False

Workbooks.Open (ActiveWorkbook.Path & "\Datos - Abastecimientos.xlsm")

Set LIBROdestino = Workbooks("Datos - Abastecimientos.xlsm").Worksheets("Datos")
ThisWorkbook.Activate

Set LIBROorigen = Workbooks("Solicitud de Suministros 4.0.xlsm").Worksheets("Other")

ufila6 = 0: ufila6 = LIBROorigen.Cells(Rows.Count, 1).End(xlUp).Row
If ufila6 < 2 Then ufila6 = 2

ufila7 = 0: ufila7 = LIBROdestino.Cells(Rows.Count, 1).End(xlUp).Row + 1
If ufila7 < 2 Then ufila7 = 2

For i = ufila6 To 2 Step -1
    If LIBROorigen.Cells(i, 1).Value = LIBROorigen.Cells(i - 1, 1).Value Then
    Else
        j = Hoja6.Cells(i, 1).Row
        Set rango = LIBROorigen.Range("A" & j & ":J" & ufila6)
        rango.Copy
        LIBROdestino.Range("A" & ufila7).PasteSpecial xlPasteAll
        Application.CutCopyMode = False
       
        Exit Sub
    End If
Next

End Sub

Estimado amigo @tierra_pampa, al fin lo logre... tu codigo fue parte esencial de la magia... muchisimas graacias sin tu aporte no hubiese llegado al resultado muchas gracias!

Link to comment
Share on other sites

  • Crear macros Excel

  • Posts

    • Buenos días a todos; -Necesito de vuestra ayuda. Para mejor comprensión adjunto enlace de un video y comentario. Saludos y gracias de antemano     Adjunto también la macro. MEvento.zip
    • No debe importarnos que el usuario que abrió el tema no vuelva a consultarlo porque nuestras respuestas le llegaron demasiado tarde... Lo importante es poder ayudar a otros usuarios que tengan un problema similar en el futuro...
    • Es una opción original e ingeniosa pero creo que difícil de comprender para un usuario que sepa fórmulas sencillas... Adjunto otra opción con fórmulas desbordadas que puede que sea más fácil de comprender para un usuario que esté aprendiendo a formular, pues hay 3 pasos separados: Columna D : A cada valor se le añade 1> a la izquierda, se sustituye el primer + por 2> y el segundo + por 3>. De paso se quitan los signos , y . para convertir los valores en números. Todo ello con la función SUSTITUIR. ="1>"&SUSTITUIR(SUSTITUIR(SUSTITUIR(SUSTITUIR($C2;",";"");".";"");"+";"2>";1);"+";"3>";1)   Columna E (desbordada hacia la derecha en las columnas F y G): Extrae los valores y letras de 1>, 2> y 3>. Todo ello con una versión matricial de la función EXTRAE, con la ayuda de la función ENCONTRAR. =SI.ERROR(SUSTITUIR(EXTRAE($D2;ENCONTRAR({"1>"\"2>"\"3>"};$D2);SI.ERROR(ENCONTRAR({"2>"\"3>"\"0>"};$D2);100)-ENCONTRAR({"1>"\"2>"\"3>"};$D2));{"1>"\"2>"\"3>"};"");"")   Sumas de C, T y V: Suma las cantidades consumidas de cada letra con la función SUMAPRODUCTO. Salu2, Pedro Wave Sumar Letras PW1.xlsx
    • Hola,  Estoy intentando vía InputBox rellenar con el dato introducido una columna. Pero no consigo que lo haga desde la primera fila libre de A. Sería pegar el dato a partir de la primera celda libre de la columna A (está en verde), en función del Nº de filas de la columna B No consigo modificarla y se pega desde el comienzo.  Podéis echarle un vistazo? La macro está en el ejemplo. ¡Muchísimas gracias!      ej_InputBox.xlsm
    • La mía. Sub Mostrar() Application.ScreenUpdating = False Range("B:CM").EntireColumn.Hidden = False End Sub '-- Sub Ocultar() Dim Filtro As Range Application.ScreenUpdating = False Mostrar For y = 2 To Columns("CM").Column If WorksheetFunction.CountIf(Cells(8, y).Resize _ (Range("A" & Rows.Count).End(xlUp).Row, 1), "<>" & Empty) = 0 Then Columns(y).Hidden = True End If Next End Sub  
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy