Jump to content

Dinkys

Members
  • Content Count

    41
  • Joined

  • Last visited

  • Country

    Spain

About Dinkys

  • Rank
    Member

Converted

  • Campos
    ;

Recent Profile Visitors

592 profile views
  1. Buenos días, perdona Gerson. Subo el archivo y esto viene de un tema anterior que los amigos de este foro me ayudaron a ocultar las columnas que no tenían ningún valor. Un saludo ocultar columnas sin celdas color rojo 2.xlsb
  2. Buenos días amigos, Tengo esta macro que me oculta las columnas en vacias. Ahora quiero ir un poco más alla, quiero que me oculte las columnas en vacias y las columnas que estén con datos pero que NO TENGAN el color de fondo Interior.Color = RGB(255, 0, 0), pero no se como ponerlo. Si alguien me puede ayudar, le estaré muy agradecido
  3. Hola @Gerson , me es válida la solución, pero cuando ejecuto la de ver columnas se me quita el autofiltro. Yo hago el filtro desde la A3:C_final de datos. Sabes como podría automatizarlo para que no se me quitase? Gracias anticipadas
  4. Buenas tardes amigos, Os subo un fichero en el que me gustaría hacer una macro para que seleccionando el pedido o la OF del filtro de las columnas B o C se me queden solo las columnas que tengan algún valor hasta la BY. Me podeis ayudar? Macro al seleccionar me deje solo las columnas con valors.xlsb
  5. Buenas tardes @avalencia no se que es lo que hice para que me pasase eso, ni lo que he hecho ahora para que vuelva a funcionar. la verdad es que esto de ser novato en las macros es todo un reto!!!! Gracias
  6. Buenas noches, Resulta que la macro que os pongo me ha estado funcionando perfectamente sin ningún problema, pero hoy me ha empezado a dar este error y se me para donde lo señalo en rojo, Alguien me puede ayudar? Gracias anticipadas @Antoni @JSDJSD Sub Actualiza_Todas_Tabla() 'Anulamos todas las opciones automáticas Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Application.EnableEvents = False ActiveSheet.DisplayPageBreaks = False 'Declaramos variables Dim nHojas As Worksheet Dim tDinamica As PivotTable 'Recorremos todas las hojas For Each nHojas In ThisWorkbook.Worksheets 'Recorremos todas las tablas de cada hoja For Each tDinamica In nHojas.PivotTables 'Refrescamos === > tDinamica.RefreshTable aquí se me para Next tDinamica Next 'Volvemos a poner todas las funciones automáticas Application.CutCopyMode = False Application.ScreenUpdating = True Application.Calculation = xlCalculationAutomatic Application.EnableEvents = True Application.CutCopyMode = False End Sub error en macro.pdf
  7. Genial @JSDJSD @Antoni y a todos los que me habeis ayudado. La última versión es una pasada. Millones de gracias
  8. Mil perdones por no haber contestado antes pero he cogido unos días de Vacaciones, gracias por adelantado a @JSDJSD y @Antoni . El Domingo podré ver el fichero. Un abrazote
  9. hola @JSDJSD millones de gracias. El sentido es que tengo que meter datos uno a uno sobre partes en papel y una misma línea tiene todos los datos iguales menos uno muchas veces. Gracias de corazón por las molestias que te has tomado. Estoy a tu disposición en lo que te pueda ayudar
  10. Joooooo muchísimas gracias, está genial. No se si puedo abusar de ti y que haya dos botones a parte del de guardar : Uno para que repita los datos del último registro (porque a lo mejor el siguiente registro es todo igual menos marca y cantidad) Otro para que borre todos los datos en el formulario, por si acaso me equivoco y así no tengo que salir y volver a entrar. Millones de gracias de nuevo.😊
  11. hola JSDJSD, lo he probado pero no me funciona. Si es eso lo que necesito
  12. Perdona pero todavía no he podido probarlo, mañana a primera hora. Millones de gracias
×
×
  • Create New...

Important Information

Privacy Policy