Jump to content

petercien1

Members
  • Content Count

    820
  • Joined

  • Last visited

  • Days Won

    1

petercien1 last won the day on February 7 2020

petercien1 had the most liked content!

About petercien1

  • Rank
    Advanced Member
  • Birthday 10/15/1983

Profile information

  • Gender
    Hombre
  • Localización:
    Chile
  • Interests
    Música, playa, campo, MS Excel

Converted

  • Campos
    ;
  • Mi versión de Excel:
    0

Recent Profile Visitors

1,269 profile views
  1. 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
  2. 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
  3. 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
  4. 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
  5. Muchas Gracias por tu tiempo, funciona perfecto el calculo. Un abrazo Pedro
  6. 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
  7. 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
  8. 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
  9. 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
  10. Hola JSDJSD Muchas gracias por tu tiempo y respuesta, la función esta perfecta, pero quería meterlo al userform. Un abrazo Pedro
  11. 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
  12. 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
  13. 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
  14. Gerson, muchas gracias. Un Abrazo Saludos Cordiales Pedro
  15. 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
×
×
  • Create New...

Important Information

Privacy Policy