Iniciar sesiónCerrar
Correo:
Contraseña:
Entrar
Recordar sesión en este navegador
Iniciar sesiónIniciar sesiónCrear cuentaCrear cuenta
LWP » Foros » Excel » Ayuda con determinar rango

Excel - Ayuda con determinar rango

Volver
Nuevo Tema
<<>>
 
Vista:

Ayuda con determinar rango

Publicado por Felipe (1 intervención) el 03/06/2019 01:48:56
Buenas tardes, me gustaria que me puedan ayudar en un pequeño codigo que estoy realizando, la verdad no entiendo mucho la programacion en excel. El codigo realiza un metido FOR donde me imprime desde la celda b5 a la b26 de la hoja Alumnos, pero me gustaria ver la forma de que solo me imprima hasta la ultima celda con datos.

por lo que estuve buscando encontre esto
1
'Range("b6:" & Range("b6").End(xlDown).Address).Select
pero no se donde ingresar ese codigo, intente en varias partes pero no me resulto.

1
2
3
4
5
6
7
8
9
10
Sub Imrimir_Todo()
 
        For Each c In Sheets("Alumnos").Range("b5:b26")
        [c7] = c.Value
        Range("A1:M40").Select
        Selection.PrintOut Copies:=1, Collate:=True
 
        Next
 
End Sub

Espero me puedan ayudar, desde ya muy agradecido
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Norberto
Val: 148
Ha mantenido su posición en Excel (en relación al último mes)
Gráfica de Excel

Ayuda con determinar rango

Publicado por Norberto (46 intervenciones) el 03/06/2019 14:05:19
Hola:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Imprimir_Todo()
    Dim UltimaCelda As String, c As Range
    UltimaCelda = WorkSheets("Alumnos").Range("B5").End(xlDown).Address
 
    For Each c In Sheets("Alumnos").Range("B5:" & UltimaCelda)
        [c7] = c.Value
        Range("A1:M40").Select
        Selection.PrintOut Copies:=1, Collate:=True
    Next
 
    Set c = Nothing
End Sub

Un saludo,

Norberto.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar