Sumar 1 al siguiente Valor de la ultima celda

[serge]

Hola amigos del Foro todoexcel, un favor me pueden ayudar a revisar la macro incluida en el anexo.
Busca la ultima celda en A y de ahí me llena una serie que para hasta el rango indicado en celda...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Hola! serge. Intenta con:

Sub Llenar2()
With Cells(Rows.Count, "a").End(xlUp).Offset(1)
  .Value = 1
  .DataSeries Rowcol:=2, Type:=xlLinear, Step:=1, Stop:=.Parent.[c1]
End With
End...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[serge]

Gracias por responder tan rápido, solo que aun no suma +1 al ultimo valor y de ahí continué sumando.

Como la función de rellenar serie con incremento de 1, solo que con macro.

Gracias.

 

[serge]

Conseguí esta

Sub arrastrarformula()
Dim UltimaFila As Long

UltimaFila = Cells(Rows.Count, "B").End(xlUp).Row

Range("A5").FormulaR1C1 = "=R[-1]C+1"
Range("A5:A" &...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[Cacho R]

Mira, serge.
Cuando en tu primer mensaje expusiste tu necesidad pero presentaste una macro que hacía otra cosa, quedaron al descubierto dos cuestiones:

- Que no entiendes mucho del tema...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí