MACRO PARA OBTENER WEEKNUM Y ESCRIBIR MEDIANTE OFFSET

[ogomza]

Tenlo la siguiente macro, que no funciona.

Lo que quiero es que en base a una columna con fecha, me devuelva eñ número de semana en formato texto o numero y lo coloque un número de columnas a la...

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í

 

[ServandoV]

Hola Ogomsa:

Copia y pega esto y luego lo ejecutas:

<i>
</i>Sub GetWeekend()
Range([C2], [C1].End(xlDown)).Offset(0, -2) = "=WeekNum(RC[2], 2)"
Range([C2], [C1].End(xlDown)).Offset(0, -2) =...

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í

 

[ServandoV]

Range([C2], [C1].End(xlDown)).Offset(0, -2) = "=WeekNum(RC[2], 2)"

Una pequeña corrección de algo que pasaría desapercibido si tienes encabezado

<i>
</i>Sub...

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í

 

[ogomza]

Muchas gracias!

Finalmente lo conseguí con de la siguiente forma:

Spoiler

Sub GetWEEKNUM2()
' https://www.excelforum.com/excel-programming-vba-macros/725665-vba-macro-using-mid-function.html
Dim...

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í