Formula exporte datos de una hoja

Necesito formula o macro para exportar datos de la hoja1 a la hoja2 de acuerdo al centro que yo especifique.

Ejemplo

Formula para la Hoja2 me jale datos en este ejemplo del centro 3920 todo los datos correspondientes al centro 3920

Puede ser que ha veces requiera todos los datos de 3950 u otros centros.

Espero haberme explicado

En espera de su pronta respuesta

Se anexa imagen

Saludos

1 Respuesta

Respuesta
2

H o l a:

Faltó que indicaras en dónde vas a poner el centro que requieres.

Te preparé la macro para que pongas el centro que requieres en la celda B1

Sub ExportarDatos()
'Por.Dante Amor
    Set h1 = Sheets("Hoja1")
    Set h2 = Sheets("Hoja2")
    celda = "B1"
    '
    If Range(celda) = "" Then
        MsgBox "Captura el centro en la celda: " & celda
        Range(celda).Select
        Exit Sub
    End If
    '
    h2.Cells.Clear
    h1.Rows(2).Copy h2.Rows(1)
    j = 2
    Set r = h1.Columns("C")
    Set b = r.Find(h1.Range(celda), lookat:=xlWhole)
    If Not b Is Nothing Then
        ncell = b.Address
        Do
            h1.Rows(b.Row).Copy h2.Rows(j)
            j = j + 1
            Set b = r.FindNext(b)
        Loop While Not b Is Nothing And b.Address <> ncell
        MsgBox "Registros copiados"
    Else
        MsgBox "No hay coincidencias"
    End If
End Sub

':)
':)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas