Macro que busque Datos en hojas anteriores y lo copie
Tengo un libro de excel con muchísimas hojas.
En la celda h34 introduzco un valor numérico, dicho valor numérico puede que ya esté en cualquier hoja del libro en la misma celda (h34), en cuyo caso necesito una macro ubique esa hoja, y además que copie los datos de cierto rango de esa hoja y los pegue en el mismo rango de la hoja actual.
Resumiendo: Si el valor de la hoja40! H34 es igual al valor de la hojaactual! H34 todos los valores de cierto rango son iguales también.
1 respuesta
Respuesta de James Bond
1
Prueba esta macro
Sub copia_datos()
valor = ActiveSheet.Range("h34")
filas = ActiveSheet.Range("h34").CurrentRegion.Rows.Count
For Each hoja In Worksheets
valor2 = Sheets(hoja.Name).Range("h34")
filas = ActiveSheet.Range("h34").CurrentRegion.Rows.Count
If hoja.Name = ActiveSheet.Name Then GoTo sig
If valor = valor2 Then
Sheets(hoja.Name).Range("h34").CurrentRegion.Copy
If filas = 1 Then ActiveSheet.Range("h34").PasteSpecial
If filas > 1 Then ActiveSheet.Range("h34").Rows(filas + 1).PasteSpecial
End If
sig:
Next hoja
End Sub
