Importar datos de una hoja a otra

Hola, soy nuevo en este foro y espero me puedan ayudar, tengo una base de datos con más de 2000 números en la Hoja 1, de la cual quiero extraer unicamente los números (Columna A) que cumplan con la condición de ser mayor o igual a 90 puntos (Columna D) y colocarlos en Hoja 2 del mismo libro, y después de colocarlos en la Hoja 2 también deseo sumar los contenidos de las columnas B y C una vez que haya encontrado el número que cumpla con esta condición, tengo algo así:
          A B C D
1 No. Back 1 Back 2 Puntos
2 97934 1 11 98.00
3 101254 2 12 90.00
4 12365 3 13 91.00
5 85465 4 14 56.00
Deseo obtener algo así de una forma automática en la Hoja 2;
    A B D
1
No. Total Back Puntos
2 97934 12 98.00
3 101254 14 90.00
4 12365 16 91.00
Agradezco de antemano su atención...
1

1 respuesta

Respuesta
1
Aplica ente código en una macro o sea crea un botón y le asignas este código
Sub calcula()
' *** Porque sabes que ahi comienzan nuestros Datos
Dim numero, back1, back2, puntos As Long
Worksheets("Hoja2").Activate
Range("a1").Select
Worksheets("Hoja1").Activate
Range("D2").Select
While ActiveCell.Value <> Empty
    If ActiveCell.Value >= 90 Then
        Selection.End(xlToLeft).Select
        numero = ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        back1 = ActiveCell.Value
        ActiveCell.Offset(0, 1).Select
        back2 = ActiveCell.Value
        suma = back1 + back2
        ActiveCell.Offset(0, 1).Select
        puntos = ActiveCell.Value
        Worksheets("Hoja2").Activate
        ActiveCell.Offset(1, 0).Select
        ActiveCell.Value = numero
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = suma
        ActiveCell.Offset(0, 1).Select
        ActiveCell.Value = puntos
        Selection.End(xlToLeft).Select
        Worksheets("Hoja1").Activate
    End If
    ActiveCell.Offset(1, 0).Select
Wend
End Sub
El código esta probado y funciona a la perfección
Comentame como te va

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas