si yo modifico esta sentecia
Código:
ActiveCell = Range(celda).Offset(0, 2)
a
ActiveCell = Range(celda).Offset(0, 3)
puedo obtener otro campo del registro, el tema es que que no puedo mostrar mas de dos campo a la vez yo creo que tengo que hacer una especie de arreglo he ir sumando estas opciones pero no se como
gracias por constestar