Columna_Libre en macro

Quiero modificar esta macro para enumerar a partir de la celda A2,A3,A4...los
datos introducidos mediante la hoja1 "Formularios" a la hoja2 "Equipos" que
cuenta con 5 columnas tituladas asíi:

A B C D E
1 Equipo Rama División Días Juego Horario
2
3

... y la necesito así:

A B C D E F
1 No. Equipo Rama División Días Juego Horario
2
3

Espero ser claro, muchas gracias por la ayuda que puedan dar...

Sub equipos_form()
Dim linea_libre As Long

Application.ScreenUpdating = False

Sheets("Equipos").Select
linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(linea_libre, 1).Value = Sheets("Formularios").[I2]
Cells(linea_libre, 2).Value = Sheets("Formularios").[I3]
Cells(linea_libre, 3).Value = Sheets("Formularios").[I4]
Cells(linea_libre, 4).Value = Sheets("Formularios").[I5]
Cells(linea_libre, 5).Value = Sheets("Formularios").[I6]
Sheets("Formularios").Select

Application.ScreenUpdating = True

MsgBox "Se ha agregado el equipo " & Sheets("Formularios").[I2]

End Sub

Saludos,
Raúl Espinosa
México, D.F.

On 12 oct, 23:10, Raúl wrote:
> Quiero modificar esta macro para enumerar a partir de la celda A2,A3,A4los
> datos introducidos mediante la hoja1 "Formularios" a la hoja2 "Equipos" que
> cuenta con 5 columnas tituladas asíi:
>
> A B C D E
> 1 Equipo Rama División Días Juego Horario
> 2
> 3
>
> ... y la necesito así:
>
> A B C D E F
> 1 No. Equipo Rama División Días Juego Horario
> 2
> 3
>
> Espero ser claro, muchas gracias por la ayuda que puedan dar...
>
> Sub equipos_form()
> Dim linea_libre As Long
>
> Application.ScreenUpdating = False
>
> Sheets("Equipos").Select
> linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
> Cells(linea_libre, 1).Value = Sheets("Formularios").[I2]
> Cells(linea_libre, 2).Value = Sheets("Formularios").[I3]
> Cells(linea_libre, 3).Value = Sheets("Formularios").[I4]
> Cells(linea_libre, 4).Value = Sheets("Formularios").[I5]
> Cells(linea_libre, 5).Value = Sheets("Formularios").[I6]
> Sheets("Formularios").Select
>
> Application.ScreenUpdating = True
>
> MsgBox "Se ha agregado el equipo " & Sheets("Formularios").[I2]
>
> End Sub
>
> Saludos,
> Raúl Espinosa
> México, D.F.

hola Raul,

si los datos empiezan a partir de A2, tal y como expones, creo que te
valdria simplemente algo asi (manteniendo tu macro +/- tal cual)

Sub equipos_form()
Dim linea_libre As Long


Application.ScreenUpdating = False


Sheets("Equipos").Select
linea_libre = WorksheetFunction.CountA(Range("A:A")) + 1
Cells(linea_libre, 1).Value = linea_libre - 1
Cells(linea_libre, 2).Value = Sheets("Formularios").[I2]
Cells(linea_libre, 3).Value = Sheets("Formularios").[I3]
Cells(linea_libre, 4).Value = Sheets("Formularios").[I4]
Cells(linea_libre, 5).Value = Sheets("Formularios").[I5]
Cells(linea_libre, 6).Value = Sheets("Formularios").[I6]
Sheets("Formularios").Select


Application.ScreenUpdating = True


MsgBox "Se ha agregado el equipo " & Sheets("Formularios").[I2]


End Sub


a ver si te vale

un saludo
Ivan