Jump to content

Luis paz

Members
  • Content Count

    131
  • Joined

  • Last visited

  • Days Won

    5
  • Country

    United States

Reputation Activity

  1. Thanks
    Luis paz got a reaction from Maria_80 in Macro que me da error al filtrar   
    Hola Maria, Intenta con lo siguiente:
    Sub prueba_filtro()     Dim celda As Range, rng As Range     Dim UFO As Variant, UFD As Variant     Applicat False     'Quitamos filtro si lo hay     If Origen.FilterMode Then Origen.ShowAllData     'filtramos     Origen.Range("F1").AutoFilter Field:=6, Criteria1:="SERVICIO"     'Para pegar los datos de LA FECHA     UFO = Origen.Cells(Rows.Count, 1).End(xlUp).Row     If UFO = 1 Then: GoTo Nada     'Origen.Range("G2:G" & UltimaFila).Copy Destination:=Destino.Cells(7, 3)          Set rng = Origen.Range("F2:F" & UFO)     For Each celda In rng         If celda.EntireRow.Hidden = False Then             UFD = Destino.Cells(Rows.Count, 3).End(xlUp).Row + 1             Destino.Range("C" & UFD).Value = Origen.Range("G" & celda.Row).Value         End If     Next celda Nada: Applicat True End Sub Function Applicat(TrueFalse As Variant)     Application.ScreenUpdating = TrueFalse     If TrueFalse = False Then: Application.Calculation = xlCalculationManual: Else: Application.Calculation = xlCalculationAutomatic     Application.EnableEvents = TrueFalse     ActiveSheet.DisplayPageBreaks = TrueFalse End Function  
     
    Aun que no entiendo porqué te complicas con el filtro. Lo que estás haciendo es pasar los datos que cumplen con una condición, que podrías conseguirlo de igual manera con un For
    Sub ConFor() Dim UFO As Variant, UFD As Variant, i As Variant UFO = Origen.Cells(Rows.Count, 1).End(xlUp).Row For i = 2 To UFO If Origen.Cells(i, 6).Value = "SERVICIO" Then UFD = Destino.Cells(Rows.Count, 3).End(xlUp).Row + 1 Destino.Cells(UFD, 3).Value = Origen.Cells(i, 7).Value End If Next i End Sub  
    Saludos!
     
     
  2. Thanks
    Luis paz got a reaction from Marcos14 in TextBox   
    Si estimado, te has explicado, y te he adjuntado un archivo como ejemplo en el cual está la respuesta a tu consulta, la unica diferencia es que en mi ejemplo solo puse un textbox, lo único que tienes que hacer es duplicar el pequeño código y listo... no se en dónde está tu problema
    Código que te envié:
    Private Sub CheckBox1_Click() If Me.CheckBox1.Value = True Then Me.TextBox1.PasswordChar = "" Else Me.TextBox1.PasswordChar = "*" End If End Sub Qué tienes que hacer nivel explicado nivel @Marcos14:

     
     

     

     
    Y lo mismo con la otra parte del If y taran, problema resuelto 😆
     
     
  3. Haha
    Luis paz got a reaction from Silvia in Lista desplegable de datos de varias hojas   
    Hola @Ridisc
    Te propongo utilizar lo siguiente en la lista desplegable 
    =INDIRECTO("'"& 'historico de ventas'!A2 & "'!A2:A5") Adjunto un archivo para tu mejor comprensión
    Recomendación personal:
    Veo que eres nuevo en el foro.. como recomendación cuando vayas abrir un tema, procura ser así de específico como ahora, y si puede un poco más, y además si puedes proporciona algún material para trabajar y tengamos una idea de más o menos que es lo que necesitas, ya que personas ocmo yo a veces nos cuesta, tedrás mucha suerte si @Silvia te responde porque ella le entiende a todos
    Bienvenido al Foro Amigo,
    Saludos!
    historico de ventas.xlsx
  4. Thanks
    Luis paz reacted to ikanni in ACCESS AGREGAR NUEVOS DATOS   
    Hola Luis Paz,
    Bueno la verdad es que los datos de las tablas que colgastes estan hechas un cisco. No consigo entender como tienes los registros introducidos y su relación. Para que te haría algo necesito mas información, como ¿Los titulos se puede repetir dentro de una ley. Los capitulos se pueden repetir dentro de un titulo. Los articulos se pueden repetir dentro de un capitulo. Hay  parrafos dentro de un mismo articulo que se repiten, no entiendo porqué, en fin y mas información de la que nos has puesto. Despues de mirar y remirar los datos introducidos yo cambiaria las tablas y las indexaria de otra manera. Te pego una imagen de como extructuraria las tablas. Pero para mas pruebas necesitao mas información.

  5. Haha
    Luis paz got a reaction from Silvia in Administrador de Nombres   
    Hola @Marcos14
    Puedes adjuntar tu archivo para ver si es un tema del código, y no de tu excel, ya que no podemos acceder a tu computadora para verificar jaja🤣
  6. Haha
    Luis paz got a reaction from Silvia in Lista desplegable de datos de varias hojas   
    Hola @Ridisc
    Te propongo utilizar lo siguiente en la lista desplegable 
    =INDIRECTO("'"& 'historico de ventas'!A2 & "'!A2:A5") Adjunto un archivo para tu mejor comprensión
    Recomendación personal:
    Veo que eres nuevo en el foro.. como recomendación cuando vayas abrir un tema, procura ser así de específico como ahora, y si puede un poco más, y además si puedes proporciona algún material para trabajar y tengamos una idea de más o menos que es lo que necesitas, ya que personas ocmo yo a veces nos cuesta, tedrás mucha suerte si @Silvia te responde porque ella le entiende a todos
    Bienvenido al Foro Amigo,
    Saludos!
    historico de ventas.xlsx
  7. Haha
    Luis paz reacted to Antoni in varias hojas con dos valores a buscar   
    Archivo Excel, no imágenes.
  8. Thanks
    Luis paz got a reaction from SALAVERRINO in MACRO PARA GUARDAR PDF   
    Hola,
    Se soluciona con lo siguiente:
    Option Explicit Dim i As Integer Dim intInicial As Integer Dim intFinal As Integer Dim intConsecutivo As Integer Dim srtTitulo As String Dim Ruta As String Dim e As Variant Sub ElegirAccion2() srtTitulo = "PRUEBITA" intConsecutivo = ThisWorkbook.Sheets("BOLETA PDF").Range("CONSECUTIVO").Value intInicial = Sheets("BOLETA PDF").Range("N4") intFinal = Sheets("BOLETA PDF").Range("M3") If intFinal < intInicial Or intFinal > intConsecutivo Then MsgBox "Valida el ID final.", vbExclamation, srtTitulo Else Worksheets.Add.Name = "PDF" Sheets("BOLETA PDF").Select Ruta = ActiveWorkbook.Path e = 0 For i = intInicial To intFinal e = e + 87 ThisWorkbook.Sheets("BOLETA PDF").Range("B5").Value = i ThisWorkbook.Sheets("BOLETA PDF").Range("B5").Value = i Sheets("BOLETA PDF").Range("A1:J87").Copy Sheets("PDF").Range("A" & e - 86 & ":J" & e).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False Next i End If Sheets("PDF").Select Sheets("PDF").PageSetup.PrintArea = "$A$1:$J$" & e Sheets("PDF").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ruta & "\" & i & " Boletas" & ".pdf", _ Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Sheets("BOLETA PDF").Select Sheets("PDF").Delete End Sub Existe un problema con el formato ya que no queda de la misma manera cuando imprimer uno por uno (con un formato específico y un área de impresión específica) a cuando imprimes todo...
    Yo por lo pronto, solo puedo aportarte una idea, no la solución en sí.
    Saludos amigo!
  9. Like
    Luis paz got a reaction from Antoni in ¿Vale la pena seguir en el foro?   
    Hola @Antoni
    No se pudo haber expresado mejor! Concuerdo totalmente
    Es verdad que está muy tranquilo el foro, parece ser que ahora todo ya se encuentra en la red, incluyendo  todos los temas que se han tocado en este foro.
    Respondiendo a la pregunta, en mi opinión. Vale la pena si los miembros activos del foro nos pongamos nuevo retos y colaboramos entre nosotros para mejorar y llevar más allá los conocimientos, proponiendo temas complicados que algún día llegó a nuestra mente "de podría hacer..." . Repito, es mi opinión, ya que dudo que los nuevos miembros tengan interés de aprender y no sólo que les resuelvan su problema, tal y como lo planteas...
    Saludos!
     
  10. Haha
    Luis paz got a reaction from Silvia in Administrador de Nombres   
    Hola @Marcos14
    Puedes adjuntar tu archivo para ver si es un tema del código, y no de tu excel, ya que no podemos acceder a tu computadora para verificar jaja🤣
  11. Haha
    Luis paz got a reaction from Silvia in Administrador de Nombres   
    Hola @Marcos14
    Puedes adjuntar tu archivo para ver si es un tema del código, y no de tu excel, ya que no podemos acceder a tu computadora para verificar jaja🤣
  12. Like
    Luis paz got a reaction from Ridisc in Lista desplegable de datos de varias hojas   
    Estimado, creo que no entendiste el archivo que te envié..
    Puedes revisarlo de nuevo nos comentas
    historico de ventas.xlsx
  13. Like
    Luis paz got a reaction from Ridisc in Lista desplegable de datos de varias hojas   
    Estimado, creo que no entendiste el archivo que te envié..
    Puedes revisarlo de nuevo nos comentas
    historico de ventas.xlsx
  14. Haha
    Luis paz got a reaction from Silvia in Lista desplegable de datos de varias hojas   
    JAJAJA es lo que dije, pero bien resumido 🤣
     
  15. Haha
    Luis paz got a reaction from Silvia in Lista desplegable de datos de varias hojas   
    Hola @Ridisc
    Te propongo utilizar lo siguiente en la lista desplegable 
    =INDIRECTO("'"& 'historico de ventas'!A2 & "'!A2:A5") Adjunto un archivo para tu mejor comprensión
    Recomendación personal:
    Veo que eres nuevo en el foro.. como recomendación cuando vayas abrir un tema, procura ser así de específico como ahora, y si puede un poco más, y además si puedes proporciona algún material para trabajar y tengamos una idea de más o menos que es lo que necesitas, ya que personas ocmo yo a veces nos cuesta, tedrás mucha suerte si @Silvia te responde porque ella le entiende a todos
    Bienvenido al Foro Amigo,
    Saludos!
    historico de ventas.xlsx
  16. Like
    Luis paz reacted to Antoni in ¿Vale la pena seguir en el foro?   
    Hola foreros:
    Como esto está demasiado tranquilo últimamente, he decidido haceros la pregunta del enunciado de este post.
    Como miembro habitual del foro de macros he observado que este se está convirtiendo en un desfile de media docena de consultantes que preguntan y repreguntan lo mismo una y otra vez, todos sabemos quienes son, pero no dudamos en seguir contestándoles a pesar de ver que solo persiguen que resolvamos sus problemas con una herramienta que desconocen y, que según parece, no tienen el más mínimo interés en esforzarse en conocerla. 
    Los cinco últimos consultantes acumulan la friolera de 1.470 respuestas en su historial de consultas. Esto va más allá de alguna consulta puntual sobre dudas que puedan surgir en el desarrollo de un proyecto.
    Propongo a la dirección del foro que de alguna forma se ponga punto final a esta práctica,  ¿como?, quizás impidiéndoles nuevas consultas por un tiempo, o cobrándoles por ello, o limitando el número de respuestas de sus consultas, no se, pero algo hay que hacer.
    Repito, ¿Vale la pena seguir en el foro para esto?. Ahí lo dejo.
    Saludos
  17. Like
    Luis paz reacted to ikanni in ACCESS AGREGAR NUEVOS DATOS   
    ANdo muy liado, pero dame un poco de tiempo y le echo una ojeada en profundidad
  18. Haha
    Luis paz got a reaction from Silvia in Lista desplegable de datos de varias hojas   
    JAJAJA es lo que dije, pero bien resumido 🤣
     
  19. Haha
    Luis paz got a reaction from Silvia in Lista desplegable de datos de varias hojas   
    Hola @Ridisc
    Te propongo utilizar lo siguiente en la lista desplegable 
    =INDIRECTO("'"& 'historico de ventas'!A2 & "'!A2:A5") Adjunto un archivo para tu mejor comprensión
    Recomendación personal:
    Veo que eres nuevo en el foro.. como recomendación cuando vayas abrir un tema, procura ser así de específico como ahora, y si puede un poco más, y además si puedes proporciona algún material para trabajar y tengamos una idea de más o menos que es lo que necesitas, ya que personas ocmo yo a veces nos cuesta, tedrás mucha suerte si @Silvia te responde porque ella le entiende a todos
    Bienvenido al Foro Amigo,
    Saludos!
    historico de ventas.xlsx
  20. Like
    Luis paz reacted to Ridisc in Hola!   
    Buenas! Me llamo Kiko soy de Granada y el mundo del Excel me atrapa, aunque no soy tan habil como quisiera jeje. Espero aqui conseguir conocimientos para ser mejor en este mundillo.
    Saludos!
  21. Thanks
    Luis paz got a reaction from Silvia in MOSTRAR ACTUAL O FECHA EMITIDO   
    FECHA ACTUAL o FECHA EMITIDO.xlsm
  22. Thanks
    Luis paz got a reaction from joselica in MOSTRAR ACTUAL O FECHA EMITIDO   
    FECHA ACTUAL o FECHA EMITIDO.xlsm
  23. Thanks
    Luis paz got a reaction from Silvia in MOSTRAR ACTUAL O FECHA EMITIDO   
    FECHA ACTUAL o FECHA EMITIDO.xlsm
  24. Like
    Luis paz got a reaction from ana carolina garcia in Sacar lista de los valores más reptidos de una base de datos   
    Mediante una tabla dinámica:

    Primeros 10.xlsx
  25. Like
    Luis paz reacted to Gerson Pineda in PROMEDIO CON DOS CONJUNTOS DE DATOS   
    Hola
    A simple vista, no me parece correcto llegar a ese porcentaje que presentas, los promedios son básicamente divisiones, tomando 2 valores para realizar la operación y el resultado es un decimal
    Plantea de mejor forma tu necesidad y con archivo de muestra ajunto
     
    Saludos 
×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png