Jump to content

lphant

Members
  • Content Count

    295
  • Joined

  • Last visited

Everything posted by lphant

  1. voy a probar. muchas gracias.
  2. Lo acabamos de probar en 2 ordenadores diferentes con excel 2010 y no hay forma, no deja ni abrirle. Probare ha acerlo con textbox. muchas gracias.
  3. Buenos días; Tengo una dudita. Tengo una macro con un menú con contraseña creado con un InputBox en el que al meter la contraseña salen asteriscos, esta macro funciona perfectamente en Excel 2007 pero si ese Excel se abre con versiones superiores al 2010 da error al intentar abrirle. He leído por internet que se puede hacer un menú con contraseña con un textbox y poner que muestre el asterisco en las propiedades del textbox. Me duda es, que es mejor??, hacerlo por imput o por textbox??. Se podría hacer por InputBox en versiones superiores al 2010??. PD: adjunto excel con el menu creo por InputBox Muchas gracias y un saludo, Contraseña.xlsm
  4. buenos dias; En el excel que os pase eso ya lo tengo echo, el problema es al pulsar el boton de guardar sin cerrar, quiero que lo guarde con la pestaña Menu oculta y con la pestaña Aviso visible pero al no cerrar el libro quiero que se siga viendo la pestaña Menu y la pesataña Aviso oculta. Os pego las lineas que tengo en la macro que os adjunte. ---------------------------------------------------------------------------------------- Private Sub Workbook_Open() Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False Worksheets("Menu").Visible = True Worksheets("Menu").Select Worksheets("Aviso").Visible = xlSheetVeryHidden Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub Private Sub Workbook_AfterSave(ByVal Success As Boolean) Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False Worksheets("Aviso").Visible = True Worksheets("Aviso").Select Worksheets("Menu").Visible = xlSheetVeryHidden Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Application.DisplayAlerts = False Application.EnableEvents = False Application.ScreenUpdating = False Worksheets("Aviso").Visible = True Worksheets("Aviso").Select Worksheets("Menu").Visible = xlSheetVeryHidden Application.DisplayAlerts = True Application.EnableEvents = True Application.ScreenUpdating = True End Sub ----------------------------------------------------------------------------------------------------- un saludo,
  5. Buenos días; Quien me puede echar una manita a solucionar esto…. Tengo un Excel con 2 pestañas ( Aviso y Menu ). Lo que necesito que haga esta macro, es ocultar la hoja Excel “Menu” y desocultar “Aviso” cuando pulse el botón de guardar pero al no cerrar el libro que se siga viendose la pestaña “Menu” y la pestaña “Aviso” siga oculta, cuando cierre el libro que se oculte la pestaña “Menu” y desocultar “Aviso Esto es para que el que no tiene habilitadas las macro no pueda ver la pestaña Menu, solo el aviso. Muchas gracias a todos. PruebaV1.xlsm
  6. Pedon, no me di cuenta. adjunto excel sin contraseña un saludo, PruebaV2.xlsm
  7. Buenos días; La macro que os adjunto en el Excel funciona ejecutando el código desde la hoja pero si el código le pego en un módulo y le ejecuto desde la hoja me da error de 91 “variable de objeto o bloque with no establecido”. Por más que miro y pruebo ( declaro variables, etc… ) no doy con la solución. Por favor, me podéis echar una mano??. Un saludo, PruebaV2.xlsm
  8. Gracias Haplox, voy a investigar haber que consigo. Pd: por confirmar, me ha quitado algo de la hoja 23 no??. Un saludo,
  9. Sii..tema solucionado. Muchas gracias.
  10. Buenos días; Esta mañana al abrir el archivo Excel con macro que uso todos los días me ha saltado el error "Excel ha encontrado contenido que no puede leer en XX, desea recuperar el contenido del libro??". Al pulsar no, no hace nada. Al pulsar si, me sale otro mensaje en el que me dice que se ha quitado "hipervínculos de /XL/worksheets/sheet23.xml parte. Que puedo hacer, no se realmente lo que me ha borrado de la macro. Puede haberme borrado código??. Pd: os adjunto pantallazos en un Excel. Muchas gracias. Pantallazos.xlsx
  11. Funciona a la perfección. Mil gracias. Pd: ya lo tengo montado en mi macro ;) Un saludo,
  12. Buenas tardes; Llevo un par de días intentando con fórmulas hacer una cosilla pero me rindo jejeje….con macro supongo que es mucho más fácil. Alguien me puede echar una manita??. Os explico lo que necesito: Tengo 2 hojas Excel, en una tengo el stock total por código y en la otra tengo los códigos por fechas de entrega al proveedor. Lo que necesito es saber si tengo stock para cubrir las fechas de entrega al proveedor y para ello necesito que se vayan descontando el stock según va cubriendo las fechas de entrega. No sé si me he explicado muy bien, adjunto ejemplo en el Excel. Un saludo, Prueba_V02.xlsx
  13. buenas tardes; funciona perfectamente. muchisimas gracias.
  14. Buenos días; Para eliminar las celdas/contenido de un filtrado estoy usando la siguiente línea: “Worksheets("Hoja1").Range(Rows("2:2"), Selection.End(xlDown)).Delete Shift:=xlUp” Por temas técnicos a partir del lunes tengo que ocultar la Hoja1, el problema que tengo es que al ocultar la Hoja1 esa línea no funciona al tener un selection, he probado de varias formas y no doy con la solución, alguien que pueda ayudar??. Un saludo y muchas gracias. Eliminar_Datos_filtrados.xlsm
  15. Al final hemos decidido quitar el formato. muchas gracias.
  16. Esa opción y unas cuantas mas ya las habia probado sin exito Lo que se me ha paso decir y poner en el excel es que la hoja1 tiene un filtro puesto. quiero que copia/pegue las columnas ocultas y los datos filtrados. Copiar_todo.xlsm
  17. Buenas tardes chic@s; Para elimnar datos duplicados esto usando la siguiente linea: Worksheets("Hoja1").Range("A:AD").RemoveDuplicates Columns:=4, Header:= _ xlYes El problema que tengo es que al elimnar los dupicados me elimina el formato de las celdas que elimina, alguna forma diferente de hacerlo??. Un saludo, Duplicado.xlsm
  18. Buenas tardes chic@s; Eso intentando copiar los datos de una hoja escel con columnas ocultas ( "Hoja1" de la celdas de A2 a la celda D7 ) y pegarlos en la "Hoja2" pero no consigo copiar las celdas ocultas, si lo hago en un libro nuevo si. Hay alguna forma de poder copiarlas??. Un saludo, Copiar_todo.xlsm
  19. Perdona por contestar tan tarde, llevo tiempo sin ordenador en casa y el del curro esta capado no lo siguiente. funciono perfectamente. muchas gracias.
  20. Buenas tardes; Hace muchísimo tiempo hice una macro la cual generaba una tabla dinamica (a demás otras otras) en la jue filtraba en los diferentes campo según la necesidad. el problema que tengo ahora es que uno de los filtros que hacia ( filtro de texto comienza por ... ) le tengo que hacer 2 veces y en la macro solo me lo reconoce la primera vez que le hace. esta es la línea del filtro de la macro. Worksheets("Resumen").PivotTables("Resumen ").PivotFields("EST").PivotFilters.Add _ Type:=xlCaptionDoesNotBeginWith, Value1:="26" ' Para que no muestre un dato que comienza por xx ' Ahora mismo no puedo poner el excel con la macro ya que la tengo en el curro. sabriais como podria poner 2 veces ese filtro??. Pd: el otro filtro seria comienza por "32" gracias y un saludo,
  21. buenas tardes; tengo una dudilla. quiero hacer una macro para imprimir 3 hojas de un libro a la vez, es decir, cuando de al boton imprimir se me impriman las 3 pero...aqui viene el problema, quiero que la hoja 1 se imprima en una hoja y la hoja2 y la hoja 3 en una misma hoja. me podeis echar una manita??. muchisimas gracias ;) Imprir.xlsx
  22. Jajajaja......Que razon tienes.........estoy oxidado no lo siguiente, esto de no tener tiempo para practicar y que ayer no estaba muy centrado....no daba ni una. muchisimas graciass..
  23. Buenas tardes; Por favor, me podéis echar una mano??. Tengo 2 hojas Excel ( hoja1 y base de datos ) y lo que quiero hacer es buscar los datos de la hoja 1 ( la columna con los datos a buscar puede que cambie después, es decir puede que no sea la columna A ) en la base de datos y que me ponga la celda de la derecha del dato buscado. Muchas gracias. Un saludo, Prueba.xlsx
  24. Perdonar, y para bloquear el tamaño de las columnas se puede poner algun comando??. gracias.
×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5