Jump to content

tierra_pampa

Members
  • Content Count

    317
  • Joined

  • Last visited

  • Days Won

    16

tierra_pampa last won the day on September 10

tierra_pampa had the most liked content!

4 Followers

About tierra_pampa

  • Rank
    Advanced Member
  • Birthday 03/16/1961

Contact Methods

  • Twitter
    @tierra_pampa

Profile information

  • Gender
    Hombre
  • Localización:
    Santa Rosa, La Pampa

Converted

  • Campos
    ;

Recent Profile Visitors

2,036 profile views
  1. Hola @paikerr Prueba si ésto es lo que necesitas. Suerte! Private Sub Worksheet_Activate() If ActiveSheet.AutoFilter Is Nothing Then Range("A1:H1").AutoFilter End Sub
  2. Hola @Arii Te dejo otra opción (con una trampita). Si modificas la hoja "ENTRADA" y si el modelo que ingresas en la celda "B" no está en la tabla "INVENTARIO", se agrega automáticamente en la última fila. Por favor, toma en cuenta que dicho modelo no tendrá "EXISTENCIA INICIAL". @Silvia Perdón por usar macros en esta sección del foro! ⛔ Suerte! ae43960_INVENTARIO_v3.xlsm
  3. jajaja, la nueva web me está ganando por goleada...envié el mensaje sin querer... Hola de nuevo, @Arii Por favor, revisa nuevamente; es lo que hace el archivo. Según tu solicitud, ingresas el modelo en la hoja "SALIDA" (sería más conveniente un código numérico e individual para cada producto) Dejo un video para que puedas comprobarlo. Si deseas valorar el tiempo invertido en procurar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario. Suerte! Link al video
  4. Perdón, subí un archivo equivocado ae43960_INVENTARIO_2.xlsx
  5. Hola @Arii Te dejo un archivo para que compruebes si es lo que necesitas. Suerte!
  6. Hola @federtuc Prueba si es lo que necesitas. Qué tengas un buen día! Suerte! Sub capturar_nombre() Dim cruta1 As String, cpos1 As String, cimg1 As String cruta1 = "": cruta1 = "C:\Users\fede_\Documents\NUEVA CARPETA\IMAGENES\INSUMOS\TECLADO GENIUS.jpg" cpos1 = "": cpos1 = InStrRev(cruta1, "\") cimg1 = "": cimg1 = Right(cruta1, Len(cruta1) - cpos1) MsgBox "Nombre de la imagen: " & Chr(13) & Chr(13) & cimg1, vbInformation, "Funciones de cadena de texto" End Sub
  7. Hola @Maria_80 Te dejo un archivo modificado para que pruebes si es lo que necesitas. Qué tengas un buen día! Suerte! ae20200817_post43892_ejemplo_pegado.xlsm
  8. Hola @jhon fredy Parecido, pero no igual. Te dejo mi aporte. Maestro @Antoni, me copio vuestro código para mi biblioteca personal....(creí que terminaban con 56) Qué tengas un buen día! Suerte! Sub prueba_colores() Cells.Delete i = 6: j = 1 Cells(i, 1).Select For i = 6 To 61 Cells(i, 1).Value = j color = Int(j): Cells(i, 2).Interior.ColorIndex = color j = j + 1 Next i End Sub
  9. Hola @Leonardo Briceño Intenta insertando este código en la misma hoja que quieres proteger. Prueba y coméntanos. Qué tengas un buen día! Suerte! Private Sub Worksheet_Activate() ThisWorkbook.Protect "No_Se_Puede_Eliminar_La_Hoja", True, False End Sub Private Sub Worksheet_Deactivate() ThisWorkbook.Protect "No_Se_Puede_Eliminar_La_Hoja", False, False End Sub
  10. Hola @Alexmoon Te dejo una prueba para que veas si te conviene. Es muy complicado para el usuario filtrar en la misma hoja (por ahí puedes tener los datos en una hoja separada y filtras desde otra). Tú decide. El archivo está focalizado en base a tu pedido. Para actualizar la lista del filtro, solo elige otra Hoja cualquiera del libro y vuelve a ingresar. Si deseas valorar el tiempo invertido en procurar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario. Qué tengas un buen día! Suerte!
  11. Hola @gacg1310 Ante todo, una aclaración: no tuve el tiempo necesario para revisar el archivo. El problema está cuando pones *.Enabled ="" (es simplemente "TRUE" o "FALSE") Dejo el código para reemplazo (pon un apóstrofo por delante de la frase para anular) Éste código lo encontré en el Userform2. Qué tengas un buen día! Suerte! Private Sub UserForm_Initialize() CheckBox1.Enabled = True 'CheckBox1.Enabled = "" CheckBox2.Enabled = True 'CheckBox2.Enabled = "" End Sub
  12. Hola @MauriciodeAbreu Selecciona el formulario y busca la propiedad "StartUpPosition". Te dejo una img Eres nuevo. Por favor ten en cuenta que, para una mejor resolución de los problemas, debes subir un archivo ejemplo (no necesariamente el original ni con datos verdaderos, pero que tenga la estructura de aquel). Si deseas retribuir el tiempo invertido en procurar la solución del problema planteado, puedes hacerlo con un click en el corazón que se encuentra en la parte derecha del comentario. Qué tengas un buen día! Suerte!
  13. Hola @MauriciodeAbreu En la propiedad "PasswordChar" ingresa un asterisco. Te dejo una img. Qué tengas un buen día! Suerte!
  14. Hola @jeaa Amigo, aquí te dejo una nueva versión (modificada para ver si podemos salvar el error que te saca fuera de la aplicación) Te agregué un formulario para que te haga las veces de formulario principal (menú). Si te continúa dando problemas, lo vemos. Qué tengas un buen día! ae20200731_post43836_inventario v2.xlsm
×
×
  • Create New...

Important Information

Privacy Policy