Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro Excel actualizar datos

J

John Alexander

Member
Registrado
20 Oct 2021
Mensajes
67
Señores expertos
Tengo una macro que me ha funcionado bien, la cual me actualiza datos de una hoja a otra dentro del mismo libro, hoy día surge una necesidad de actualizar libro llamado MTTO...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
 

Adjuntos

  • Captura de pantalla 2024-07-17 113601.webp
    Captura de pantalla 2024-07-17 113601.webp
    59,3 KB · Visitas: 8
Solución
L
Sólo agrega esa linea..!!!


Código: 
Sub actualizar_LBV()
    Set l1 = ThisWorkbook
    Set h1 = l1.ActiveSheet
    Set l2 = Workbooks("Rutina Mtto Preventivo")
    Set h2 = l2.Worksheets("Rutina Mtto Preventivo (3)")
    Set r = h2.Columns("A")
    For i = 2 To h1.Range("B" & Rows.Count).End(xlUp).Row
        Set b = r.Find(h1.Cells(i, "B"), lookat:=xlWhole)
        If Not b Is Nothing Then
            Set b = r.FindPrevious(after:=b)
            cAddress = b.Address
            Do
                If h1.Cells(i, "R") <= h2.Cells(b.Row, "G") Then
                    h2.Cells(b.Row, "H") = h1.Cells(i, "R")
                    h2.Cells(b.Row, "I") = h1.Cells(i, "S")
                    h2.Cells(b.Row, "F") = h1.Cells(i...
Ordenar por fecha Ordenar por votos
Hola,

Código: 
Sub Actualizar_LBV()
    Set l1 = ThisWorkbook
    Set h1 = l1.ActiveSheet
    Set l2 = Workbooks("Rutina Mtto Preventivo")
    Set h2 = l2.Worksheets("Rutina Mtto Preventivo (3)")...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
 
Última edición:
Voto a favor 0 Voto en contra

Adjuntos

  • 1721943708802.webp
    1721943708802.webp
    12,3 KB · Visitas: 0
  • 1721944236789.webp
    1721944236789.webp
    10,9 KB · Visitas: 0
Voto a favor 0 Voto en contra
Sólo agrega esa linea..!!!


Código: 
Sub actualizar_LBV()
    Set l1 = ThisWorkbook
    Set h1 = l1.ActiveSheet
    Set l2 = Workbooks("Rutina Mtto Preventivo")
    Set h2 = l2.Worksheets("Rutina...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí
 
Voto a favor 0 Voto en contra
Solución
Iniciar sesión o registrarme para responder aquí.

Temas similares

B
  • Pregunta Pregunta
Macro abrir varios archivos excel actualizar y guardar
Respuestas
3
Black2019
B
L
  • Pregunta Pregunta
URGENTE ... AYUDA CON BOTON ACTUALIZAR EN UNA MACRO EN EXCEL
Respuestas
4
leunam
L
M
  • Pregunta Pregunta
Ayuda con Macro Excel
Respuestas
2
Leopoldo Blancas
L
X
  • Pregunta Pregunta
en excel 2021 la macro que contiene on error goto no me funciona.
Respuestas
2
JSD
J
L
  • Pregunta Pregunta
Macro Busqueda - Filtrar Excel 2016
Respuestas
2
Luisaco
L
J
  • Pregunta Pregunta
macro para identificar valores duplicados en e hojas de excel
Respuestas
17
jairorodri
J
L
  • Pregunta Pregunta
Macro que pase info de carpeta a excel
Respuestas
2
Erik Lopez
Erik Lopez
P
  • Resuelto
Ayuda No graba la macro y se cierra excel.
Respuestas
11
Pirata_302
P
S
  • Pregunta Pregunta
Macro para excel de Jugadores
Respuestas
2
silvio0104
S
A
  • Pregunta Pregunta
Macro para crear varios excel y PDF
Respuestas
1
Abraham.Valencia
Abraham.Valencia
Volver
Arriba