extraer info

19/11/2004 - 16:11 por Angelo | Informe spam
Necesito de la siguiente tabla:

A B
a 120
b 35
c 47
a 125
z 250

Necesito en otra que al colocar la letra "a" solamente me traiga la
siguiente información:

A B
a 120
a 125

Solamente colocando la primera a me llene los demas valores, claro esto con
un a tabla mas larga, y quizas con mas columnas, puede ser A, B, C, D, E,

Saludos,

Preguntas similare

Leer las respuestas

#1 Anonimo
19/11/2004 - 17:01 | Informe spam
Puedes hacerlo con el autofiltro.
Activas el autofiltro con el menu Datos-Filtro-Autofiltro y
después seleccionas en la columna A el valor que te
interesa. Sólo se mostrarán los valores que te interesan.

Puedes copiar sólo las filas visibles si marcas en el menu
edicion-ir a..., la opcion 'sólo celdas visibles'




Necesito de la siguiente tabla:

A B
a 120
b 35
c 47
a 125
z 250

Necesito en otra que al colocar la letra "a" solamente me


traiga la
siguiente información:

A B
a 120
a 125

Solamente colocando la primera a me llene los demas


valores, claro esto con
un a tabla mas larga, y quizas con mas columnas, puede ser


A, B, C, D, E,

Saludos,
.

Respuesta Responder a este mensaje
#2 Angelo
19/11/2004 - 17:31 | Informe spam
si esa opción la se usar, pero necesito hacerlo de la otra forma. porque es
para control mio.

Saludos

"" escribió:

Puedes hacerlo con el autofiltro.
Activas el autofiltro con el menu Datos-Filtro-Autofiltro y
después seleccionas en la columna A el valor que te
interesa. Sólo se mostrarán los valores que te interesan.

Puedes copiar sólo las filas visibles si marcas en el menu
edicion-ir a..., la opcion 'sólo celdas visibles'




>Necesito de la siguiente tabla:
>
>A B
>a 120
>b 35
>c 47
>a 125
>z 250
>
>Necesito en otra que al colocar la letra "a" solamente me
traiga la
>siguiente información:
>
>A B
>a 120
>a 125
>
>Solamente colocando la primera a me llene los demas
valores, claro esto con
>un a tabla mas larga, y quizas con mas columnas, puede ser
A, B, C, D, E,
>
>Saludos,
>.
>

Respuesta Responder a este mensaje
#3 Manuel Romero
19/11/2004 - 23:24 | Informe spam
Entonces usa el filtro avanzado

"Angelo" escribió en el mensaje
news:
si esa opción la se usar, pero necesito hacerlo de la otra forma. porque


es
para control mio.

Saludos

"" escribió:

> Puedes hacerlo con el autofiltro.
> Activas el autofiltro con el menu Datos-Filtro-Autofiltro y
> después seleccionas en la columna A el valor que te
> interesa. Sólo se mostrarán los valores que te interesan.
>
> Puedes copiar sólo las filas visibles si marcas en el menu
> edicion-ir a..., la opcion 'sólo celdas visibles'
>
>
>
>
> >Necesito de la siguiente tabla:
> >
> >A B
> >a 120
> >b 35
> >c 47
> >a 125
> >z 250
> >
> >Necesito en otra que al colocar la letra "a" solamente me
> traiga la
> >siguiente información:
> >
> >A B
> >a 120
> >a 125
> >
> >Solamente colocando la primera a me llene los demas
> valores, claro esto con
> >un a tabla mas larga, y quizas con mas columnas, puede ser
> A, B, C, D, E,
> >
> >Saludos,
> >.
> >
>
Respuesta Responder a este mensaje
#4 KL
19/11/2004 - 23:52 | Informe spam
...o pon esta macro en el modulo de la hoja donde tienes la base de datos,
ve a la hoja y selecciona la celda q contiene el valor a buscar en la
columna A. Nota: esta macro asume q los valores a buscar se encuentran en la
columna A y que la tabla tiene 5 columnas.
Un saludo,
KL

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub

With ActiveSheet
'Borra el extracto anterior
.Range("G:IV").ClearContents

'Establece la primera celda del extracto
Set MiCelda = .Range("G1")

Contador = 0
For Each celda In .UsedRange.Columns(1).Cells
If celda.Value = Target.Value Then
For c = 0 To .UsedRange.Columns.Count
MiCelda.Offset(Contador, c).Value = _
celda.Offset(0, c).Value
Next c
Contador = Contador + 1
End If
Next celda
End With
End Sub



"Manuel Romero" @hotmail.com> wrote in message
news:%
Entonces usa el filtro avanzado

"Angelo" escribió en el mensaje
news:
si esa opción la se usar, pero necesito hacerlo de la otra forma. porque


es
para control mio.

Saludos

"" escribió:

> Puedes hacerlo con el autofiltro.
> Activas el autofiltro con el menu Datos-Filtro-Autofiltro y
> después seleccionas en la columna A el valor que te
> interesa. Sólo se mostrarán los valores que te interesan.
>
> Puedes copiar sólo las filas visibles si marcas en el menu
> edicion-ir a..., la opcion 'sólo celdas visibles'
>
>
>
>
> >Necesito de la siguiente tabla:
> >
> >A B
> >a 120
> >b 35
> >c 47
> >a 125
> >z 250
> >
> >Necesito en otra que al colocar la letra "a" solamente me
> traiga la
> >siguiente información:
> >
> >A B
> >a 120
> >a 125
> >
> >Solamente colocando la primera a me llene los demas
> valores, claro esto con
> >un a tabla mas larga, y quizas con mas columnas, puede ser
> A, B, C, D, E,
> >
> >Saludos,
> >.
> >
>




Respuesta Responder a este mensaje
#5 KL
20/11/2004 - 00:32 | Informe spam
Se me olvidaron dos lineas de codigo q lo hacen mas rapido:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub

Application.ScreenUpdating = False
'Establece la hoja como cualquier hoja activa
With ActiveSheet
'Borra el extracto anterior
.Range("G:IV").ClearContents
'Establece la primera celda del extracto
Set MiCelda = .Range("G1")
Contador = 0
For Each celda In .UsedRange.Columns(1).Cells
If celda.Value = Target.Value Then
For c = 0 To .UsedRange.Columns.Count
MiCelda.Offset(Contador, c).Value = _
celda.Offset(0, c).Value
Next c
Contador = Contador + 1
End If
Next celda
End With
Application.ScreenUpdating = True
End Sub

"KL" wrote in message
news:
...o pon esta macro en el modulo de la hoja donde tienes la base de datos,
ve a la hoja y selecciona la celda q contiene el valor a buscar en la
columna A. Nota: esta macro asume q los valores a buscar se encuentran en
la columna A y que la tabla tiene 5 columnas.
Un saludo,
KL

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
If Target.Column <> 1 Or Target.Value = "" Then Exit Sub

With ActiveSheet
'Borra el extracto anterior
.Range("G:IV").ClearContents

'Establece la primera celda del extracto
Set MiCelda = .Range("G1")

Contador = 0
For Each celda In .UsedRange.Columns(1).Cells
If celda.Value = Target.Value Then
For c = 0 To .UsedRange.Columns.Count
MiCelda.Offset(Contador, c).Value = _
celda.Offset(0, c).Value
Next c
Contador = Contador + 1
End If
Next celda
End With
End Sub



"Manuel Romero" @hotmail.com> wrote in message
news:%
Entonces usa el filtro avanzado

"Angelo" escribió en el mensaje
news:
si esa opción la se usar, pero necesito hacerlo de la otra forma. porque


es
para control mio.

Saludos

"" escribió:

> Puedes hacerlo con el autofiltro.
> Activas el autofiltro con el menu Datos-Filtro-Autofiltro y
> después seleccionas en la columna A el valor que te
> interesa. Sólo se mostrarán los valores que te interesan.
>
> Puedes copiar sólo las filas visibles si marcas en el menu
> edicion-ir a..., la opcion 'sólo celdas visibles'
>
>
>
>
> >Necesito de la siguiente tabla:
> >
> >A B
> >a 120
> >b 35
> >c 47
> >a 125
> >z 250
> >
> >Necesito en otra que al colocar la letra "a" solamente me
> traiga la
> >siguiente información:
> >
> >A B
> >a 120
> >a 125
> >
> >Solamente colocando la primera a me llene los demas
> valores, claro esto con
> >un a tabla mas larga, y quizas con mas columnas, puede ser
> A, B, C, D, E,
> >
> >Saludos,
> >.
> >
>








email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida