macro excel

31/03/2008 - 18:19 por Luis Ormeño | Informe spam
Hola a todos

Tengo un archivo de excel, con dos hojas, en la primera una base de datos y
en la segunda un formulario de datos, coloco en la segunda hoja el numero de
codigo y me actualiza todos los datos, como puedo hacer para poner desde un
codigo de inicio hasta un final y que despues de actualizar el primero este
sea impreso y posteriormente cambie al siguiente codigo asi sucesivamente.

Gracias
 

Leer las respuestas

#1 Héctor Miguel
31/03/2008 - 21:14 | Informe spam
hola, Luis !

Tengo un archivo de excel, con dos hojas, en la primera una base de datos y en la segunda un formulario de datos
coloco en la segunda hoja el numero de codigo y me actualiza todos los datos
como puedo hacer para poner desde un codigo de inicio hasta un final
y que despues de actualizar el primero este sea impreso y posteriormente cambie al siguiente codigo asi sucesivamente...



la siguiente es una consulta +/- similar que podrias revisar y adaptar a tu situacion "real"
(en tanto comentas algunos detalles que estas dejando "en el tintero)...

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

== consulta => ... como se complica demasiado todo este asunto... vamos a imaginar algo mas sencillo.
Supongamos... una hoja llamada RecuentoCaja, y... en A1,B1,C1,D1,E1 y F1
los ... titulos...: Num.Recibo, Turno, Fecha, Apellidos y Nombre, Cantidad y Total.
Supongamos... en Num. de Recibos desde el 1 hasta el 100...
ahora bien si quisiera imprimir los recibos comprendidos entre el numero 30 y 52 como podria hacerlo?
... que me preguntara de alguna manera los que quiero imprimir y lo imprimiera Ejemplo:
Numero primer recibo a imprimir: 30
Numero ultimo recibo a imprimir: 52 [...]



== propuesta =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

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

Preguntas similares