Jump to content

Pirtrafilla

Pro Member
  • Content Count

    338
  • Joined

  • Last visited

  • Days Won

    1

Pirtrafilla last won the day on December 11 2018

Pirtrafilla had the most liked content!

About Pirtrafilla

  • Rank
    Advanced Member
  • Birthday 06/09/1968

Converted

  • Campos
    ;

Recent Profile Visitors

825 profile views
  1. Hola a todos. Tengo una macro para enviar correos y adjuntar varios archivos. Pero quisiera poner un código que me avisara que no hay archivo adjunto y así poder abortar el proceso. ¿Es posible? Gracias. Moises.
  2. @Gerson Pineda , muchas gracias por tu explicación y por el tiempo que te has tomado en explicármelo. Me has dado varios apuntes a tener muy en cuenta. Te lo agradezco! Moisés.
  3. Entiendo. No puedo usar Range(Cells(1, 1). Si me refiero a Range y uso Cells, debo usar Range("nombre de la hoja").(Cells(1,1)) Usando With / End With evito escribir repetidamente el nombre de la hoja, pero entre Range y Cells he de hacer referencia a la hoja, y antes de Range igualmente. Esto he de memorizarlo, es si o si y no confundirme en el método. Si me confundo corrígeme por favor! Gracias @Antoni Moisés.
  4. @@Antoni Ahora si funciona... Veo que en vez de worksheets usas: With Sheets("KM_diarios") ¿Esa es la diferencia o no lo veo todavía? ¿Influye en algo? Para tenerlo en cuenta en el futuro. Muchas gracias. Moisés.
  5. @Antoni tampoco funciona así. Envío un archivo de ejemplo. Falla en cuanto le das a cualquier botón de cargar fichero. Gracias. Plantilla PARTE KM (v.4).xlsm
  6. Hola a todos. Perdonar con este asunto, creo que debe ser una tontería, pero no logro ver el error. Con esta sentencia me da error: Worksheets("KM_iniciales").Range(Cells(1, 1), Cells(maxrow, maxcolumn)).ClearContents Y sin embargo así funciona. Worksheets("KM_iniciales").Range("A1:K" & maxrow).ClearContents Quisiera que la columna a eliminar no fuera siempre la K porque podría ser otra, por eso quiero hacerlo con cells, pero no logro que funcione. ¿Qué estoy poniendo mal? Teniendo en cuenta que busca la última fila y columna así. maxcolumn = Worksheets("K
  7. @Haplox, gracias por tu aporte. Tendré en cuenta lo que me dices, Muchas gracias por tu código. '--> Macro por Haplo - 29/11/2020 <-- Sub BuscarMatricula() Dim buscar$, uFila&, matricula As Range, s& buscar = Range("B8") uFila = Sheets("KM_diarios").Range("A" & Rows.Count).End(xlUp).Row Set matricula = Sheets("KM_diarios").Range("A1:A" & uFila).Find(buscar) If Not matricula Is Nothing Then Range("B13:G43").ClearContents Prdia = matricula.Offset(, 3) km = matricula.Offset(, 4) conductor = matricula.Offset(, 2) & ", " &a
  8. Fantástico!!! No tiene nada que ver esto con lo que yo había hecho. Muchas gracias.
  9. Hola a todos. Os pido ayuda con este proyecto que estoy haciendo. Tal y como lo tengo ya me funciona, pero veo que tarda en recorrer demasiado las filas, creo que porque estoy usando FOR NEXT. No se si hay manera de hacerlo correr más rápido, con WHILE por ejemplo o de otra manera. Os envío el proyecto y os agradezco si me podéis ayudar porque no veo capaz. El problema viene en la hoja Plantilla_Parte_KM, cuando uso los botones para recorrer las matrículas, la busca en una hoja con este bucle. Si la encuentra pronto no hay problema, pero si no la encuentra o está lejos en el contador
  10. Hola Ikanni, los archivos están todos en la misma carpeta. Gracias.
  11. Hola a todos. Quería vuestra opinión. Tengo un programa que envío las nóminas por correo y en una hoja tengo una tabla con los empleados. La empresa ha decidido cambiar todos los ID de los empleados poniendo un carácter más delante. Es decir, si alguien era el 76254 ahora es 076254. Yo en mis PDFs lo tenía como (76254)_Nómina_2020_10. Ahora que tengo más de 1.000 fichero guardados he de volver renombrarlos con (076254)_Nómina_2020_10. Y lo que quería preguntaros es si me aconsejáis que haga una macro para cambiar el nombre de cada fichero (cosa que no veo por donde empezar) o que me
  12. Innaki, creo que lo he solucionado. Tenía una variable global llamada rutaPDF y la he usado para guardar la ruta del Path. Antes tomaba los datos del label pero si hay subcarpetas no tiene sentido. He usado el dato que cargas en la segunda columna del listbox, el Path y lo he asignado a la variable rutaPDF. Function Listar_archivos_en(ruta As String, Completo As Boolean) Dim Archivo, SubCarpeta, Fila As Long, fso As New FileSystemObject, cadena As String With fso With .GetFolder(ruta) For Each Archivo In .Files If Not Right(Archivo, 3) = "pdf" Then GoTo 10
×
×
  • Create New...

Important Information

Privacy Policy