Saltar al contenido

Haplox

Miembros
  • Contador de contenido

    2468
  • Unido

  • Última visita

  • Days Won

    77

Todo se publica por Haplox

  1. @meduvilla ¿te sirve si te digo que mires ayuda sobre la funcion DateAdd ? Si no vuelve a preguntar
  2. Haplox

    Buscar y mostrar datos

    @nitrito No se a que te refieres. Probando pone cada registro en su columna, y segun tu archivo original lo guarda en la fila 2, desplazando el resto hacia abajo
  3. otra forma (bueno, igual que la de @avalencia, pero dimensionando variables) Sub imprimir_PDF() Dim año As String año = [c1] Sheets(Array("Portada", "Resumen", año)).Select Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Facturacion\" & año & ".pdf" End Sub
  4. Haplox

    Buscar y mostrar datos

    No hace falta hombre...
  5. @xavima , no entiendo tu problema, porque ahí no aparece ninguna hoja con un año . No sé, sube tu archivo para comprobar cómo está estructurado
  6. Haplox

    Buscar y mostrar datos

    Si busca, solo que se me colo una linea de codigo Para buscar tienes que poner la cuenta a buscar. Cuando modifiques, cin el boton guardar discrimina si es cuenta nueva o ya existe. Si es nueva la pone en la fila 2, si es nueva modifica su linea y pone la fecha de modificacion en la columna M ayudaexcel.xlsm
  7. Te dejo una solucion. La macro esta en el evento Change del combobox, solo tienes que elegir pais y la macro se ejecuta sola. He borrado las hojas ocultas para poder subirlo. Grupo (1).xlsm
  8. Haplox

    Buscar y mostrar datos

    A ver, te dejo la solucion. He creado una macro que sirve tanto para guardar uno nuevo como uno modificado. Ya no te hace falta el boton de "nuevo" y el de "copiar" lo he dejado porque no se que quieres con el ayudaexcel.xlsm
  9. No hace falta que los declares como objets. Solo antecede el nombre del formulario If Menu.A2= True Then End If
  10. Esa parte del código no tiene nada que ver con un libro u otro, solo con el formulario
  11. Haplox

    Buscar y mostrar datos

    Te dejo una solución Libro1.xlsm
  12. @Alfonso5597., lo mejor en estos casos es usar el Tag de los controles que quieras modificar. Te dejo el archivo, fíjate que en todos esos textbox he puesto el tag "disposicion", para luego recorrer los controles del formulario y cambiar el color. Mira el código del Userform.Activate, te lo he dejado comentado Copia de Prueba
  13. Impaciente... . Solo te hacía falta modificar un poco el código que ya tenías Private Sub Worksheet_Change(ByVal Target As Range) If Filas < Me.UsedRange.Rows.Count Then fila = Target.Address For i = 2 To Sheets.Count Sheets(i).Activate ActiveSheet.Range(fila).EntireRow.Insert Next i End If End Sub
  14. @A.Maurizio, puedes usar el siguiente código Sub find_cel() Dim a As Range, b As Range, c As Range Set c = Cells(6, [b2] + 2) Set b = Cells([b1] + 12, 1) Set a = Cells(b, c) [b4] = a End Sub
  15. Uff... ni me acuerdo de ese codigo Mejor sube tu archivo para poder verlo
  16. Si subieras tu archivo original... CONTROL INVENTARIO FINAL.xlsm
  17. Eso es un mensaje que he puesto yo en VBA, para que si en tu BBDD hay productos que no están en hoja del día, te avise ¿Prefieres quitarlo? No es un error, es algo programado
  18. Haplox

    Listado dwg

    Te dejo la ruta ya con el excel @prax3des Planos
  19. A ver si es esto lo sue necesitas INVENTARIO.xlsm
  20. Qué tal, A ver si me explico... En una hoja tengo una macro en el evento Change que en la fila del target, pone todos los bordes a las celdas y ajustas las columnas. Arriba del todo de la hoja, tengo una especie de "Tablero de Mandos", con botones y figuras que ejecutan otras macros. El problema es que, cuando se ejecuta el evento change, todos los botones y formas bailan como si tuvieran la sarna . A eso me refiero con el flickering. Ya he intentado con EnableEvents, ScreenUpdating y otros más que no me funcionan... . ¿Hay alguna manera de evitar este baile de botones y figuras? Gracias
  21. Eso fue lo primero que hice... nada Mira que intente cosas, pero siempre dejando el screenupdating en false . Nunca te acostaras sin saber algo nuevo...
  22. Me contesto a mí mismo ... Jamás se me hubiese ocurrido, pero poniendo el Application.ScreenUpdating en TRUE, dejan de bailar todos Podéis cerrar el tema
  23. Haplox

    Como concatenar .JPG a lo escrito en un textbox

    @jose lopez contreras, incluso así Sheets(nHoja).Cells(uFinal, 12) = Me.TextBox1 & ".JPG"
  24. Pero som meses o trimestres? Porque en tu fichero usas meses y ahora dices trimestres Solo multiplica Cells (i, "B" ) por 3 si son trimestres
×

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.