Office - Excell + visual basic

 
Vista:

Excell + visual basic

Publicado por OSKAR (3 intervenciones) el 14/10/2004 16:47:38
Tengo libro en excel y tiene varias hojas. Quisiera seleccionar de una columna donde hay una serie de codigos. Aquellos codigos los cuales estuvieran comprendidos entre el 40000 y 49999 y tambien los que estuvieran entrre el 60000 y 69999.

Que se me selecionaran de alguna forma para luego poder dar al boton dcho del raton y pegar todos esos posibles registros en una hoja en excel vacia o en un archivo en word.

Me imagino que se hara con Visual Basic for aplications. Alguien me podria dar alguna idea o codigo para hacer mas o menos esto.

Colum1 Colum2 Colum3 Colum 4
111222 42356 Ingresos mixtos 26/10/2004
343223 56789 Ingesos multiples 16/10/2004
342244 46422 Gastos variables 12/10/2004
242444 63248 Varios 26/10/2004

En este caso se me tendrian que selecionar (es la columna 2 la que tengo que mirar), el primer, tercer y cuarto registro. Me interesa seleccionar tambien lo que hubiera en la columna3 y columna4 de dicho registro. Es decir toda la fila.

Gracias

OSCAR
[email protected]
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:Excell + visual basic

Publicado por CArlos Otero (314 intervenciones) el 14/10/2004 20:20:35
Buenas tardes oscar, creo que te puede servir un codigo parecidoa l siguiente:
Sheets("Hoja1").Select
Range("A:D").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=40000", Operator:=xlAnd, _
Criteria2:="<=49999"
Selection.Copy
Sheets("Hoja2").Select
Range("A1").Select
ActiveSheet.Paste

Este codigo funciona asi: Selecciona las columnas que tienen los datos, aplica un autofiltro y luego le da los criterios de filtrado (entre 40000 y 49999). Solamente es necesario organizar el codigo para que te cumpla los otros criterios.

Espero te sirva, si tuenes alguna dificultad no dudes en contactarme.

Atentamente,

CArlos Otero
Colombia
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