Jump to content

Archived

This topic is now archived and is closed to further replies.

Eviky

Volver a la hoja principal

Recommended Posts

Buenas tardes,

Tengo un libro con una plantilla para solicitar vacaciones, donde hay una hoja de solicitud, una hoja de histórico y un hoja con un calendario.

Cuando le doy a grabar la solicitud (con una macro) lo hace bien pero yo quiero que en vez de quedarse en la hoja de historial vuelva a la hoja de solicitud. Con el office 2010 me funcionaba esta opción pero con el nuevo office me da error.

Adjunto el archivo.

Muchas gracias,

proyecto vacaciones con calendario foro.xls

Link to post
Share on other sites

Buenos días Max2005,

Lo primero gracias por contestar tan rápido.

No se porque a mi no me funciona, tampoco controlo el tema de arreglar macros desde Visual basic.

He copiado en mi hoja de Excel tu macro y no me funciona.

Te adjunto un archivo en JPGE para que veas el error que me da.

Un saludo,

post-196809-145877016882_thumb.jpg

post-196809-145877016883_thumb.jpg

Link to post
Share on other sites

Hola Nuevamente [uSER=196809]@Eviky[/uSER],

Realiza lo siguiente:

Copia tu hoja "solicitud" a otra nueva hoja y elimina la anterior, una vez hecho esto, renombrar la nueva hoja con el nombre "solicitud" y ejecuta la macro, con esto te debe de funcionar, por favor comentas

Saludos !!!

Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Hola Alexander, He encontrado una solución que creo que me va. ¿Seras tan amable de revisar y decirme si esta correcto lo que he aplicado? Tambien quiero que me digas si voy de buen camino y si puedo utilizar la misma función para otras celdas - Range("D5").Offset(, 0).Value = LCase(Target) Saludos,
    • hola wess   (y Christian) De tu explicación entiendo una cosa, entiendo que Christian se basó en eso para resolver tu tema.  Pero de tu ejemplo, no entiendo nada.. por ejemplo, en Resultado Esperado, de donde sale el productob en Marzo 61 y de Enero a Diciembre 437 si en tu tabla de Datos el productob tiene un único movimiento en Marzo y es 437, entonces, de donde sale 61?? y del resto ya mejor ni digo nada.. 😵   saludos Silvia
    • Un gusto @Sergio, sinceramente no sabría recomendarte alguna pagina o vídeo en concreto, la cinta que vez arriba la hice con una recopilación de paginas y un poco de prueba y error. Pero te aseguro que no es tan complicado como parece, seguro que con leer un poco  de la documentación del programa le agarras el tiro https://bettersolutions.com/vba/ribbon/custom-ui-editor.htm Saludos.
    • Buenas tardes Alexander, Perfecto. De hecho si que necesito decir para algunas celdas individualmente que tipo de fuente aparezca (Ucas;  Lcase; PROPER). Hasta tu respuesta ire probando. Gracias. Saludos,  
    • MI ESTIMADO  @AlexanderS,  ES JUSTO LO QUE QUERÍA, DE VERDAD NO LO HUBIESE PODIDO HACER DE ESA MANERA TAN SIMPLE COMO TU LO HAS HECHO, Y SE ME OCURRIÓ POR AHÍ AGREGAR UNA LINEA PARA BORRAR EL CONTENIDO ANTES DE OBTENER LAS NUEVAS RECETAS...... Sub Copia_recetas()     Dim Rng$, x#     Dim rept        As Range     Dim celda     With Sheets("BD_Recetas")        Rng = .Range("D1")        Range("C9:C43").ClearContents   -   AGREGUE ESTA LINEA        x = 9        For Each celda In Sheets("Proy.-Comer").Range(Rng)        If celda <> "" Then                 Set rept = .Range("C9:C43").Find(celda, , , xlWhole)                 If rept Is Nothing Then _                    .Cells(x, "C") = celda: x = x + 1                 End If         Next     End With End Sub MUCHAS GRACIAS POR TU APOYO ERES UN GENIO, Y POR LA EXCELENTE LECCIÓN QUE ME HAS DADO, ESTOY HACIENDO UN LIBRO DE PRODUCCIÓN INDUSTRIAL, Y SE QUE NECESITARE DE MAS AYUDA PARA PODER CULMINARLO. SI TENGO OTRA CONSULTA ESPERO PODER MOLESTARTE Y QUITARTE ALGO DE TIEMPO. MILES DE GRACIAS,. Y BENDICIONES.        
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy