Eliminar datos de las celdas que no contienen información.

Tengo esta macro que copia;
1º Instructor y alumno AM
2º Horario Turno 1 AM
3º Horario Turno 2 AM
4º Instructor y alumno PM
5º Horario Turno 1 PM
6º Horario Turno 2 PM
7º Toma todo el rango de fue copiado y ordenado por
hora.

Sheets("Sem1").Select
Range("B5:D36").Select
Selection.Copy
Sheets("Programación").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sem1").Select
Range("I5:J36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Programación").Select
Range("E4").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sem1").Select
Range("B5:D36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Programación").Select
Range("B36").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sem1").Select
Range("L5:M36").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Programación").Select
Range("E36").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sem1").Select
Range("B40:D71").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Programación").Select
Range("B68").Select
Selection.PasteSpecial Paste:=xlPasteValues,
Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sem1").Select
Range("I42:J71").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Programación").Select
Range("E68").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sem1").Select
Range("B42:D71").Select
Application.CutCopyMode = False
Selection.Copy
Sheets("Programación").Select
Range("B98").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Sheets("Sem1").Select
Range("L42:M71").Select
Application.CutCopyMode = False
Selection.Copy
ActiveWindow.SmallScroll Down:=3
Sheets("Programación").Select
Range("E98").Select
Selection.PasteSpecial
Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("B4:F127").Select
ActiveWindow.ScrollRow = 1
Application.CutCopyMode = False
ActiveWorkbook.Worksheets("Programación").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Programación").Sort.SortFields.Add
Key:=Range( _
"F4:F127"),
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With
ActiveWorkbook.Worksheets("Programación").Sort
.SetRange Range("B4:F127")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
End Sub
La pregunta es: Que debo agregarle a esta macro para que una vez ordenada la lista
elimine los datos de quienes no tienen hora asignada?


B C E F H I
Instructor Alumno Turno 1 AM Hora Turno 2 PM hora
8 Juan Karla Maquinas 10:00 Baile 12:00
9 Pedro Jorge Bicicleta 10:30
10 Luis María Baile 12:00
11 Carlos Perla
12 José Claudio Bicicleta 11:00 Máquinas 12:00

Actividades del día lunes
Juan Karla Maquinas 10:00
Pedro Jorge Bicicleta 10:30
José Claudio Bicicleta 11:00
Juan Karla Baile 12:00
Luis María Baile 12:00
José Claudio Máquinas 12:00
Luis María
Carlos Perla


Los dos últimos deben salir del listado ya que no tiene programación asignada para algunos de los Turnos.

1 Respuesta

Respuesta
1

Agrega lo siguiente al final de tu macro

For i = Range("B" & Rows.Count).End(xlUp).Row To 4 Step -1
    If Cells(i, "E") = "" Then Rows(i).Delete
Next

Prueba y me comentas
Saludos. DAM
Si es lo que necesitas.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Ejecutar una macro dependiendo de otra macro?

Tengo una pequeña duda... Tengo dos botones con macros uno de ellos dice IMPRIMIR y otro dice REPARTO.. Lo que quiero es que no se pueda ejecutar el botón REPARTO si no se ha impreso nada osea si no le han dado clic al botón IMPRIMIR... En el botón...
2 respuestas

Macro copiar y pegar valores en columna filtrada

Necesito una macro que una vez filtrada una columna me copie una celda y pegue los valores en la misma, baje otra celda y haga lo mismo y así consecutivamente hasta el final. He grabado una macro con el grabador para que se den una idea. Sub Macro1()...
1 respuesta

Llenar campos obligatorios para ejecutar una macro...

Tengo esta macro en la cual me guarda la información de algunas celdas que se llenan, pero quisiera que no me permita ejecutar la macro si alguna de esas celdas no están llenas. Sub CREA_NUEVO_CLIENTE() ' ' CREA_NUEVO_CLIENTE Macro ' AGREGA NUEVO...
1 respuesta

Macro buscar-pegar

Me ha surgido un problema con una hoja de exel de registro de operaciones que estoy montando, me veo en la necesidad de ingresar datos de una hoja de calculo a otra y creo que la mejor opción es empleando una macro pero mi problema es que no se como...
1 respuesta

¿Cómo puedo hacer validación de datos al ejecutar una macros de guardado?

Tengo una macro en una hoja llamada NUEVO CLIENTE que guarda infroamcion en otra hoja llamada CLIENTES REGISTRADOS. Application.ScreenUpdating = False Sheets("CLIENTES REGISTRADOS ").Unprotect password:="28021990" Application.ScreenUpdating = False...
1 respuesta

Macro para ordenar un rango variable

Tengo esto dela grabadora Sub Macro10() ' ' Macro10 Macro ' ' Acceso directo: Ctrl+Mayus+L ' Rows("9").Select Range(Selection, Selection.End(xlDown)).Select ActiveWorkbook.Worksheets(ActiveSheet.Name).Sort.SortFields.Clear...
1 respuesta

Activar una macro en excel con el enter

Estoy creando una macro en excel 2007... Primero grabe la macro donde solo ingreso el dato código y se autocompletan los demás campos con los datos de otra hoja por medio de la fórmula BuscarV ... Pero ahora necesito que al ingresar el código y dar...
1 respuesta