creating report to be print

se que la idea no esta muy clara ok vamos a tratar!!!!
1) los datos serian escoginos por un usuario, es decir los datos serian
escogidos randomly

2) la idea seria imprimir juntos solo los datos seleccionado

3) la opcion que prefiero es la que funciones con lo que necesito hacer no
hay problema

gracias !!!!!!!!!

"Héctor Miguel" wrote:

hola, ?

> ok seria la op1 yo tengo una lista de datos en excel son dos columnas y lo que necesito es
> poder seleccionar 4 o 5 diferentes datos e imprimirlos como dije antes sin imprimir los datos que no escogi
> lo que no logro hacer es como hacer para desarrollar las selecciones.

>> 'el detalle'... es que 'de este lado' [del mensaje] todavia no se puede 'apreciar el panorama' que tu estas 'viendo' :))
>> [asi que por lo pronto... vamos intentando con algunos 'acercamientos', p.e.]:
>>
>> op1: si la 'base de datos' es un listado en una hoja de excel -?-
>> usar autofiltros, o filtros avanzados, o formulas para extraer a otro lugar los 4 o 5 'codigos', o macros, o... ???

ok... de la op1 anterior... que datos son los que necesitas o quieres que 'sean adivinados' ?

- quieres imprimir uno por uno ? [o los 4 o 5 'juntos' pero SIN los que no seleccionaste] ???
- te sirven los 4 o 5 primeros que 'aparezcan' ? [o tienes alguna forma de indicar cuales serian esos 4 0 5] ???
- necesitas alguna 'preparacion'... por si alguno de los 4 o 5 'requeridos' NO existiera en el listado ???
- que opciones preferirias ?
autofiltros
filtros avanzados
formulas y funciones en un rango distinto
macros
???

solo imaginate que 'de este lado' [del mensaje] NO se tiene a la vista el arreglo de los datos ni la situacion que necesitas 'resolver' :D

saludos,
hector.

hola, ?

se que la idea no esta muy clara ok vamos a tratar!!!!
1) los datos serian escoginos por un usuario, es decir los datos serian escogidos randomly
2) la idea seria imprimir juntos solo los datos seleccionado
3) la opcion que prefiero es la que funciones con lo que necesito hacer no hay problema
gracias !!!!!!!!!

[bueno... parece que 'por este camino' de las adivinanzas, no vamos a llegar a donde quieres] :(
[al menos, con la rapidez y eficiencia que 'pareces' necesitar] :))

prueba la opcion de los filtros avanzados [p.e.]
suponiendo que tienes encabezamientos o titulos en 'A1' y 'A2' [p.e. Campo1 y Campo2]

1) copialos a dos rangos 'distantes' iguales [p.e. en 'D1:E1' y en 'G1:H1']
2) escribes 'debajo' del titulo apropiado en 'D1' o en 'E1' los 4 o 5 registros a rescatar [desde la fila 2 a la fila 5 o 6]
3) selecciona alguna celda dentro de tu listado 'original' [columnas 'A' o 'B']
4) ve a [menu] datos / filtro / filtro avanzado...
a) selecciona lal opcion de: -> copiar a otro lugar
b) para el rango de criterios, selecciona los titulos en 'D1:E1' MAS los 4 o 5 registros 'solicitados'
c) para el rango de 'copiar a:' -> selecciona los titulos de 'G1:H1'
5) imprimes el rango que resulte de la extraccion de los datos 'originales' ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

hola [de nuevo], ? [fe de erratas] :))

suponiendo que tienes encabezamientos o titulos en 'A1' y 'A2' [p.e. Campo1 y Campo2]

debio decir: encabezamientos o titulos en 'A1' y 'B1' :D

saludos,
hector.

Hola Hector Miguel!!!!!

Ok tengo un problema con la solucion que me estas planteando, el problema es
que no voy a ser yo quien va a elegir los datos a imprimir, va a ser una
persona cualquiera... entonces la idea es que esta vea la lista de los
codigos y descripciones y con un click en un check box o algo asi pueda ir
eligiendo de la lista lo que necesite y genere un reporte de esos datos que
escogio para ser impresos..
espero estar siendo mas clara esta vez y gracias por tu ayuda!!!!

"Héctor Miguel" wrote:

hola [de nuevo], ? [fe de erratas] :))

> suponiendo que tienes encabezamientos o titulos en 'A1' y 'A2' [p.e. Campo1 y Campo2]

debio decir: encabezamientos o titulos en 'A1' y 'B1' :D

saludos,
hector.

hola, ?

... tengo un problema con la solucion que me estas planteando
... no voy a ser yo quien va a elegir los datos a imprimir, va a ser una persona cualquiera
... la idea es que esta vea la lista de los codigos y descripciones y con un click en un check box o algo asi
... ir eligiendo de la lista lo que necesite y genere un reporte de esos datos... para ser impresos...

el siguiente 'procedimiento' [seguramente] te parecera un pelin 'largo' :-((
[te aseguro que si lo ejecutas 'bien'... su 'operacion' sera lo suficientemente 'sencilla' y amigable para la otra persona] :D
[toma en cuenta que 'sigo adivinando' todo tipo de 'imponderables' que no han salido 'a la luz' en tus consultas] :))

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

1) copia los encabezados [supuestos] para codigo y descripcion... de 'A1:B1' a:-> 'D1:E1' y: -> 'G1:H1'

2) define los siguientes 'nombres' [menu: insertar / nombre / definir...] usando las formulas sugeridas:
[toma nota que mi sistema usa como separador de argumentos a la coma ',' NO al punto y coma ';'] :D
nombre: formula en el campo 'se refiere a:'
Listado =desref($a$1,,,contara($a:$a),2)
Lista =desref($a$1,1,,contara($a:$a)-1,2)
Filtro =desref($d$1,,,contara($d:$d),2)
Salida =$g$1:$h$1
Reporte =desref($g$1,,,contara($g:$g),2)

-> despues... defines una 'area de impresion' [cualquiera] desde [menu] archivo / area de impresion / establecer area de impresion
y... re/defines el rango asignado, cambiandolo por el nombre definido como: -> Reporte
[cuando vayas a realizar la impresion... sera el rango que contenga el extracto de los filtros avanzados] ;)

3) incrusta/inserta/... en 'esa' hoja, un control de lista de la coleccion Microsoft Forms 2.0 ListBox
-> muestra la barra de herramientas 'cuadro de controles' -> pulsa en el boton 'mas controles...'
lo encontraras en el listado por orden alfabetico

4) dale las dimensiones y ubicacion que mejor consideres adecuadas [p.e. entre las columnas 'D y E']
[luego terminar con el 'modo de die#o' pusando el boton apropiado de la barra de herramientas] ;)

5) copia/pega las siguientes lineas -> en el modulo de codigo de 'esa' hoja:
[puedes hacer un click-secundario sobre la etiqueta con el nombre de la hoja y seleccionas: -> ver codigo]

Private Sub ListBox1_GotFocus()
With Me.ListBox1
.ColumnCount = 2
.ColumnHeads = True
.ColumnWidths = "40;50"
.MultiSelect = fmMultiSelectMulti
.ListFillRange = "lista"
End With
Prepara
End Sub
Private Sub ListBox1_Change()
Prepara
Dim Codigo As Integer, Fila As Byte
With Me.ListBox1
For Codigo = 0 To .ListCount - 1
If .Selected(Codigo) Then
[d2].Offset(Fila) = .List(Codigo, 0)
[e2].Offset(Fila) = .List(Codigo, 1)
Fila = Fila + 1
End If
Next
End With
End Sub
Private Sub ListBox1_LostFocus()
[listado].AdvancedFilter xlFilterCopy, [filtro], [salida]
End Sub
Private Sub Prepara()
On Error Resume Next
[filtro].Offset(1).ClearContents
[reporte].Offset(1).ClearContents
End Sub

6) cierra el editor de vba {Alt}+{F4} regresas a excel y comienzas a probar/ajustar/adaptar/... :))