Macro formula en un numero de filas variables

[edoko83]

Hola muy buenas es mi primera vez en este foro y mi primera pregunta espero redactarla correctamente. Mi pregunta es la siguiente tengo 2 columnas la columna A y B, la columna A contiene fechas y...

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í

 

[joseA]

Un archivo adjunto...

 

[edoko83]

Basicamente seria eso 2 columnas donde el la B aplico la funcion pero quiero que se aplique a todas las filas las cuales pueden ser mas o aveces menos

 

[Adrian]

Hola, si haces doble clic en la esquina inferior derecha de la celda B2, con el puntero que toma la forma de cruz negrita y finita se autocompleta hasta la última fila con datos.

 

[edoko83]

si claro ya lo había probado pero la idea era automatizar esta parte debido que no es la única en una serie de documentos porque la idea es que se inserte automáticamente la función y que se...

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í

 

[joseA]

Sub Mes()
    Dim qt As Integer
    qt = Sheets("Hoja1").[A2].CurrentRegion.Rows.Count
    Sheets("Hoja1").Range("B2:B" & qt).ClearContents
    Sheets("Hoja1").Range("B2:B" & qt) =...

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í

 

[edoko83]

Muchísimas gracias el código funciono perfectamente de verdad muy agradecido.

 

[joseA]

Agregar como última línea:

    Sheets("Hoja1").Range("B2:B" & qt).Value = Sheets("Hoja1").Range("B2:B" & qt).Value

 

[edoko83]

listo agregado graacias.

 

[Adrian]

Ah, no comprendí bien, esto es si ya en B2 esta la fórmula:
[B2].AutoFill Destination:=Range("B2:B" & Range("A" & Rows.Count).End(xlUp).Row)