Excel - Fórmula para copiar celdas específicas

 
Vista:
sin imagen de perfil
Val: 2
Ha aumentado su posición en 22 puestos en Excel (en relación al último mes)
Gráfica de Excel

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.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Andres Leonardo
Val: 3.804
Plata
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Fórmula para copiar celdas específicas

Publicado por Andres Leonardo (1505 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

promedioformula

La macro es esta...

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
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
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar