petercien1

Hola de Nuevo utilice el archivo en otro computador y funciona perfectamente. Que sera? Ahora Abri el archivo en mi pc y funciona Saludos Cordiales Pedro

Hola a Todos Espero estén muy bien junto a sus seres queridos. Favor su ayuda con lo siguiente: Tengo un problema con una planilla excel, desde hace un par de horas dejo de funcionar y cuando abro o cierro el libro me aparece el siguiente mensaje "No se puede encontrar el proyecto o la biblioteca". He buscado en el foro y red, pero no logro dar con una solucion. Segui lo siguiente: ALT + F11 > herramientas > referencias, pero al dar clic en referencias no pasa nada. Al dar ALT + F11, me aparece otro mensaje " No se encontro el modulo". Adjunto el libro

Hola a todos Espero estén todos bien, junto a sus seres amados Les escribo solicitando vuestra ayuda, adjunto un libro con una pagina en internet, desde donde necesito extraer información. La pagina es la siguiente: Busqueda Desde ahí necesito sacar la información como se menciona en el adjunto, hay ocasiones en que devuelve mas de un resultado al generar la búsqueda. El dato a buscar es el nombre, en columna a. Un abrazo fraterno a la distancia Pedro Prueba datos.xlsm

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

Muchas Gracias por tu tiempo, funciona perfecto el calculo. Un abrazo Pedro

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

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

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 FALS

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

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

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. Saludos Cordiales Pedro

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 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

Gerson, muchas gracias. Un Abrazo Saludos Cordiales Pedro

Hola Gerson Muchas gracias por tu tiempo y conocimientos, realizo los pasos pero el resultado es lo que se ve en la imagen. Saludos Cordiales Pedro