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...
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 Respuesta
Respuesta de Orlando Collarte
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
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
