Parte del nombre de mi hoja es la fecha (la parte entre los guiones) y me gustaría crear una macro que use el nombre de la hoja para darme el número de la semana en la celda H1 de la hoja.
Nombre de hoja: BO-D58C2_-20180507-13260132
Me gustaría extraer en weeknum a la celda H1: 20180507
¿Tienes algún consejo para un novato de VBA?
Respuestas
1 para la respuesta № 1use la siguiente función para obtener la fecha de la semana
Function dydate() As String
sname = ActiveSheet.Name
dydate = Mid(sname, InStr(sname, "_-") + 2, 8)
End Function
0 para la respuesta № 2
Rango ("H1"). Valor = ActiveSheet.Name
obtendrá el nombre de las hojas y lo pondrá en una celdapara ti. A partir de ahí, puede reemplazar cualquier número de RegEx y String para extraer solo el código entre los guiones, y desde allí convertirlo al número de Semana.