Foro Excel

Buen dí­a, amigos del foro

Pretendo explicarme y espero me ayuden
Tengo una macro que realice para imprimir 6 recibos (cada recibo es diferente de acuerdo a una fecha de vencimiento)
Esta macro me genera 6 referencias de acuedo a una fecha de vencimiento de una persona, y los mando a imprimir, pero hay ocaciones en que tengo que imprimir 3 recibos con 3 referencias distintas (para esa misma persona) y lo que tengo que hacer es abrir y VBA y selccionar el modulo,

Sub Recibos()
Application.ScreenUpdating = False
ActiveSheet.PageSetup.PrintArea = "$B$1:$g$17"
For fila = 2 To 7

y entonces cambiar donde dice: For fila = 2 To 7 a
For fila = 2 To 3 o
For fila = 2 To 4 o
For fila = 4 To 7 según lo requiera
alguien me pudiera ayudar con esto, para no estar haciendo esta operación constantemente, lo he intetado hacerlo con otra macro pero no me funciona.

de antemano muchas gracias por su ayuda.

Nota: no soy beno en esto de las macros, pero he aprendido mucho con ustedes

Prueba con estas 2 lineas como sustitucion al "For fila = 2 To 7 "

Nrecibos=InputBox("No tiene control de errores se debe introducir un numero entero positivo mayor o igual a 2", "Solicitud de numero de impresiones", 7)
For fila = 2 To Nrecibos

Pon el inputbox antes del screenupdating

efectivamente con 2 inputs.
uno para el primer dato y otro para el ultimo.

checate el manejo de adrian en este post.
http://www.exceluciones.com/portal/viewtopic.php?t=6605&highlight=

Perfecto, jbf99 y ST

Ha funcionado de maravilla, se los agradezco mucho por su ayuda y he aprendido un poco mas....

Saludos amigos desde la ciudad de Querétaro, México