Jump to content

lphant

Members
  • Content Count

    295
  • Joined

  • Last visited


Reputation Activity

  1. Thanks
    lphant reacted to Haplox in Error al copiar hoja a otro libro   
    Te dejo el archivo, y aunque el vídeo no se vea bien, por la limitación de tamaño del foro, la última línea es la que te puse arriba y ves como la pasa sin que salte error
    Copia de HOLA-2.xlsm
  2. Thanks
    lphant reacted to Haplox in Error al copiar hoja a otro libro   
    Te has hecho un pequeño jaleo intentando copiar la hoja según su nombre. Es mucho más fácil
    ActiveSheet.Copy After:=Workbooks(otro).Sheets(Sheets.Count)  
  3. Thanks
    lphant reacted to Haplox in Error al copiar hoja a otro libro   
    La verdad, no sé qué habrás hecho, pero mira el vídeo cómo a mí no me da error con esa línea

    Sin título 4.mp4  
  4. Thanks
    lphant reacted to Haplox in Añadir formula en una celda al modificar otra (siempre con hoja nueva)   
    Sí se me ocurre, todo depende de la configuración de tu hoja. Si creas el código necesario en la Hoja desde dónde creas las nuevas (digamos "Hoja1", aunque si te molesta demasiado podrías usar una hoja auxiliar), en vez de añadir hojas mediante "Sheets.Add", copiando la hoja original al final copias también el código que pusieras.
    Sheets("Hoja1").Copy After:=Sheets(Sheets.Count) En el pequeño ejemplo lo puedes ver
     
    copiar_hoja.xlsm
  5. Thanks
    lphant reacted to Mauricio_ODN in Se puede vincular celda con la propiedad “caption” del marco del formulario??   
    Sub Formulario()
    With Menu
        .Frame1.Caption = Hoja1.Cells(1, 1).Value
        .Show
    End With
    End Sub
     
  6. Thanks
    lphant reacted to Antoni in Se puede vincular celda con la propiedad “caption” del marco del formulario??   
    Me.Caption = Range("A1") y no se puede centrar.
  7. Thanks
    lphant reacted to Héctor Miguel in Ocultar pestaña al guardar   
    ese evento está disponible en VSTO desde la versión 2005, se incorporó al modelo de objetos de xl-2010 por lo que NO funciona en versiones previas, dicho sea "de paso"...
    no le veo utilidad para lo que quieres hacer ya que "aftersave" pondría "bandera" de "se necesita (volver a) guardar" si modificas las condiciones de la hoja o del archivo (?)
    en todo caso, sugiero los eventos (hoja y/o libro) '_activate' y '_deactivate' para establecer en uno las condiciones que pretendas y la inversa en el otro (?)
    saludos,
    hector.
  8. Thanks
    lphant reacted to Leopoldo Blancas in Que es mejor para un menu con contraseña ( con asteriscos )   
    Yo tengo Excel 2016 y lo ejecuta sin problemas tu archivo.
    Y es más "elegante" con TextBox y no tienes que agregar código especial como en el caso del InputBox, solo tienes que decirle en las propiedades del control TextBox.
    Saludos.
     
  9. Thanks
    lphant reacted to Gerson Pineda in Ocultar pestaña al guardar   
    Yo mejor utilizaría otro evento
    Private Sub Workbook_BeforeClose(Cancel As Boolean) End Sub  
    Saludos 
  10. Thanks
    lphant reacted to Antoni in Ayuda con error 91 “variable de objeto o bloque with no establecido”.   
    Revisa el adjunto.
    PruebaV2 (1).xlsm
  11. Thanks
    lphant reacted to Haplox in Ayuda con mensaje al abrir macro   
    Pues parece que sí:
     
  12. Like
    lphant got a reaction from Enigma25 in Descontar stock según pedido   
    Funciona a la perfección.
    Mil gracias.
    Pd: ya lo tengo montado en mi macro ;)
    Un saludo,
  13. Like
    lphant reacted to Enigma25 in Descontar stock según pedido   
    Hola @Iphant
     
    Prueba con el siguiente archivo. Le coloqué un botón con una macro a ver si es lo que deseas.
    Comenta tus impresiones.
    Mis respetos.
     
     
     
    Prueba_V03.xlsm
  14. Thanks
    lphant reacted to Haplox in Ayuda con eliminar datos filtrados con hoja oculta   
    No puedes usar Select en una hoja oculta. Usa el siguiente código:
     
    Sub borrar() Dim uF As Long With Sheets("Hoja1") uF = .Range("A" & Rows.Count).End(xlUp).Row .Range("A2:A" & uF).SpecialCells(xlCellTypeVisible).Delete End With End Sub  
  15. Thanks
    lphant reacted to Gerson Pineda in Eliminar datos duplicados   
    Es de muy mala practica rellenar  color fondo las columnas completas, pues aumenta el peso del archivo como ademas sera lento en cualquier momento
    Si aun así insistes, pruebas asi
    With Hoja1.Range("A:D") .RemoveDuplicates Columns:=4, Header:=xlYes Range("A1:D1").Copy .PasteSpecial xlPasteFormats .Font.Size = 8 End With Range("A1:D1").Font.Size = 11  
    Saludos 
  16. Like
    lphant reacted to Gerson Pineda in Imprir varias hojas de un libro a la vez   
    @lphant 
    Agregue un mecanismo para imprimir dos hojas en una, revisa y prueba el adjunto
    Desde ya, lee sobre las configuraciones de pagina [PageSetup]
     
    Saludos 
     
    Imprimir 2 hojas en 1_GP.rar
  17. Thanks
    lphant reacted to Haplox in Buscar dato en hoja y poner la celda contigua   
    @lphant, esto ya debería ser fácl para ti, o al meos saber qué buscar . Te dejo una solución con el código comentado por si necesitas modificarlo
    Copia de Prueba.xlsm
  18. Like
    lphant reacted to Héctor Miguel in Bloquear apertura de Excel si no estás en el listado   
    hola, a todos !
    (por si fuera de utilidad...) mantener pulsada la tecla {shift} para omitir los eventos de apertura de un archivo de excel, funciona SOLAMENTE si el libro lo estas abriendo desde el mismo excel (archivo > abrir ...) pero NO FUNCIONA si el libro se abre cualquier otro medio (atajos, desde el escritorio, desde un explorador, etc.), en estos casos SI se ejecutan las macros de apertura
    saludos,
    hector.
  19. Like
    lphant reacted to Antoni in Bloquear apertura de Excel si no estás en el listado   
    Que sepas, que solo manteniendo la tecla Shift pulsada mientras se abre el archivo o desactivando las macros, cualquier macro que se ejecute al abrir el archivo, queda desactivada.
    Mejor protege el archivo con una contraseña y que solo la conozcan los usuarios autorizados.
    Saludos a todos.
  20. Like
    lphant reacted to Haplox in Bloquear apertura de Excel si no estás en el listado   
    Pues parece que no es tan difícil @lphant . Inserta un nuevo módulo:
    Sub usuario() Dim user As String Dim uf As Long Dim wshNetwork As Object 'New wshNetwork Dim usuario Set wshNetwork = CreateObject("WScript.Network") user = wshNetwork.UserName uf = Sheets(1).Range("A" & Rows.Count).End(xlUp).Row Set usuario = Sheets(1).Range("A2:A" & uf).Find(user, LookAt:=xlWhole, MatchCase:=True) If usuario Is Nothing Then MsgBox "No tiene permisos para acceder al archivo", vbCritical ActiveWorkbook.Saved = True ActiveWorkbook.Close Exit Sub End If End Sub En el workbok.open, llama a esta macro. para hacer pruebas comenta el
    ActiveWorkBook.Close
    Si no te va a dar quebraderos de cabeza
     
  21. Like
    lphant reacted to AlexanderS in Bloquear apertura de Excel si no estás en el listado   
    Hola, con Application.UserName obtendrás el nombre de usuario que inicio sesión, no se si eso es lo que pueden necesitar.
    Saludos.
  22. Like
    lphant reacted to Haplox in Bloquear apertura de Excel si no estás en el listado   
    Te dejo una solución @lphant . Antes de ponerlo en uso, ten en cuenta:
    Verás que en el código del formulario hay toda una subrutina comentada. Sirve para que no se pueda cerrar el formulario con la X. Lo  he dejado así para que puedas trabajar con el form si quieres cambiar algo en él. Descoméntala en la versión final PROTEGE el proyecto VBA con contraseña y, si quieres, para que no aparezca en el editor de VBA. Si no alguien con un poco de maña te desmontará el invento La busqueda de usuarios se realiza por el nombre exacto y distingue entre mayúsculas/minúsculas mediante los siguientes parámetros: LookAt:=xlWhole, MatchCase:=True Si no quieres que sea así, modifícalos: LookAt para búsqueda de nombre exacto, MatchCase para distinguir may/min  
    Copia de USUARIOS_XX.xlsm
  23. Like
    lphant reacted to aaquino in Crear una copia de seguridad de un excel   
    Hola, prueba con la macro del archivo adjunto.
    Copia de Seguridad.xlsm
  24. Like
    lphant reacted to Haplox in Buscar dato y concatenar con 2 colores   
    Qué tal @lphant ,
    Solo tienes que aplicar la siguiente fórmula siguiente a la celda activa:
    =BUSCARV(A2;G1:I8;2)&BUSCARV(A2;G1:I8;3) Que en VBA sería algo como lo siguiente que tendrías que aplicar a tu código:
    busqueda = Application.WorksheetFunction.VLookup(Numero, Range("G1:I8"), 2, False) & Application.WorksheetFunction.VLookup(Numero, Range("G1:I8"), 3, False)  
  25. Like
    lphant reacted to Haplox in Ajuste automatico de columnas de ListBox   
    Lo siento @lphant , no  hay manera de autoajuste como quieres. Tendrías que andar con fórmulas y relaciones
    Ten en cuenta que la forma como se muestran los datos en el listbox depende de:
    ancho de la columna de excel ancho total del listbox Fuente y tamaño de la letra del listbox Te dejo un ejemplo comentado para que veas los pasos. La letra del listbox la he establecido como  la misma de la hoja, para que los cálculos sean correctos.
    En cuanto a lo de los títulos, también lo tienes resuelto. Lo que he hecho en la tabla dinámica que ves modificada:
    Sobre la Celda "Paquete", con el botón derecho-->Eliminar "Paquete" En la celda "Rótulos de Fila", escribes "ESTADO" y en la otra "Paquetes", como si fueran celdas normales Los datos deben empezar en la fila inferior a  la de los títulos Nos comentas
    Copia de Menu_tabla_dinamica.xlsm
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png