Jump to content

Potter08

Members
  • Content Count

    225
  • Joined

  • Last visited


Reputation Activity

  1. Like
    Potter08 reacted to Antoni in Color de varias formas   
    Pues ya estoy aquí.
    Seleccionar un temario de la lista y pulsar Comenzar.
    Aparecerá una pregunta en la celda J14.
    Responder en la celda J16 y pulsar Responder o pulsar Pasa Palabra.
    Si quereis jugar con tiempo, llenar la celda L23. de lo contrario informar cero.
    El rango de celdas L6:L11 controla los colores del Rosco.
    La columna L puede ocultarse.
    Pasa palabra full.xlsm
  2. Like
    Potter08 reacted to Antoni in Efecto Botones en formulario   
    A grandes males, grandes remedios, una de las soluciones consite en poner un label transparente que ocupe todo el formulario, eso si, tendrás que detectar los click de los botones por la posición del cursor al hacer click sobre el label.
    Te dejo un ejemplo con el botón Salir (Image6) solucionado.
    He quitado el fondo del formulario para poder subir el archivo.
     
    Menú.xlsm
  3. Upvote
    Potter08 reacted to logroastur in Resumen optimizado   
    Buenas @Potter08
    En el archivo posees una posible solución, en el interior posees la explicación
    Espero te pueda ser de utilidad
    Un saludo 
    Resumen ejemplo.rar
  4. Upvote
    Potter08 reacted to Antoni in Barra de proceso en celdas   
    Informa TOTAL y REALIZADOS, los NO REALIZADOS se calculan automáticamente.
    BARRA DE PROCESO.rar
  5. Upvote
    Potter08 reacted to Oscar.Villatoro in Inventarios de activo fijo   
    Saludos mis estimados compañeros...

    He de comentarles que durante muchos meses de trabajo he formado un control a la medida, el que he denominado como: Control de Activos Fijos. Resulta que con éste llevo un historial de las compras de mobiliario y equipo, equipo de computación, equipo de telefonía, etc.... llevando a la vez un inventario que se acumula de forma automática (en unidades y en moneda local -quetzal-) así como otras pequeñas funciones que me han sido útiles. ahh y olvidaba algo que me ha ayudado mucho... una tarjeta de control (donde por número de tarjeta se pueden visualizar las operaciones de ingreso y salida de los bienes). Hoy comparto éste archivo como una muestra de gratitud por el apoyo que de una u otra manera he recibido de muchas personas en éste foro (aunque no necesariamente se los solicité sino que con sus preguntas y ejemplos me han inspirado a lo largo de muchos meses). Espero sea de utilidad para aquellos que quieran verlo y utilizarlo o adaptarlo.

    Considero oportuno indicar que dicho archivo inicialmente lo publiqué en otra categoría... para apoyar una solicitud... pero al reflexionar, creo que ésto tiene que ver más con macros que con lo básico de excel...

    Ahi estamos por cualquier duda o comentario. Saludos desde Guatemala.
    INVENTARIOS_DE_ACTIVO_public.part006.rar
    INVENTARIOS_DE_ACTIVO_public.part005.rar
    INVENTARIOS_DE_ACTIVO_public.part004.rar
    INVENTARIOS_DE_ACTIVO_public.part003.rar
    INVENTARIOS_DE_ACTIVO_public.part002.rar
    INVENTARIOS_DE_ACTIVO_public.part001.rar
    INVENTARIOS_DE_ACTIVO_public.part006.rar
    INVENTARIOS_DE_ACTIVO_public.part005.rar
    INVENTARIOS_DE_ACTIVO_public.part004.rar
    INVENTARIOS_DE_ACTIVO_public.part003.rar
    INVENTARIOS_DE_ACTIVO_public.part002.rar
    INVENTARIOS_DE_ACTIVO_public.part001.rar
    INVENTARIOS_DE_ACTIVO_public.part006.rar
    INVENTARIOS_DE_ACTIVO_public.part005.rar
    INVENTARIOS_DE_ACTIVO_public.part004.rar
    INVENTARIOS_DE_ACTIVO_public.part003.rar
    INVENTARIOS_DE_ACTIVO_public.part002.rar
    INVENTARIOS_DE_ACTIVO_public.part001.rar
  6. Upvote
    Potter08 reacted to FelipeLopez1121 in Formula para indicar existencia   
    Avisame como te va con esto.
    Saludos
    Ejemplo Formula version Felipe.xls
  7. Upvote
    Potter08 reacted to bfelix in Formula para indicar existencia   
    Hola a t@odos, [uSER=205450]@FelipeLopez1121[/uSER] tiene razón, la explicación de Potter08 (¿se llamará Harry?) es difícil de entender a pesar del archivo que adjunta.
    Saludos,
    bfelix
  8. Upvote
    Potter08 reacted to FelipeLopez1121 in Formula para indicar existencia   
    Hice lo que pude en función a lo que pude entender de tu explicación.
    Ejemplo Formula.xls
  9. Upvote
    Potter08 reacted to CharlieFonseca in Formula para indicar existencia   
    Que tal,
    Pienso que una manera facil de hacerlo es con la formula que puse en el archivo. Solamente que en este caso es muy importante que ordenes por dos niveles; primero por producto y en segundo por cantidad ascendente.
    Ejemplo Formula.xls
  10. Upvote
    Potter08 reacted to Gerson Pineda in Formula para indicar existencia   
    Saludos a todos!
    [uSER=83]@Potter08[/uSER] revisa el adjunto, espero pegarle al clavo (no altere nada en las tablas)
    Inventariar con formulas_GP.rar
  11. Upvote
    Potter08 reacted to JUANJG in Formula para indicar existencia   
    Que tal [uSER=83]@Potter08[/uSER] creo que la siguiente formula también te sirve, ademas de las que han dado los demás participantes del foro, sin embargo si quieres identificar la mayor cantidad de pedidos para los que alcanza deberás ordenar por cantidad en orden ascendente, de lo contrario la formula tomara los pedidos por orden de ingreso. coloco un ejemplo: si tienes existencias por 50 unidades e ingresas 3 pedidos en el siguiente orden 50, 25 y 25 para el primero te alcanza y para los 2 ultimos no, ordenas ascendentemente te alcanzara para los 2 de 25 y no para el de 50.

    =SI((SUMAR.SI($A$2:A3;A3;$B$2:B3)-SUMAR.SI($L$2:$L$9;A3;$N$2:$N$9))<=0;"Alcanza";"No Alcanza")[/CODE]
    colocala en la celda D3
    El segundo sumar si, simplemente lleva la cantidad de existencias, lo cual lo puedes realizar con un BUSCARV o INDICE.., en fin para una misma consulta pueden haber varias soluciones.
    Espero te sirva.
    Salu2
  12. Upvote
    Potter08 reacted to Enigma25 in Buscar   
    Buenas noches
    Estimados señores
    Les dejo un pequeño aporte para buscar datos de columna(1) en la Hoja1.
    Espero les sea útil.
    Mis respetos.
    Buscar Find.zip
  13. Upvote
    Potter08 reacted to kovichlive in Varias macros   
    Te Comparto mi archivo favorito....
    Excel Tool VBA Password Recovery.xls
  14. Upvote
    Potter08 reacted to Gerson Pineda in Identificar a que mes pertenece segun tabla de fechas   
    Mi estimado @[uSER=83]Potter08[/uSER] como sabes es mas que un gusto colaborar
    Saludos
  15. Upvote
    Potter08 got a reaction from Antoni in Copiar solo columnas según dia   
    Excelente trabajo Macro Antonio, es la solucion correcta gracias, y a todos por participar
    Consulta finalizada.
    Salu2.xlsx
  16. Upvote
    Potter08 reacted to Antoni in Venta al público-caja   
    Hola a todos:
    Aquí os dejo una parte de la aplicación de Ventas al público que estoy desarrollando.
    Se trata del cuadre y consulta de saldos de caja.
    No tiene misterio, solo hay que informar del desglose de monedas y billetes del país en cuestión y listo.
    Os lo entrego preparado para el Euro (€)
    La próxima entrega sera la de Ventas díarias.
    Saludos
    PD: El desglose por monedas no es obligatorio, se puede informar directamente el total de Efectivo en caja.
    CAJA.xls
  17. Upvote
    Potter08 reacted to verzulsan in Hoja auxiliar de control de visibilidad de hojas   
    Hello
    Permite cómodamente trabajar con muchas hojas ayudándote a organizar las hojas por categorías o decidir cuáles estarán visibles u ocultas.
    Pues pegado este código (made in sevilla) en cualquier hoja (dejo adjunto aun que da el mismo resultado pegar el codigo en una hoja cualquiera), la convierte en un panel de control de visibilidad de todas las hojas que contenga el libro. Muy fácil de usar, únicamente hay que copiar la hoja en cualquier libro.

    Option Explicit

    Private Const PreFix As String = " (ws) " 'Prefijo añadido al nombre de hoja para dinamizar el trato de hojas, _
    me explico: _
    Para poder generar un listado dinamico donde la lista no sea necesariamente en una columna de arriba a _
    abajo, necesito reconocer el nombre en la celda inequivocamente, ya que si hay una celda llamada _
    "FACTURAS" que indica "el nombre" de la hoja con todas las facturas y otra celda que pone _
    "FACTURAS PASADAS" que significa el rotulo, o un apunte mio o lo que sea, pues la hemos pifiado _
    ya el programa lo tomará como una hoja real, pero si le añadimos un prefijo, " (ws) ", o cualquier _
    otro prefijo, es muy improbable que manualmente se introduzca el prefijo, _
    AUN QUE NO IMPOSIBLE, pero queda ya fuera de mi analisis por improbable. _
    _
    RECUERDA: Las funciones estan preparadas para que prefijo tenga un espacio al principio y al final, _
    Si se quiere quitar los espacios, habria que retocar todas las funciones que dependen de este formato. _
    Ejem1: " (Nueva Etiqueta) " -> Correcto _
    Ejem2: " -=]Nueva Etiqueta[=- " -> Correcto _
    Ejem3: "(Nueva Etiqueta)" -> Incorrecto




    Private Sub Worksheet_Activate()
    Dim ws As Worksheet
    Dim i As Long
    '
    Dim p As Range 'Var Aux para recorrer los rangos

    Dim RangoPreFix As Range 'Rango que engloba todas las celdas con PreFix (Existan o no las hojas)

    Dim ColorRojo As Long 'Color de las hojas que no se han encontrado en la coleccion de hojas del libro
    Dim ColorVerde As Long 'Color de las hojas que se han encontrado y que estan visibles
    Dim ColorAzul As Long 'Color de las hojas que se han encontrado y que estan ocultas

    ColorRojo = RGB(255, 0, 0)
    ColorVerde = RGB(0, 128, 0)
    ColorAzul = RGB(0, 0, 255)

    Dim HojasIntocables As String 'Array concatenado en texto con los nombres de hojas especiales _
    que no van a ser tratadas automaticamente por las macros de ocultacion y mostracion


    'Agrega tantas lineas como hojas necesites proteger
    HojasIntocables = HojasIntocables & "#" & "Cpanel" & "#"
    HojasIntocables = HojasIntocables & "#" & "HojaProtegida" & "#"
    i = 1

    'Coloreamos de color rojo todas las casillas con prefijo, _
    De esta manera, inicialmente no existe ninguna hoja asociada a ninguna celda. _
    Asi que cuando termine el recuento de hojas, las que queden de rojo, son las que _
    realmente no existen.
    Call setFormatoCasillaHoja(BuscarPreFix, ColorRojo)

    'Recorre todas las hojas del libro en WS y (busca o crea) una celda linkada al estado de visibilidad de la hoja
    For Each ws In ThisWorkbook.Sheets
    If InStr(1, HojasIntocables, "#" & ws.Name & "#", vbTextCompare) = 0 Then
    'La hoja no está protegida
    Set p = FindCellRangeByValue(PreFix & ws.Name)

    If p Is Nothing Then
    'Si no encuentra la celda p, la crea en un hueco libre

    'Apunta a la primera fila disponible de la columna 1
    Do While (Cells(i, 1) <> "")
    i = i + 1
    Loop
    Set p = Cells(i, 1)
    p.Value = PreFix & ws.Name
    End If

    'Marca la celda como Hoja (visible/oculta)
    If ws.Visible = True Then
    Call setFormatoCasillaHoja(p, ColorAzul)
    Else
    Call setFormatoCasillaHoja(p, ColorVerde)
    End If

    End If
    Next
    End Sub



    'Da formato a los caracteres desde la posicion 2 hasta largo(PreFix)-2
    Private Sub setFormatoCasillaHoja(ByRef Celda As Range, ByRef Tono As Long)
    Dim Largo As Long
    On Error GoTo ErrorsetFormatoCasillaHoja
    Largo = Len(PreFix) - 2
    With Celda.Characters(Start:=2, Length:=Largo).Font
    .Superscript = True
    .Color = Tono
    End With
    ErrorsetFormatoCasillaHoja:
    End Sub


    'Busca una coincidencia exacta de texto en toda la hoja
    Private Function FindCellRangeByValue(Nombre As String) As Range
    On Error GoTo ErrorFindCellRangeByValue

    Dim Celda As Range
    Set Celda = Cells.Find(Nombre, [A1], -4123, 1, 1, 1, 1, 0, False)

    ErrorFindCellRangeByValue:
    Set FindCellRangeByValue = Celda
    End Function


    'Genera y devuelve un rango con la seleccion de todas las casillas que contentan el PreFix en la primera posicion.
    Private Function BuscarPreFix() As Range
    On Error GoTo FinDeFuncion
    Dim Rango As Range
    Dim p As Range, q As Range


    Set p = Cells.Find(PreFix, [A1], -4123, 2, 1, 1, 0, 0, True)
    Set q = p
    Do
    If InStr(1, p.Value, PreFix, vbTextCompare) = 1 Then
    If Rango Is Nothing Then
    Set Rango = p
    Else
    Set Rango = Union(Rango, p)
    End If
    End If

    Set p = Cells.Find(PreFix, p, -4123, 2, 1, 1, 0, 0, True)
    If q.Address = p.Address Then Exit Do
    Loop

    FinDeFuncion:
    Set BuscarPreFix = Rango
    End Function


    'Evento de doble click que actua como switch en las celdas etiquetadas con PreFix (muestra u oculta hojas)
    Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Dim ws As Worksheet

    If Target.Count = 1 Then
    'Si el evento afecta a una sola celda
    If InStr(1, Target.Value, PreFix, vbTextCompare) = 1 Then
    'Si el prefijo está al inicio del string
    'Se comprueba que la hoja existe (Se le pasa la cadena sin el prefijo)
    Set ws = ExisteHoja(Mid(Target.Value, Len(PreFix) + 1, Len(Target.Value) - Len(PreFix)))
    'Comprueba que la hoja exista antes de invertir visibilidad
    If Not (ws Is Nothing) Then
    Cancel = True
    Application.ScreenUpdating = False
    If ws.Visible = True Then
    ws.Visible = False
    Call setFormatoCasillaHoja(Target, RGB(0, 128, 0))
    Else
    ws.Visible = True
    Call setFormatoCasillaHoja(Target, RGB(0, 0, 255))
    End If
    Application.ScreenUpdating = True
    End If
    End If
    End If
    End Sub


    'Comprueba si una hoja existe
    'Parametro
    'Asociado al nombre, Devuelve la hoja, si la hoja existe, hoja vacia si la hoja no existe
    Private Function ExisteHoja(NombreHoja As String) As Worksheet
    Dim hojaAux As Worksheet
    On Error GoTo Errores

    Set hojaAux = Sheets(NombreHoja)

    Errores:
    Set ExisteHoja = hojaAux

    End Function

    [/CODE]
    Consta de 2 eventos automáticos:
    [size=5][u][b]Evento 1:[/b][/u][/size] Activación de Hoja

    [indent]Al activar la hoja (esto es simplemente entrar en la hoja), se genera un listado (en la columna A desde la celda A1) en donde cada celda del listado contiene el nombre una de las hojas del libro que haya superado el filtro interno de hojas a tratar, llamaré "Celdas Hoja" a dichas celdas. La peculiaridad que tiene es que una vez generado ese listado, puedes mover las "Celdas Hoja" a otras posiciones y cuando vuelvas a entrar en la hoja, el listado se respeta.[/indent]

    Si existen datos en la columna A, buscará el primer hueco vacio.
    [u][b]Una "Celda Hoja"[/b][/u],

    [indent]consta de un "Prefijo" que la identifica, en este caso el prefijo es (ws) que viene de "WorkSheet" (podeis cambiar esta constante por cualquier otro prefijo), si una celda contiene un prefijo en cualquier parte que no sea en la posición 1, entonces no es una "Celda Hoja".[/indent]

    [b][u]El prefijo[/u][/b] de las "Celdas Hoja" puede ser de [b][u]3 colores[/u][/b]:

    [indent][b][u][color=#0000ff]Azul:[/color][/u][/b] La hoja referida por la "Celda Hoja" está visible
    [color=#336600][u][b]Verde:[/b][/u][/color] La hora referida por la "Celda Hoja" está oculta, he escogido verde porque mentalmente me recuerda a los comentarios en verde del VBA, como diciendo, Hoja desactivada, hoja oculta, podéis toquetear el código y poner el color que mas coraje os dé.
    [color=#ff0000][u][b]Rojo:[/b][/u][/color] Son "Ex-Celdas Hoja", es decir, fueron "Celdas Hoja" pero por el motivo que sea, esa hoja ya no existe con ese nombre en todo el libro. Generalmente va a ocurrir cuando cambiamos el nombre de una hoja y volvemos a la de Panel. También puede ocurrir si tenemos 2 o más "Celdas Hoja" idénticas, en este caso, la macro tomará la primera que encuentre como valida dejando en rojo la segunda (Está hecho así adrede).[/indent]

    [u][b]Evento 2:[/b][/u] Doble Click

    [indent]Haciendo doble click en una "Celda Hoja" (Cualquiera cuyo prefijo no sea rojo), invierte el estado de la hoja relacionada actuando como switch de la misma. Si la hoja está visible, se oculta, y si está oculta, se hará visible.[/indent]

    [size=3][color=#ff0000]NOTA:[/color] Para que la macro ignore algunas hojas que consideramos que no deberían ser tratadas por la macro, agregadlas dentro del código, al igual que las dos hojas del ejemplo de abajo (“Cpanel” y “HojaProtegida”):[/size]
    [CODE]HojasIntocables = HojasIntocables & "#" & "Cpanel" & "#"
    HojasIntocables = HojasIntocables & "#" & "HojaProtegida" & "#"
    HojasIntocables = HojasIntocables & "#" & "NombreHoja3" & "#"
    HojasIntocables = HojasIntocables & "#" & "NombreHoja4" & "#"[/CODE] [size=3]Agregad tantas líneas como hojas queráis proteger.[/size]
    Merry Christmas
    Hoja auxiliar de control de visibilidad de hojas_vzs.xls
  18. Upvote
    Potter08 reacted to Antoni in "fixture" brasil 2014 -la versión de macro   
    Hola People:
    Como prometí aquí esta mi visión del Mundial de fútbol de Brasil 2014 sin fórmulas.
    Lo primero, agradecer a @[uSER=9328]Gerson Pineda[/uSER] las banderas y los datos de emparejamiento, ambas cosas las he "pirateado" sin compasión alguna.
    Al abrir el archivo se muestra el formulario único que gobierna el campeonato.
    Para salir/ entrar, pulsar sobre la mascota de los campeonatos, horrible por cierto, una foto de mis agapornis hubiera quedado bastante mejor.
    Saludos y feliz año nuevo
    https://dl.dropboxusercontent.com/u/241435/Mundial 2014 II.rar
    .

  19. Upvote
    Potter08 reacted to digitalboy in Ejemplos de código para crear tablas dinámicas   
    Hola!
    Aquí les dejo el siguiente aporte... se trata de un archivo con ejemplos de código para la creación y manipulación de tablas dinámicas en VBA/Excel
    Creación de tablas dinámicas con VBA/Excel | MeXcel Plus
    Saludos
  20. Upvote
    Potter08 reacted to AlexanderS in Userform con animaciones o efectos de transición   
    Hola pues haber si me exprese bien en el titulo.
    Bueno esta es una idea para crear formularios mas parecidos a una aplicación o por lo menos mas "llamativos a la vista", el userform tiene efectos de transición y alguna que otra cosita. No hace nada importante pues es solo para que vean los efectos en el userform
    Las opciones de buscar no las he programado por lo que no hacen nada todo lo demás funciona.
    Si tienen alguna duda o sugerencia no duden en decirme...
    Hago una pequeña encuesta para ver que les pareció espero no les moleste.
    Probado en Excel 2010 y 2013. Añado a servidores externos por tamaño.
    Microsoft SkyDrive - Access files anywhere. Create docs with free Office Web Apps.
    https://www.mediafire.com/folder/sbop2bda45shz/Formulario%20animado
    Edito:
    Añado archivo con efecto "Nieve" a solicitud de Enigma25
    Edito otra vez
    Añado efecto MATRIX
    Añado efecto rebote de balón
    Añado Efecto letras que cambian de color
    Añado otro efecto "Efecto letras" (No se me ocurrió otro nombre)
    Salu2
    Blanca Navidad.zip
    Matrix.zip
    Efecto rebote de balón.zip
    Letras de color.zip
    Efecto letras.zip
×
×
  • Create New...

Important Information

Privacy Policy