Mensaje para Héctor

hola, Carmen !

... te llego al correo el envio? Hay algun problema para visualizarlo? ...

recibido... y *no problem* ;) [solo que... te *anticipo* dos cosillas]:

1) considera que la 'administracion del tiempo' [incluyendo el mio] no esta *dentro de mis dominios* :(
[por si me tardo mas de lo que esperabas] ;)

2) cuando te sugeri este codigo [que tienes en el adjunto que enviaste]...

Sub Imprime_recibos()
Dim Primero As Integer, Ultimo As Integer, Sig As Integer
Primero = Val(Trim(InpurBox("Primer recibo a imprimir ?")))
Ultimo = Val(Trim(InpurBox("Ultimo recibo a imprimir ?")))
With Worksheets("factura")
For Sig = Primero To Ultimo
.Range("c5") = Sig
.PrintOut
Next
End With
End Sub

recordaras que tambien te comente cuales eran *mis* supuestos [con relacion a la celda que contiene recibo a imprimir]:

si suponemos [tambien] que en tu hoja llamada 'Factura' [que seria el formato donde se imprimen dichos recibos]
a) pones en alguna celda [p.e. en $C5$] el numero de recibo 'en turno/curso/orden/...' que se esta imprimiendo/facturando/...
b) que en el 'resto' de los campos en dicho formato de Factura -> los llenas con funciones como buscarv(... indice(... coincidir(...
prueba con alguna macro +/- como la siguiente: OJO: no tiene preparacion/prevencion/correccion de -posibles- 'errores' :D

pues bien... resulta que 'la celda' donde se indica cual es el recibo 'en turno/curso/orden/...' que se esta imprimiendo/facturando/...
-> NO es la celda $C$5 [como era mi supuesto] pero tu si conocias la celda *real* [en el adjunto resulta ser $C$16]
[entonces] solo es necesario que modifiques *la celda* a que hace referencia el codigo [c5 por c16]
de:
.Range("c5") = Sig
a:
.Range("c16") = Sig

3) por lo relativo a la hoja 'RecuentoCaja'...
[plis, dejame acabar de 'masticar' tus comentarios en el correo y analizar el archivo] :))

saludos,
hector.

Gracias Héctor, ya sé que estoy quitándote mucho tiempo con esta aplicación,
perdona que sea así. Veo que tenía algunas cosillas que corregir, la verdad
que no termina uno de aprender cosas. Además cuanto más miro, más me saturo.
Algunas veces pienso que sería mejor parar un poco, pero por otra parte, si
paro no lo termino nunca.
Voy a mirar muy despacito lo que me comentas, tratando de aprender, no solo
de corregirlo sin más. Y con respecto a lo otro, no te preocupes, cuando
puedas, y agradecida además de que me ayudes.
Entiendo que si ves los cuadros de texto que introduje para activar las
macros. Me alegro, por qué yo al cambiar del ordenador de casa al trabajo,
no se ven, y tengo que ponerlos en el del trabajo.
Cualquier cosa me lo dices.
Un saludo y muchaaaaaaaaasssssssssss gracias
Carmen

Héctor, perdona que te moleste de nuevo, pero me he dado cuenta que en
realidad la hoja RecuentoCaja no es necesaria, se puede imprimir sobre la de
DatosClientes, aunque salga algún dato que no me interesa da lo mismo, pero
posiblemente ahorremos trabajo y quitemos dificultades a la hora de hacer la
aplicación
¿Qué opinas? ¿La quitamos?
Te envio este mensaje, por si acaso facilita la tarea, no por ser pesada y
dar la lata
Gracias Héctor y un saludo
Carmen