Borrar filas

25/08/2004 - 10:19 por periodico | Informe spam

Soy nuevo en Excel, asi que perdonen si la pregunta que hago es demasiado
sencilla...
Estoy haciendo una macro para un tratamiento de archivos, y necesito en un
momento determinado "doblar" la mitad exacta de las filas que hay (cada
archivo puede tener diferente numero de filas) , es decir, cortarla por la
mitad y despues debo invertir el orden de esta, de abajo a arriba... y no es
alfabetico!!.¿Como lo hago? He intentado de todo, pero no se como cortar o
borrar refirirendome a CONTARA(A:A), (que me da el numero de filas de la
columna.)
Por ejemplo:
Tengo y necesito
A A B
1 1 2
2 2 1
3 3 4
4
1
2

Siga el debate

5 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

25/08/2004 - 11:26 | Informe spam

hola, [?] !

... "doblar" la mitad exacta de las filas que hay (cada archivo puede tener diferente numero de filas)
... y despues debo invertir el orden de esta, de abajo a arriba... y no es alfabetico!!. [...]
Tengo y necesito
A A B
1 1 2
2 2 1
3 3 4
4
1
2

suponiendo que el rango 'va' desde 'A1:A[n]'
macro en un modulo de codigo 'normal' ==Sub Invertir_Borrar()
Dim Fila As Integer, Siguiente As Integer
With Range(Range("a1"), Range("a65536").End(xlUp))
For Fila = .Rows.Count To Application.Round(.Rows.Count / 2, 0) + 1 Step -1
Siguiente = Siguiente + 1
Range("b" & Siguiente) = .Cells(Fila)
.Cells(Fila).ClearContents
Next
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

Responder a este mensaje

#2 periodico

25/08/2004 - 13:05 | Informe spam

Muchas gracias!!
Hace relativamente poco que utilizo macros y las realizo grabando
secuencias de acciones (no suelo programar). Me encuentro ahora con el
problema de unir esta macro que me has pasado a una secuencia de acciones
que debo realizar. ¿Podrias decirme como anidarla o introducirla?
PD: Muchas gracias de nuevo.
Perdon, ya se que mis dudas son muy basicas pero no encuentro
descripciones de mis probemas en ningun manual.

"Héctor Miguel" escribió:

hola, [?] !

> ... "doblar" la mitad exacta de las filas que hay (cada archivo puede tener diferente numero de filas)
> ... y despues debo invertir el orden de esta, de abajo a arriba... y no es alfabetico!!. [...]
> Tengo y necesito
> A A B
> 1 1 2
> 2 2 1
> 3 3 4
> 4
> 1
> 2

suponiendo que el rango 'va' desde 'A1:A[n]'
macro en un modulo de codigo 'normal' ==> Sub Invertir_Borrar()
Dim Fila As Integer, Siguiente As Integer
With Range(Range("a1"), Range("a65536").End(xlUp))
For Fila = .Rows.Count To Application.Round(.Rows.Count / 2, 0) + 1 Step -1
Siguiente = Siguiente + 1
Range("b" & Siguiente) = .Cells(Fila)
.Cells(Fila).ClearContents
Next
End With
End Sub
¨¨¨¨¨¨¨¨¨¨¨¨
saludos,
hector.

Responder a este mensaje

#3 Héctor Miguel

26/08/2004 - 04:18 | Informe spam

hola, periodico !

... unir esta macro ... a una secuencia de acciones ... ¿... como anidarla o introducirla?

[en principio] ->todas<- las lineas que estan...
-> despues del nombre de la macro [Sub Inertir_Borrar()]
-> 'hasta' antes del final del procedimiento [End Sub]
podrias 'incluirlas' dentro de otro procedimiento +/-... [???]
-> despues de las acciones que se 'deban' realizar antes y...
-> antes de las acciones que se 'deban' realizar despues.

... se que mis dudas son muy basicas pero no encuentro ... en ningun manual.

[creo que] los manuales son 'generalmente generales' :))
incluyen las 'reglas basicas' para el entendimiento de las formas de resover 'situaciones' ;)

saludos,
hector.

Responder a este mensaje

#4 periodico

26/08/2004 - 10:53 | Informe spam

Muchas gracias!!
Al final lo habia logrado antes de responderme, pero gracias de todas
formas... es que estoy de practicas en una empresa, y sin haber hecho macros
NUNCA me dijeron, hala! haz esto, y en esas estoy... :$
Esto es ya la ultima duda.. jejje... tengo todo ya hecho y funciona
correctamente... lo unico que me queda es poder ejecutar la macro desde
cualquier libro en un PC. Me explico: desde el libro donde la he creado no
hay problema, pero necesito que este disponible siempre que abra excel!!!
¿Que hago?? Copiando la macro en la carpeta Mis macros no funciona...

Gracias de nuevo!! (Un novato en esto)

"Héctor Miguel" escribió:

hola, periodico !

> ... unir esta macro ... a una secuencia de acciones ... ¿... como anidarla o introducirla?

[en principio] ->todas<- las lineas que estan...
-> despues del nombre de la macro [Sub Inertir_Borrar()]
-> 'hasta' antes del final del procedimiento [End Sub]
podrias 'incluirlas' dentro de otro procedimiento +/-... [???]
-> despues de las acciones que se 'deban' realizar antes y...
-> antes de las acciones que se 'deban' realizar despues.

> ... se que mis dudas son muy basicas pero no encuentro ... en ningun manual.

[creo que] los manuales son 'generalmente generales' :))
incluyen las 'reglas basicas' para el entendimiento de las formas de resover 'situaciones' ;)

saludos,
hector.

Responder a este mensaje

#5 Héctor Miguel

26/08/2004 - 11:12 | Informe spam

hola, periodico !

... ultima duda ... poder ejecutar la macro desde cualquier libro en un PC.
... necesito que este disponible siempre que abra excel!!! [...]

podrias comenzar tu libro de macros 'personales' [Personal.XLS] o 'iniciarte' en crear complementos [Add-In]
el dia 21 de agosto, MarianoH inicio una consulta con el tema de: 'Ambito de una funcion'
[me parece que la encontraras... 'interesante'] :))

si no encuentras la manera de 'consultarla'... ¿avisas?
saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida