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

roa30 · el 16 de julio

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?

roa30 · el 16 de julio

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?

Haplox · el 17 de julio

Hace 13 horas, roa30 dijo:

Me podrian ayudar por favor?

Si subes tus archivos de ejemplo...

roa30 · el 18 de julio

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

tierra_pampa · el 18 de julio

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

roa30 · el 18 de julio

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 ?

roa30 · el 18 de julio

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

roa30 · el 19 de julio

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...

roa30 · el 19 de julio

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!