Saltar al contenido

Recommended Posts

publicado

Hola y gracias de antemano por cualquier ayuda

 

tengo una exportación de datos en una pestaña (original ) y necesitaría que me pegase las lineas nuevas en otro listado de otra pestaña ( copia )..

y al mismo tiempo, que me borrase del listado COPIA los que ya no encuentre en la exportación ( Original )

 

 

 

BUSCAR Y ESCRIBIR EN OTRA PESTAÑA.xlsx

publicado

Buenas, si dices .. 

En 16/8/2024 at 16:41 , rafaelmartinez19682 dijo:

y al mismo tiempo, que me borrase del listado COPIA los que ya no encuentre en la exportación ( Original )

Entonces el listado copia será igual al listado Original.

Saludos

 

 

publicado

Hola JasallBcn....exactamente....el Original es la exportación de la ERP y la copia es donde el usuario gestiona el listado....la exportación original tiene que ser igual a la copia...

 

reitero las gracias de antemano

 

 

publicado (editado)
Private Sub CommandButton1_Click()
        buscado = Hoja2.Range("A" & Rows.Count).End(xlUp)
        With Hoja1.Range("A4").CurrentRegion
            .AutoFilter 1, Criteria1:=">" & buscado
            .Offset(1, 0).Resize(.Rows.Count - 1). _
                          SpecialCells(12).Copy Hoja2.Range("A" & _
                          Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1)
            .AutoFilter
        End With
End Sub

 

 

BUSCAR Y ESCRIBIR EN OTRA PESTAÑA.xlsm

Editado el por JSDJSD
publicado

Muchas gracias, JSDJSD

funciona perfectamente, muchas gracias...voy a abusar y el tema es que no soy capaz de interpretar tu código y no puedo aplicarlo a  mi fichero...

te podría pedir el código de tal forma que busque por la columna del Nºdel expediente y que si no lo encuentra en la segunda hoja, añada las filas en la 2ª hoja

Reitero las gracias de nuevo

 

 

 

  • 2 weeks later...
publicado
  1. Busca el último valor en la columna A de Hoja2.
  2. Filtra los datos en Hoja1, comenzando en A4, para mostrar solo las filas donde los valores en la columna A son mayores que el valor encontrado en Hoja2.
  3. Copia las filas filtradas (excluyendo los encabezados) y las pega en Hoja2, comenzando justo debajo del último valor en la columna A.
  4. Elimina el filtro aplicado en Hoja1, dejando los datos visibles en su estado original.

Este código es útil si estás trabajando con datos que necesitas transferir de Hoja1 a Hoja2, pero solo quieres copiar las nuevas filas que tienen un valor en la columna A mayor que el último valor en Hoja2.

Conéctate para comentar

Podrás dejar un comentario después de conectarte



Conéctate ahora
  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      188
    • Comentarios
      97
    • Revisiones
      29

    Más información sobre "Cambios en el Control Horario"
    Última descarga
    Por pegones1

    1    0

  • Crear macros Excel

  • Mensajes

    • Buenos días estimados, Tengo la siguiente consulta como obtener el promedio del rango de datos la ultima y penúltima fecha de la columna K. Ósea si tengo datos en la columna K con fecha 13-03-2025 y 12-03-2025 haga el promedio de los datos de esas fechas, pero si hay datos en la columna K con fecha 13-03-2025 y 11-03-2025 solo haga el promedio del dia 13-03-2025. El promedio debe ir en la celda M1 Anteriormente tenia en la macro la consulta del ultimo y penúltimo dato solamente sin tener en cuenta la fecha. Aqui compara los dos datos si el ultimo es menor toma ese dato si es mayor realizar el promedio. Sub Cemento() Dim Valor_1 As Single, Valor_CALIZA As Single, _ Dim Book_Moliend As Workbook, _ Book_BBDD As Workbook, _ Book_PREH As Workbook Dim Hoja_CalCto As Worksheet, _ Hoja_Caliza As Worksheet, _ Hoja_Cemento As Worksheet Dim Ruta_1 ' --- Fichero: MOLIENDA DE CEMENTO Y DESPACHOS FISICOS.xlsx Ruta_1 = "E:\Claudio\Cemento\" Application.ScreenUpdating = False Set Hoja_Cemento = ThisWorkbook.Sheets("CEMENTO") Set Book_PREH = Workbooks.Open(Ruta_1 + "PREHOMO.xlsx", ReadOnly:=False) Set Hoja_CalCto = Book_PREH.Sheets("CALIZA ADICIÓN CTO") ' --- Busca la ultima fila con datos y captura el valor With Hoja_CalCto Fila = .Cells(4, "A").End(xlDown).Row Valor_1 = 0 ' --- Ultimo dato Valor_2 = 0 ' --- Penultimo dato While Valor_1 = 0 Or Valor_2 = 0 If .Cells(Fila, "K") > 0 Then If Valor_1 = 0 Then Valor_1 = .Cells(Fila, "K") Else Valor_2 = .Cells(Fila, "K") End If End If Fila = Fila - 1 Wend End With Book_PREH.Close ' ---&--- Si el ultimo es mayor toma el ultimo If Valor_1 < Valor_2 Then Valor_CALIZA = Valor_1 Else Valor_CALIZA = (Valor_1 + Valor_2) / 2 End If Hoja_Cemento.Range("M1") = Valor_CALIZA End Sub Saludos Promedio.xlsm PREHOMO.xlsb
    • Hola mis amigos, como se encuentran, Antes que nada, gracias por tomarte el tiempo de leer mi situación. Tengo una tabla en donde se surte mercancía, el detalle esta:  Como son varios pedidos entonces, es donde se me complica un poco, a veces el cliente me pide cierta cantidad de mercancía, como no es el único, entonces quiero ver la posibilidad de mejorar este proceso, me gustaría ver si hay la posibilidad de combinar estas dos opciones, en donde si mi stock de acuerdo al pedido no cumple, entonces que surte a ciertos clientes, y la otra opción sería si de mi stock no cumple entonces que me distribuye en partes iguales la mercancía. Adjunto un archivo de ejemplo para mejor apreciación. De antemano, muchas gracias. SURTIDO DE MERCANCIAS.xlsx
    • Gracias de  todas formas, pero busco hacerlo con VBA. Son 12.000 filas a filtrar
    • Hola a ambos, @Gigi74, si te es igual conseguirlo en un rango aparte,  puedes aplicar: =APILARV(A4:D4;FILTRAR(A5:.D999;(A5:.A999=B2)+(B5:.B999=B3))) Saludos,
    • Hola de nuevo. voy a complicarlo un poco más. Si añado un segundo filtro nuevo. Me da igual que ambos filtros condicionen o no a la hora de seleccionar ambos. Si condicionan mejor, si es posible. Gracias por antelación Libro2A.xlsx
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.