¿Bucle macro hacia abajo?
Buenas, es la primera vez que escribo y es que no encuentro solución en ningún tutorial a mi problema.
Tengo datos de dos series, exportaciones e importaciones, para varios años. Me piden que lo trimestralice, y lo consigo hacer pero solo para las exportaciones que están en la tabla de arriba. Lo hago con esta expresión:
Public ColumnaEsquinaDatos As Integer, ColumnaEsquinaTrimestres As Integer
Sub TrimestralizarTodo()
'
Call PonerTipoYnombresAutonomias
ColumnaEsquinaDatos = 1
ColumnaEsquinaTrimestres = 2
Do
Call PonerAñoyTrimestres
Call TrimestralizarAño
' cambiar de año
ColumnaEsquinaDatos = ColumnaEsquinaDatos + 14
ColumnaEsquinaTrimestres = ColumnaEsquinaTrimestres + 5
Sheets("Pan2002_2007"). Select ' Voy a la hoja de datos
Cells(1, ColumnaEsquinaDatos). Select ' voy a la celda de la esquina
Loop Until ActiveCell.Offset(1, 0).Value = ""
¿Es posible conseguir que el bucle se repita casillas abajo? De ser así, ¿Cómo se debería escribir y donde habría que introducir la orden?
Muchas gracias!
Tengo datos de dos series, exportaciones e importaciones, para varios años. Me piden que lo trimestralice, y lo consigo hacer pero solo para las exportaciones que están en la tabla de arriba. Lo hago con esta expresión:
Public ColumnaEsquinaDatos As Integer, ColumnaEsquinaTrimestres As Integer
Sub TrimestralizarTodo()
'
Call PonerTipoYnombresAutonomias
ColumnaEsquinaDatos = 1
ColumnaEsquinaTrimestres = 2
Do
Call PonerAñoyTrimestres
Call TrimestralizarAño
' cambiar de año
ColumnaEsquinaDatos = ColumnaEsquinaDatos + 14
ColumnaEsquinaTrimestres = ColumnaEsquinaTrimestres + 5
Sheets("Pan2002_2007"). Select ' Voy a la hoja de datos
Cells(1, ColumnaEsquinaDatos). Select ' voy a la celda de la esquina
Loop Until ActiveCell.Offset(1, 0).Value = ""
¿Es posible conseguir que el bucle se repita casillas abajo? De ser así, ¿Cómo se debería escribir y donde habría que introducir la orden?
Muchas gracias!
Respuesta de Elsa Matilde
1
Quizás te falte revisar otros tutoriales o manuales de macros ;)
A simple vista dentro del Do... Loop, estás seleccionando siempre la fila 1 con Cells(1, Col...), para pasar a otras filas, debieras utilizar una variable que irás incrementando antes de la línea del Loop.
Pero si esa instrucción con 1 es correcta debieras revisar las otras 2 rutinas (que no incluiste) que parece ser las que hacen el trabajo
A simple vista dentro del Do... Loop, estás seleccionando siempre la fila 1 con Cells(1, Col...), para pasar a otras filas, debieras utilizar una variable que irás incrementando antes de la línea del Loop.
Pero si esa instrucción con 1 es correcta debieras revisar las otras 2 rutinas (que no incluiste) que parece ser las que hacen el trabajo
