Tablas de multiplicar con DataSeries

[Antoni]

Hola:

Pues nada, que pasaba por aquí, he visto luz, y he subido.

Esta vez va del método DataSeries del objeto Range, por si no lo sabiais sirve para generar series de datos dentro de un rango.

Va muy bien para numeraciones y serialización de fechas.

En el ejemplo, generamos las tablas de multiplicar del 1 al 10 sin utilizar ni una sola instrucción aritmética.

Sub TablasMultiplicar()

   For Columna = 1 To 10

       Cells(1, Columna) = Columna

       Set Rango = Range(Cells(1, Columna), Cells(10, Columna))

       Rango.DataSeries Step:=Columna

   Next

End Sub

[/CODE]

Pues ale, que "vos" lo paseis bien.

Saludos