Saltar al contenido

Numero de Semana en VBA


Recommended Posts

publicado

Hola A todos

Espero estén muy bien.

Recurro una vez mas a uds con lo siguiente:

Para calculo de día semana del mes, buscando encontré lo siguiente:

=NUM.DE.SEMANA(B2;2)-NUM.DE.SEMANA(FIN.MES(B2;-1)+1;2)+1

Siendo B2, la celda que contiene la fecha.

Ahora mi tema es que quiero obtener el resultado dado por esta función en vba.

Adjunto un pequeño ejemplo.

 

Saludos Cordiales

Pedro

ejemplo.xlsm

publicado

Hola Mauricio

Gracias por responder, he llegado a obtener el numero de semana del año, pero lo que quiero es lograr la semana del mes en curso, de acuerdo a la fecha en texbox.

Saludos Cordiales

Pedro

publicado

Coloca en la celda B2 la siguiente formula:

=NUM.DE.SEMANA(A2)-NUM.DE.SEMANA(FECHA(AÑO(A2);MES(A2);1))+1

 

GIF.gif.44817e2e8bbd5d6b35dd250ddcadfd76.gif

publicado
Hace 47 minutos , petercien1 dijo:

Hola Mauricio

Gracias por responder, he llegado a obtener el numero de semana del año, pero lo que quiero es lograr la semana del mes en curso, de acuerdo a la fecha en texbox.

Saludos Cordiales

Pedro

Hola!

Para fin de mes, prueba con

Application.EoMonth

 

Saludos a todos!

publicado
Hace 18 horas, Mauricio_ODN dijo:

Saludos a todos.

Una posible opción.

ejemplo.xlsm 22.49 kB · 2 descargas

Muricio

Muchas gracias por tu ayuda, me funciona perfecto.

Private Sub CommandButton1_Click()
Dim ult As Long
ult = Cells(Rows.Count, 1).End(xlUp).Row
oDay = DateValue(TextBox1.Value)

Cells(ult + 1, 1) = CDate(TextBox1.Value) 'FECHA
Cells(ult + 1, 2) = Round((13 + Day(oDay) - Weekday(oDay) - 5) / 7, 0)

End Sub

Un abrazo

_____________

Gerson

Muchas gracias a ti también, con algo mas de tiempo utilizaré ti recomendación.

Hace 18 horas, Gerson Pineda dijo:

Hola!

Para fin de mes, prueba con


Application.EoMonth

 

Saludos a todos!

Saludos Cordiales

Pedro 

publicado
Hace 19 horas, JSDJSD dijo:

Coloca en la celda B2 la siguiente formula:

=NUM.DE.SEMANA(A2)-NUM.DE.SEMANA(FECHA(AÑO(A2);MES(A2);1))+1

 

GIF.gif.44817e2e8bbd5d6b35dd250ddcadfd76.gif

Hola JSDJSD

Muchas gracias por tu tiempo y respuesta, la función esta perfecta, pero quería meterlo al userform.

Un abrazo

Pedro 

publicado
Hace 50 minutos , petercien1 dijo:

Gerson

Muchas gracias a ti también, con algo mas de tiempo utilizaré ti recomendación.

Para que no quede en el tintero, otra opción podría ser así

With Application
    hoy = VBA.Date
    mday = .WeekNum(hoy, 2)
    fmes = .EoMonth(hoy, -1)
    uday = .WeekNum(fmes, 2)
    resul = mday - uday + 1
End With

 

Saludos a todos!

publicado
Hace 31 minutos , Gerson Pineda dijo:

Para que no quede en el tintero, otra opción podría ser así


With Application
    hoy = VBA.Date
    mday = .WeekNum(hoy, 2)
    fmes = .EoMonth(hoy, -1)
    uday = .WeekNum(fmes, 2)
    resul = mday - uday + 1
End With

 

Saludos a todos!

Hola Gerson

Gusto en saludarte

Probé la recomendación VBA.Date por el dato ingresado en el texbox, funciona bien desde febrero a diciembre.

Resultados de Enero

02-01-2020	-51
06-01-2020	-50
13-01-2020	-49
20-01-2020	-48
27-01-2020	-47

 

Saludos Cordiales

Pedro

publicado
Hace 20 horas, Mauricio_ODN dijo:

Saludos a todos.

Una posible opción.

ejemplo.xlsm 22.49 kB · 3 descargas

Mauricio

Haciendo pruebas mas detalladas, se obtienen resultados buenos y malos.

El Valor a la izquierda es el que arroja el código, a la derecha el que debiese ser.

01-01-2020	1	1	VERDADERO
06-01-2020	2	2	VERDADERO
27-01-2020	5	5	VERDADERO
01-02-2020	0	1	FALSO
03-02-2020	1	2	FALSO
10-02-2020	2	3	FALSO
17-02-2020	3	4	FALSO
24-02-2020	4	5	FALSO
01-03-2020	1	1	VERDADERO
02-03-2020	1	1	VERDADERO
09-03-2020	2	2	VERDADERO
23-03-2020	4	4	VERDADERO
01-04-2020	1	1	VERDADERO
04-04-2020	1	1	VERDADERO
18-04-2020	3	3	VERDADERO
06-04-2020	2	2	VERDADERO
01-05-2020	0	1	FALSO
04-05-2020	1	2	FALSO
11-05-2020	2	3	FALSO
01-06-2020	1	1	VERDADERO
09-06-2020	2	2	VERDADERO
15-06-2020	3	3	VERDADERO

Saludos Cordiales

Pedro 

publicado
Hace 28 minutos , JSDJSD dijo:

SDJSD

Muchas gracias por tu tiempo

Realice el mismo ejercicio que para las otras opciones y el resultado es bueno, pero a partir de junio, no calcula el numero de semana.

El Valor a la izquierda es el que arroja el código, a la derecha el que debiese ser.

15-02-2020	3	3	VERDADERO
25-06-2020	4	4	VERDADERO
12-12-2020	2	2	VERDADERO
01-01-2020	1	1	VERDADERO
06-01-2020	2	2	VERDADERO
27-01-2020	5	5	VERDADERO
01-02-2020	1	1	VERDADERO
10-02-2020	3	3	VERDADERO
01-03-2020	1	1	VERDADERO
09-03-2020	2	2	VERDADERO
02-03-2020	1	1	VERDADERO
03-03-2020	1	1	VERDADERO
10-03-2020	2	2	VERDADERO
16-03-2020	3	3	VERDADERO
30-03-2020	5	5	VERDADERO
01-04-2020	1	1	VERDADERO
20-04-2020	4	4	VERDADERO
01-05-2020	1	1	VERDADERO
04-05-2020	2	2	VERDADERO
18-05-2020	4	4	VERDADERO
25-05-2020	5	5	VERDADERO
01-06-2020	1	1	VERDADERO
15-06-2020		3	FALSO
12-12-2020		2	FALSO

Saludos Cordiales

Pedro

publicado
Hace 25 minutos , petercien1 dijo:

Hola Gerson

Gusto en saludarte

Probé la recomendación VBA.Date por el dato ingresado en el texbox, funciona bien desde febrero a diciembre.

Un leve cambio: 

resul = VBA.IIf(mday <= 5, mday, mday - uday + 1)

 

Saludos 

publicado
Hace 39 minutos , Gerson Pineda dijo:

Un leve cambio: 


resul = VBA.IIf(mday <= 5, mday, mday - uday + 1)

 

Saludos 

Gerson

Realice el cambio, un solo error

el 01-02-2020, me arroja como semana 5, siendo que debería ser 1.

Hasta el minuto es el procedimiento que mejor a funcionado, encontrando solo ese error.

Muchas gracias por tu tiempo

Saludos Cordiales

Pedro

publicado
Hace 3 horas, petercien1 dijo:

Gerson

Realice el cambio, un solo error

el 01-02-2020, me arroja como semana 5, siendo que debería ser 1.

Hasta el minuto es el procedimiento que mejor a funcionado, encontrando solo ese error.

Muchas gracias por tu tiempo

Saludos Cordiales

Pedro

A ver asi:

With Application
    hoy = VBA.CDate(VBA.Date)
    mday = .WeekNum(hoy, 2)
    fmes = .EoMonth(hoy, -1)
    fec = VBA.Format(mday, "dd/mm/yyyy")
    uday = .WeekNum(fmes, 2)
    mes_ = VBA.Month(hoy)
    resul = VBA.IIf(mes_ = 1, mday, mday - uday + 1)
End With

 

publicado
Hace 17 horas, Gerson Pineda dijo:

A ver asi:


With Application
    hoy = VBA.CDate(VBA.Date)
    mday = .WeekNum(hoy, 2)
    fmes = .EoMonth(hoy, -1)
    fec = VBA.Format(mday, "dd/mm/yyyy")
    uday = .WeekNum(fmes, 2)
    mes_ = VBA.Month(hoy)
    resul = VBA.IIf(mes_ = 1, mday, mday - uday + 1)
End With

 

Gerson

Muchas Gracias, funciona perfecto.

Por mi parte doy por cerrado el tema.

Agradezco a todos quienes se dieron tiempo de participar, aportar, ayudar y espero que esto le sirva a muchos mas.

Un abrazo

Pedro

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

  • 109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)

    1. 1. ¿Te parecen útiles los tips de las funciones?


      • No
      • Ni me he fijado en ellos

  • Ayúdanos a mejorar la comunidad

    • Donaciones recibidas este mes: 0.00 EUR
      Objetivo: 130.00 EUR
  • Archivos

  • Estadísticas de descargas

    • Archivos
      187
    • Comentarios
      97
    • Revisiones
      28

    Más información sobre "Un juego del Rabino en Excel"
    Última descarga
    Por pegones1

    1    1

  • Crear macros Excel

  • Mensajes

    • Hola nuevamente. Por eso la importancia de lo que mencionas tú como "ruta relativa". Tal cual comentas, y aún sin llegar a algunos detalles importantes para ayudarte, en realidad tal cual te comenté le día miércoles, pues sí podías hacer como comentabas, era cosa de obtener los Id de Windows (como tú los llamas) y la ruta de OneDrive en casa usuario y eso sí se puede obtener con VBA y luego pasarlo a PQ, pero medio que te cerraste en que "PQ no puede trabajar con rutas relativas", cosa cierta pero siempre hay formas. Si SAP puede o no guardar en OneDrive o SharePoint, pues si está mapeado en la PC ¡claro que se puede! Pero bueno, creo que si te es útil tu propia propuesta ¡avanza con eso!
    • Perdona @Abraham Valencia pero he estado liado estos días. En realidad todo el problema se reduce a estos dos problemas: Problema 1: El script que "fabrica" SAP y que luego "pego" en la macro, no es capaz de  guardar archivos en SharePoint. He estado buscando, y en realidad muchas personas tienen ese problema (no poder guardar un Excel en SAP a través de VBA). Eso muy probablemente sean problemas de permisos, que no puedo cambiar (no soy administrador de nada). Como no puedo solucionarlo así, paso al plan B, que es guardar en Excel que me genera SAP en el ordenador de cada usuario que ejecute la plantilla (y que sí está guardada en SharePoint), para después con PowerQuery llamar a ese Excel (el export). Para ello, pretendo guardar el export, en la ruta relativa "C:\..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" donde los \..\..\..\ saltan las rutas personales de cada usuario (tipo C:\users\IDusuario\). Eso lo hace bien, y el archivo se guarda en la ruta de cada usuario que lo usa, pero surge el problema 2 Problema 2: PowerQuery no trabaja con rutas relativas del tipo  "C:\..\..\..\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" necesita que sea del tipo fija "C:\users\IDusuario\OneDrive - NombreEmpresa\Documentos\SAP\SAP GUI" pero claro, IDusuario es diferente para cada usuario.   Pero escribiendo todo esto, creo que he dado con una posible solución, no grabar el export en una ruta de usuario, sino en una en la raiz de C:, que siempre será igual para todos los usuarios, del tipo C:\Sap\export.xlsx que seria igual en todos los ordenadores. Asi sí podría decirle a PowerQuery que vaya siempre a la ruta C:\Sap\ que existirá en todos los ordenadores. Mañana intentaré hacer pruebas, aunque mi solución ideal seria que se pudiera guardar en el SharePoint. Saludos.
    • Hola La opción brindada por @torquemada es correcta, funciona, pero hay algunos inconvenientes que (desde mi punto de vista) no la convierten en mi primera elección. Los inconvenientes son: Tendrías que ir columna por columna haciendo los reemplazos, claro que no se harían a mano sino que utilizarías la opción reemplazar o la opción texto en columnas, aun asi demorará un poquito y será trabajoso. Cada vez que descargues otro listado, tendrás que volver a realizar los reemplazos. Me parece una mejor propuesta lo siguiente: Descarga los movimientos a un archivo de Excel Desde tu control de pagos (otro archivo) cargas los movimientos del archivo descargado mediante Power Query Power Query hará los reemplazos y reconocerá todo correctamente (sin que tengas que hacer nada especial) Cuando descargues los movimientos un día posterior, solamente tendrás que hacer clic en "Actualizar" y todo funcionará en automático
    • Hola a todos, Efectivamente, me temo que tal como trabajan las funciones =HOY() y/o =AHORA() (volátiles), sólo con macros puedes obtener soluciones. Un recurso pedestre podría ser, cada vez que quieras que se fije un dato, te sitúes en esa celda y pulses F2, F9 e INTRO.  Pero claro, puede ser un inconveniente si hay que hacerlo repetitivamente en muchas ocasiones,.............. en fin, lo comento sólo como posibilidad. Saludos,
    • Hola nuevamente, mi duda sigue siendo la ruta, o rutas, finales que quedan, esas que llamas "relativas"; igual por si acaso pon 3 o 4 de esas, tal cual son y/o se ven en el explorador de cada PC y, de ser posible, en cualquier otro "lado" en que las veas.
  • Visualizado recientemente

    • No hay usuarios registrado para ver esta página.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.