Mensaje para Héctor

02/06/2007 - 18:11 por Carmen | Informe spam
Hola Héctor soy Carmen, ¿te llego al correo el envío? ¿Hay algún problema
para visualizarlo? Te comento esto por lo que me sucedido al abrirlo en otro
ordenador que utilicé. Si fuera así, me lo dices y pongo unos bonotes fuera
para ejecutar las macros y te lo envio de nuevo.
Saludos
Carmen
 

Leer las respuestas

#1 Héctor Miguel
03/06/2007 - 00:41 | Informe spam
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.

Preguntas similares