Copiar datos de una hoja a otra dependiendo de otra celda

[silvanha]

Hola chicos!!

he vuelto a molestar por estos lugares.. ando liada, como siempre, bueno el caso es que se manejar PHP, pero una maldita macro en Excel me esta sacando canas de colores

ok, bueh!! XDDD el caso es el siguiente, tengo un libro, con varias hojas, la primera contiene un listado de alumnos con una columna en que se especifica que turno es en el que estudia, lo que necesito es dividir los datos en dos, copiar los del turno matituno y pasarlo a otra hoja y los del vespertino a otra.. no los quiero borrar de la hoja solo copiarlos..

Entonces me tope con que eso se hace con una macro, ya di vueltas y logre medianamente hacer algo, pero la verdad no doy una jajajajaj que mal.. en fin, mi codigo es este:

Código vb:

Sub copia_primer_sem()
Application.ScreenUpdating = False
Dim val, cel As String
Sheets("ALUMNOS").Select
Range("B15").Select
'ActiveCell.Offset(15, 2).Select
Do While ActiveCell.Value <> ""
    If ActiveCell.Value = "1" Then
        Range("C15").Select
        Selection.Copy
        Sheets("1ER SEM(MAT) -").Select
        Range("B17").Select
        ActiveCell.PasteSpecial
    End If
    If ActiveCell.Value = "2" Then
        Range("C15").Select
        Selection.Copy
        Sheets("1ER SEM(VES) -").Select
        Range("B17").Select
        ActiveCell.PasteSpecial
    End If
    Sheets("ALUMNOS").Select
    'Bajamos una fila para seguir tomando datos
    ActiveCell.Offset(1, 0).Select
Loop
End Sub
 

Es decir, logro que me copie el primer campo, pero no logro hacer el ciclo que recorra toda la columna que especifica el turno.. tengo la hoja con todos los datos ordenados que se llama Alumnos, en la columna B, tengo el turno numerado por uno o dos, y a partir de la columna C y hasta la Q, los nombres junto con las calificaciones de primer semestre, que son las que necesito copiar, de la Q en adelante, tengo más calificaciones pero por ahora no necesito copiarlas.

De antemano mil graaacias!! =) como siempre ;)