Seleccionar un rango
Que tal experto. Mi nombre es Ángel, soy como muchos, principiante en estos menesteres. Tengo parte de mi siguiente código.
Private Sub Borrar_ceros()
For t = 1 To Sheets.Count - 2
Sheets(t).Select
For p = 1 To 100
arreglo = Cells(1, 1)
If Cells(p, 1) = arreglo Then
If Cells(p, 16) = vbNullString Or Cells_(p, 16) = 0 Then
Cells(p, 16).Select
ActiveCell.Offset(-5, 0).Select
'en la linea anterior selecciona la celda nula, sube 5 líneas aqui la pregunta ¿como puedo seleccionar 10 líneas hacia abajo? Conciderando que no se en que línea está posicionada, para despues borrarlas. (pero siempre 10 líneas hacia abajo)
Rows(p).Delete
End If
End If
Next
Anticipadamente, mil gracias.
Saludos.
Private Sub Borrar_ceros()
For t = 1 To Sheets.Count - 2
Sheets(t).Select
For p = 1 To 100
arreglo = Cells(1, 1)
If Cells(p, 1) = arreglo Then
If Cells(p, 16) = vbNullString Or Cells_(p, 16) = 0 Then
Cells(p, 16).Select
ActiveCell.Offset(-5, 0).Select
'en la linea anterior selecciona la celda nula, sube 5 líneas aqui la pregunta ¿como puedo seleccionar 10 líneas hacia abajo? Conciderando que no se en que línea está posicionada, para despues borrarlas. (pero siempre 10 líneas hacia abajo)
Rows(p).Delete
End If
End If
Next
Anticipadamente, mil gracias.
Saludos.
Respuesta de paramisolo
1
Pues como tu has puesto subir 5 lineas (para subir numero negativo) para bajar numero positivo, ActiveCell. Offset(10,0). Select
Mira si esto es lo que preguntas, si no es así aclarame lo que quieres.
>Un saludo
>Julio
Mira si esto es lo que preguntas, si no es así aclarame lo que quieres.
>Un saludo
>Julio
Que ta julio.
Mil gracias por la respuesta y disculpa por responder tan tarde, lo que pasa es que ayer tuve que salir temprano y hoy día, hace unos minutos, estoy llegando al trabajo. ¿Sabes? El mismo día que te pregunte estuve buscando por internet y me encontré con esto.
ActiveCell.Offset(0, 5).Select
ActiveCell.Resize(0, 65).Select
Pero en verdad agradezco tu ayuda en todo lo que vale.
Que tengas un excelente día.
Mil gracias por la respuesta y disculpa por responder tan tarde, lo que pasa es que ayer tuve que salir temprano y hoy día, hace unos minutos, estoy llegando al trabajo. ¿Sabes? El mismo día que te pregunte estuve buscando por internet y me encontré con esto.
ActiveCell.Offset(0, 5).Select
ActiveCell.Resize(0, 65).Select
Pero en verdad agradezco tu ayuda en todo lo que vale.
Que tengas un excelente día.
