Uso del Elseif

Hola:
Tengo una hoja excel en la que le he puesto un botón de comando. Este deberá detectar la última celda rellena de la columna C y según su valor imprimir unas páginas u otras.
Te adjunto mi macro a ver si me encuentras el fallo. Hago el paso a paso y salvo que sea menor de 9 (que si me salta el mensaje), siempre me imprime la primera página (la opción 2). Si u fuera 80 imprimiría la página 1 cuando tendría que ser la 1 y la 2.
Private Sub CommandButton2_Click()
u = Range("C" & Rows.Count).End(xlUp).Row 'localizamos la última celda con valor
If u < 9 Then 'si es menor de 9 lanzamos el mensaje, si no seguimos
        MsgBox "No hay nada que imprimir"
    ElseIf 8 < u <= 78 Then 'si esta entre 8 y 78 imprimimos la página 1
        PrintOut from:=1, to:=1, copies:=1
    ElseIf 78 < u < 153 Then 'si está entre 78 y 153 imprimimos de la 1 a la 2
        PrintOut from:=1, to:=2, copies:=1
    ElseIf u > 152 Then 'si es mayor a 152 imprimimos de la 1 a la 3
        PrintOut from:=1, to:=3, copies:=1
End If
End Sub
¿Dónde está el fallo? Me estoy volviendo loco porque creo que está bien escrito.
Un saludo

3 Respuestas

Respuesta
1
ElseIf u = o Or u <= 75 Then
Con esto ya tienes la guía.
Perdona, presioné el botón equivocado.
ElseIf u = 8 And u > 9 Or u <= 75 Then
Con esto ya tienes la guía.
Respuesta
1
Tu código ha sido corregido y probado..
Solo te faltaba defint el ActiveWindows y la Activesheet antes de Print
Sub MyMacro()
u = Range("C" & Rows.Count).End(xlUp).Row 'localizamos la última celda con valor
If u < 9 Then 'si es menor de 9 lanzamos el mensaje, si no seguimos
        MsgBox "No hay nada que imprimir"
    ElseIf u < 78 Then   'si esta entre 8 y 78 imprimimos la página 1
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=1, Copies:=1, Collate _
        :=True
    ElseIf u < 153 Then
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=2, Copies:=1, Collate _
        :=True
    ElseIf u > 152 Then 'si es mayor a 152 imprimimos de la 1 a la 3
    ActiveWindow.SelectedSheets.PrintOut From:=1, To:=3, Copies:=1, Collate _
        :=True
End If
End Sub
Hola:
Tu respuesta funciona, gracias.
Al final después de darle vueltas encontré esta otra forma que también funciona.
Private Sub CommandButton2_Click()
u = Range("C" & Rows.Count).End(xlUp).Row
If u < 9 Then
MsgBox "No hay nada que imprimir"
Else
    If 8 < u And u < 79 Then
    PrintOut From:=1, To:=1, Copies:=1
    Else
        If 78 < u And u < 153 Then
        PrintOut From:=1, To:=2, Copies:=1
        Else
            If u > 152 And u < 243 Then
            PrintOut From:=1, To:=3, Copies:=1
            Else
            MsgBox "Hay más de 234 registros. Avisar a Carlos"
            End If
        End If
    End If
End If
De todas formas tu manera es mucho más sencilla.
Muchas gracias.
Carlos
Respuesta
1
La verdad es que yo uso otra forma de imprimir:
Sub Impresion_InformeIncendios()
    Dim primera, ultima As Variant
    Worksheets("Informe_Incendios").Unprotect "bomba2010"
    Range("A1").Select
    primera = ActiveCell.Address
    Range("K52").Select
    'Selection.End(xlDown).Select '** Puede ser una alternativa **
    ultima = ActiveCell.Address
    Worksheets("Informe_Incendios").PageSetup.PrintArea = primera & ":" & ultima
    Range("b1").Select
    ActiveSheet.PrintOut
    Worksheets("Informe_Incendios").Protect "bomba2010", True, True, True
End Sub
 Otra forma:
Sub ImpresionConsumo()
    Call AbrirH8
    Dim primera, ultima As Variant
    Dim lineas As Integer
    Worksheets("Informe").Unprotect "bomba2010"
    Range("A1").Select
    primera = ActiveCell.Address
    Range("G10").Select
    lineas = ActiveCell.Value
    Range("K14").Select
    ActiveCell.Offset(lineas, 0).Select
    'Selection.End(xlDown).Select
    ultima = ActiveCell.Address
    Worksheets("Informe").PageSetup.PrintArea = primera & ":" & ultima
    Range("a15").Select
    Rows("15:600").EntireRow.AutoFit
    Worksheets("Informe").Protect "bomba2010", True, True, True
    'Call AbrirH4
End Sub
Sub SoloImprime()
    ActiveSheet.PrintOut
End Sub
Hola:
¿Y cómo ves la mía? ¿Alguna idea de porque no funciona? Lo que yo quiero es imprimir 1 página, 2 o 3 en función del número de datos que tenga.
Un saludo,
Ok
Lo que no entiendo porque usas la condición If, si basta con tomar el rango que se va a imprimir y tomar el área de impresión la cantidad de hojas las prepara solo el excel.
Ayudame a poder entender la macro, puede que funcione pero no es necesario solo se toma el área a imprimir, tal como lo hacer manual si quisieras imprimir.
Hola:
Ayer después de darle hacer muchas pruebas conseguí que funcionara. Adjunto el código por si a alguien le es útil. Yo relleno datos en una columna y en función del número de datos hago que imprima en 1 hoja, 2 o 3.
Private Sub CommandButton2_Click()
u = Range("C" & Rows.Count).End(xlUp).Row
If u < 9 Then
MsgBox "No hay nada que imprimir"
Else
    If 8 < u And u < 79 Then
    PrintOut from:=1, to:=1, copies:=1
    Else
        If 78 < u And u < 153 Then
        PrintOut from:=1, to:=2, copies:=1
        Else
            If u > 152 And u < 243 Then
            PrintOut from:=1, to:=3, copies:=1
            Else
            MsgBox "Hay más de 234 registros. Avisar a Carlos"
            End If
        End If
    End If
End If
End Sub
Gracias por el interés

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Formulario con 2 combobox y guardar datos en diferente libro

Un mega favor esperando que me puedas ayudar Tengo un formulario con 2 combobox los cuales el primero Con el siguiente código Private Sub UserForm_Activate() 'Captura datos y guarda en empresa ws_Count = ActiveWorkbook.Worksheets.Count For i = 1 To...
1 respuesta

Vincular dos combobox y un textbox después del segundo combo box

Antemano aclara soy principiante. Tengo un problema tengo dos combobox (codigos de productos) vinculados el primero del segundo y por otro lado tengo otro combobox ( dodigos de producto) vinculado con otros textbox (descripción del producto), Las dos...
1 respuesta

Como guardar el valor de un textbox dependiendo de la selección de un combobox

Tengo un formulario y dentro de el tengo un textbox vacío y un combobox con varias opciones que toma de la fila 1. Se supone que en este formulario tengo que elegir una opción del combobox y en seguida agregarle una descripción, me gustaría saber...
2 respuestas

Macro que compare valores de sos libros

Macro Tengo un libro llamado "libro1" de ahí quiero tener el botón para correr la macro quiero que al correrla me abra la ventana para yo seleccionar que archivo abrir de excel que este varia el nombre al momento de abrirlo me filtre por dos...
1 respuesta

Macro que me busque un valor y lo copie a otra hoja

Requiero de su sabiduría Necesito crear una macro que evalué si una celda (HOJA 1, Celda U3) cumple una condición. Si la condición se cumple (="Eisai613"), que copie el contenido de una segunda celda de la misma fila (HOJA 1, Celda B3) y lo pegue en...
2 respuestas

Macro para calcular turnos docentes

Como puedo asignarle a un docente un mismo curso en varios turnos pero si que esos turnos ya no hayan sido asignado a otro doce.
1 respuesta

No se de macro en excel y quiero una que copie en hoja 2 parte de fila, si en columna B de hoja 1 "si"

Ante todo no se de macros. Intento hacer una que me realice en la hoja 2 un resumen de datos siempre que cumpla una condición. Que en hoja 1, columna ($b2) aparece "si", pues que en hoja 2 copie las celdas "A2", "C2", "E2"... Necesitaría que alguien...
1 respuesta

8 combobox dependientes enlazados

Estimados expertos tengo el sigiente problema quiero realizar una macro en donde tenga 8 combobox en los cuales quiero desplegar la siguiente informacion tengo el sgte codigo Public ufila As Integer Private Sub ComboBox1_Change() ComboBox2.Clear...
1 respuesta