Excel - Fórmula para copiar celdas específicas

Val: 1

Fórmula para copiar celdas específicas

Publicado por Jesica Alejandra (1 intervención) el 09/04/2020 04:21:17

Hola!

Tengo un documento en excel que contiene datos de monitoreo de calidad del aire. Me gustaría poder copiar todas las celdas que contienen los valores del promedio diario, para poder trasladarlas a otra hoja en excel.

La base de datos contiene alrededor de 185 tablas, cada tabla contiene dos columnas (A y B) y dentro de la columna ''A'' hay una celda que contiene el texto ''Avg'', al lado derecho de esta celda (en columna ''B'') se encuentra el valor (dato que necesito). Este patrón se repite para las 185 tablas. Hay alguna manera de poder copiar los valores de los promedios mediante alguna fórmula, sin tener que recurrir a copiar y pegar cada una de las 185 celdas?

Una disculpa si no fui suficientemente clara, estoy aprendiendo a usar Excel.

2015-SPABC21-09-12.zip.zip(88,6 KB)

Valora esta pregunta

Me gusta: Está pregunta es útil y esta clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

Pos: 3

Val: 3.136

Fórmula para copiar celdas específicas

Publicado por Andres Leonardo (1583 intervenciones) el 09/04/2020 17:32:13

claro ... con formulas y macros te adjunto un ejemplo
la ventaja de las formulas es que no importa si vambian las estructura de los libros, la desventaja te toca filtrar un pequeño precio por algo automatizado, yo recomiendo esta .....

la ventaka de los macros es que lo hace automatica, pero esta esta validando en una estructura de archivo siempre igual lo cambian y ya no funciona se le puede poner un poco de inteligencia pero son mas lineas de codigo
espero te ayude.

PromedioMacro

La macro es esta...

Sub ExtraePromedio()

' ExtraePromedio Macro

' verfifica el contenido de A si es = AVG extraiguo el contenido lo pongo en la Hoja 2

'cuando hayan mas de 10 filas en blanco me detengo esto puede ser cambiado por alguna

'palabra al ultimo registro para validar

'Autor: ANdres Guerrero Avellan

' Acceso directo: CTRL+q

Sheets("Sheet").Select

c = 0 'Contador de espacio en blanco

i = 37 ' la primera celda con datos, para evitar 12 ciclos x gusto

j = 2  ' Contador de la Hoja 2 donde iran copiando

salir = False

While salir = False

If Range("A" & i).Value = "" Then

    salir = True

    MsgBox "Proceso Terminado", vbInformation, "Extrae Informacion"

Else

    If Range("A" & i).Value = "Avg" Then

      Sheets("Resultado").Range("A" & j).Value = i

      Sheets("Resultado").Range("B" & j).Value = Range("B" & i).Value

      i = i + 43

      j = j + 1

    End If

End If

Wend

End Sub

2015-SPABC21-09-12.zip.zip(230,7 KB)

Valora esta respuesta

Me gusta: Está respuesta es útil y esta clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar