Excel - Entre Rangos

   
Vista:

Entre Rangos

Publicado por Jose Gpe  (75 intervenciones) el 16/10/2008 22:02:03
Ayuda Foro.!

Tengo un archivo con las siguientes columnas

A=NumDepartamento
B=Codigo Articulo
C=Descripcion del articulo
D=Cantidad
E=Monto etc.

me pueden propocionar algun macro donde le pueda indicar
que me imprima Rangos del "NumDepartamento" a "X NumDepartamento"


Gracias foro
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Entre Rangos

Publicado por jcs (494 intervenciones) el 17/10/2008 11:16:56
Muy buenas

mira a ver si te sirve esta macro

Sub imprimir()
primero = InputBox("primera referencia")
ultimo = InputBox("última referencia")
Set c = Range("a:a").Find(primero, LookIn:=xlValues)
If Not c Is Nothing Then
filaprimero = c.Row
End If
Set c = Range("a:a").Find(ultimo, LookIn:=xlValues)
If Not c Is Nothing Then
filaultimo = c.Row
End If
Rows(filaprimero & ":" & filaultimo).Select
Selection.PrintOut Copies:=1, Collate:=True

End Sub

Espero que te sirva

Un saludo. Juanjo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar