Macro para crear contador en cualquier celda

"Peter" escribió

Tengo otra pregunta:
Es posible modificar la macro para crear el mismo efecto en cualquier
celda
que yo ubique al lado izquierdo de la columna donde tengo la lista de
filas
utilizadas?
Es decir no solo en la columna "A" y "B".
Saludos.
Peter

"Cacho" wrote:

Sub NumeraDesdeUno()

Cells(ActiveCell.Row, 1) = 1

Range(Cells(ActiveCell.Row,1),Range("B65536").End(xlUp).Offset(,-1)).DataSeries

End Sub

Hola Peter,

Debes cambiar la referencia de la columna.
La sintaxis de Cells es Cells(fila, columna), en el código se indica que la
columna es la 1 que corresponde a la columna A, Prueba a cambiarlo por la
que a ti te interese.

Un saludo,
Juan

Gracias Juan.
Saludos
Peter

"Juan M" wrote:

"Peter" escribió
> Tengo otra pregunta:
> Es posible modificar la macro para crear el mismo efecto en cualquier
> celda
> que yo ubique al lado izquierdo de la columna donde tengo la lista de
> filas
> utilizadas?
> Es decir no solo en la columna "A" y "B".
> Saludos.
> Peter
>
> "Cacho" wrote:
>
>>
>> Sub NumeraDesdeUno()
>>
>> Cells(ActiveCell.Row, 1) = 1
>>
>> Range(Cells(ActiveCell.Row,1),Range("B65536").End(xlUp).Offset(,-1)).DataSeries
>>
>> End Sub
>>
>>
>

Hola Peter,

Debes cambiar la referencia de la columna.
La sintaxis de Cells es Cells(fila, columna), en el código se indica que la
columna es la 1 que corresponde a la columna A, Prueba a cambiarlo por la
que a ti te interese.

Un saludo,
Juan