Saludos, tengo un confusión con una macro que necesito que me imprima de acuerdo a un rango seleccionado y esta me imprime solo una hoja.
El resultado que busco es que en la Hoja "Recibo de sueldo", tengo una formula de Buscarv, que esta asociada a la Columna AR3, lo que deseo es imprimir de una vez una serie de Recibos colocandolos en la Columna AR, que al imprimir AR3, baje de celda AR4 y así sucesivamente hasta el ultimo dato que le coloque.
Cuando le doy para la impresión solo me imprime unicamente lo que esta en AR3 varias vecces.
Tengo este código pero no encuentro mi error
Sub imprimir()
Dim C As Range
If [ar3] = "" Then Exit Sub
For Each C In Range([ar3], [ar100].End(xlUp))
[at3] = C.Value
ActiveSheet.PrintOut Copies:=1
Next C
End Sub
Saludos, tengo un confusión con una macro que necesito que me imprima de acuerdo a un rango seleccionado y esta me imprime solo una hoja.
El resultado que busco es que en la Hoja "Recibo de sueldo", tengo una formula de Buscarv, que esta asociada a la Columna AR3, lo que deseo es imprimir de una vez una serie de Recibos colocandolos en la Columna AR, que al imprimir AR3, baje de celda AR4 y así sucesivamente hasta el ultimo dato que le coloque.
Cuando le doy para la impresión solo me imprime unicamente lo que esta en AR3 varias vecces.
Tengo este código pero no encuentro mi error
Sub imprimir()
Dim C As Range
If [ar3] = "" Then Exit Sub
For Each C In Range([ar3], [ar100].End(xlUp))
[at3] = C.Value
ActiveSheet.PrintOut Copies:=1
Next C
End Sub
04 Nomina Abril.xlsm