Copiar datos de una pestaña a otra con macro

Hola, no domino para nada las macros y necesito su ayuda, tengo un archivo con varias pestañas con igual formato y una pestaña más que llamaré "Total" donde pienso concentrar lo contenido en esas pestañas. Necesito copiar el texto de 2 columnas de cada pestaña en "Total" siempre y cuando cumplan una condición, es decir, si en una tercera columna aparece la letra "F" me ponga el contenido de esas 2 columnas en "Total" y si no es "F" que siga buscan hasta volver a encontrar la "F", pero quiero ir explorando cada una de las pestañas que en total son 9.
Cada pestaña tiene su propio nombre.
Agradezco su ayuda!

1 respuesta

1
Respuesta de
Q+ Tuza,
Utiliza la fórmula =Sumar.si(a;b;c)
Esta fórmula la colocas en tu pestaña "Total"
El valor (a) se refiere a lo que se va a comparar en las nueve pestañas
el valor (b) es lo que se debe verificar; en ti caso es "F"
El valor (c) es lo que se va a sumar en las nueve pestañas
La fórmula la puedes poner en en un Código de VB (ALT+F11)
Menú Insertar - Módulo
Alli puedes pegar este código para que hagas pruebas. Te recomiendo que Abras un libro nuevo con cuatro pestañas (Para hacer las pruebas). Hoja1, Hoja2, Hoja3 y Total
En las hojas 1, 2 y 3 colocas letras en las columnas A (incluye la F) y números en las columnas B
En la Hota Total ejecutas la Macro
El código es este:
Sub MiSuma()
'
' MiSuma Macro
' Macro grabada el 25/08/2008 por Richard Chacón
' Funciona pulsando CTRL+i
Dim Pest1, Pest2, Pest3, Total
' ActiveCell.FormulaR1C1 = "=+VLOOKUP(RC[-1],Hoja1!RC[-1]:R[5]C,2)"
Pest1 = "=+SUMIF(Hoja1!a1:a6,""F"",Hoja1!b1:b6)"
Pest2 = "+SUMIF(Hoja2!a1:a6,""F"",Hoja2!b1:b6)"
Pest3 = "+SUMIF(Hoja3!a1:a6,""F"",Hoja3!b1:b6)"
Total = Pest1 + Pest2 + Pest3
Range("B1") = Total
End Sub

Me dices si necesitas más orientación...
Saludos,
RCh.
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje