Jump to content

Luis paz

Members
  • Content Count

    145
  • Joined

  • Last visited

  • Days Won

    5

Reputation Activity

  1. Me asombra
    Luis paz reacted to Maria_80 in macro comprobar si existen datos en un filtro   
    Hola, Tierra. Otra pregunta, es que no entiendo qué significa worksheets(h), no tengo ninguna hoja que se llame así... es que está totalmente modificado el código que yo tenía que ahora me cuesta entender cómo hiciste el proceso... no encuentro el nombre de la hoja principal por ningún lago y para mí es importante poder referirme a ella... piensa que adjunté un ejemplo, pero en el libro original tengo muchísimas más hojas. gracias.
  2. Thanks
    Luis paz got a reaction from manzano in Continuar ciclo si hay un error   
    Lo más fácil on error resume next
    O "on error goto" + Lo que desees, ejemplo "On error Goto ErrOriginal"
    Y hasta en donde deseas que continue la ejecución colocas "ErrOriginal:"
     
    On error resume next 'ó puedes usar On Error Goto ErrOriginal Cells.Find(What:="Original", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _ MatchCase:=False, SearchFormat:=False).Activate ActiveCell.Range("A1:B1").Select ErrOriginal: With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlBottom .WrapText = False .Orientation = 0 .AddIndent = False .IndentLevel = 0 .ShrinkToFit = False .ReadingOrder = xlContext .MergeCells = False End With Columns("L:L").EntireColumn.AutoFit Selection.Merge ActiveCell.Cells.Select ActiveCell.Cells.EntireColumn.AutoFit Range("A10").Select  
  3. Thanks
    Luis paz got a reaction from Ray8894 in Abrir url usando vba   
    Para Abrir URL
    Sub AbrirURL() Dim X As Variant X = "https://naycon.com.mx/excofisad-robots-para-contadores-administradores-automatizacion/" ActiveWorkbook.FollowHyperlink Address:=X End Sub Para abrir el Hipervinculo:
    Range("G5").Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True  
  4. Thanks
    Luis paz got a reaction from Maria_80 in Macro que me da error al filtrar   
    Hola @Maria_80 no estoy seguro de haber entendido bien, pero adjunto tu archivo,Ej_foro.xlsm
    Saludos 
  5. Like
    Luis paz got a reaction from Silvia in No se si se usa buscarv o error para este archivo   
    Yo no entiendo que tiene que ver le ejemplo que envías con el primer archivo.. Espero te pueda apoyar silvia. 
    ¿Seria mucho pedir que llenes los datos en el excel como quieres que quede el resultado final, pero sin formulas ni nada sólo para darme una idea y sumarme a apoyarte?
  6. Thanks
    Luis paz got a reaction from Silvia in No se si se usa buscarv o error para este archivo   
    Lo que entendí que buscas es esto.. espero estar cercaRegistro Monitoreo 2.xlsx
     
    Saludos
  7. Like
    Luis paz got a reaction from Silvia in No se si se usa buscarv o error para este archivo   
    Yo no entiendo que tiene que ver le ejemplo que envías con el primer archivo.. Espero te pueda apoyar silvia. 
    ¿Seria mucho pedir que llenes los datos en el excel como quieres que quede el resultado final, pero sin formulas ni nada sólo para darme una idea y sumarme a apoyarte?
  8. Thanks
    Luis paz got a reaction from Silvia in No se si se usa buscarv o error para este archivo   
    Lo que entendí que buscas es esto.. espero estar cercaRegistro Monitoreo 2.xlsx
     
    Saludos
  9. Like
    Luis paz got a reaction from Silvia in No se si se usa buscarv o error para este archivo   
    Yo no entiendo que tiene que ver le ejemplo que envías con el primer archivo.. Espero te pueda apoyar silvia. 
    ¿Seria mucho pedir que llenes los datos en el excel como quieres que quede el resultado final, pero sin formulas ni nada sólo para darme una idea y sumarme a apoyarte?
  10. Haha
    Luis paz reacted to federtuc in Buscar Valor máximo en campo de Access   
    Buenas Tardes, Necesito extraer de una tabla que tengo en Access el valor máximo del campo "PEDIDO" y que lo deposite en la celda B2 de la Hoja1 de Excel al dar click en un CommandButton de un formulario de Excel.
     
  11. Like
    Luis paz got a reaction from Jose BN in Obtener datos de un PDF   
    Hasta donde sé, no es posible.
    En el pasado me enfrenté a un problema similar, el cual resolví convirtiendo en una página de internet, todos los pdf a word 
    Ya que con si se puede trabajar con word... No recomiendo que inviertas tu tiempo en eso si sólo quieres extraer los datos de unos cuantos pdf... En mi caso si me resultó porque eran más de 10 mil archivos que tenía que pasar a excel de manera manual...
    éxito!!!
  12. Like
    Luis paz got a reaction from Jose BN in Obtener datos de un PDF   
    Hasta donde sé, no es posible.
    En el pasado me enfrenté a un problema similar, el cual resolví convirtiendo en una página de internet, todos los pdf a word 
    Ya que con si se puede trabajar con word... No recomiendo que inviertas tu tiempo en eso si sólo quieres extraer los datos de unos cuantos pdf... En mi caso si me resultó porque eran más de 10 mil archivos que tenía que pasar a excel de manera manual...
    éxito!!!
  13. Like
    Luis paz got a reaction from Jose BN in Macro para adaptar FORMATO CONDICIONAL   
    Hola laubreeze, me parece que tu problema radica en un malentendido del código por las condicionantes. Prueba lo siguiente:
    Sub colorxcondicion() Range("B10:K40").Interior.ColorIndex = xlNone For i = 10 To 40 If Cells(i, "I") = "X" Then Range(Cells(i, "B"), Cells(i, "K")).Interior.ColorIndex = 16 If Cells(i, "B") = "" Or Cells(i, "C") = "" Then Range(Cells(i, "B"), Cells(i, "K")).Interior.ColorIndex = 6 If Cells(i, "B") <> "" And Cells(i, "C") <> "" And Cells(i, "I") <> "X" Then Range(Cells(i, "B"), Cells(i, "K")).Interior.ColorIndex = xlNone If Cells(i, "K") = 1 And Cells(i, "E") <> "" Then Range(Cells(i, "B"), Cells(i, "K")).Interior.ColorIndex = 19 If Cells(i, "K") > 1 Then Range(Cells(i, "B"), Cells(i, "K")).Interior.ColorIndex = 22 Next i End Sub  
  14. Like
    Luis paz got a reaction from Jose BN in Configuración campo de valor   
    Hola Diego, yo lo acabo de hacer y al agregar los campos se van directamente a Valores...
    De todas formas dedique parte de mi tiempo para apoyarte con una pequeña macro que te ayudará con tu problema...
    Saludos!
    Caso.xlsb
  15. Like
    Luis paz got a reaction from sretamalb in Scraping VBA   
    Es que el tema no son las clases, sino siento que es la página web, porque he utilizado otro código usando tu URL, pero no abre la página correctamente.. Queda en blanco, lo cual me hace creer que el problema no es tu código, sino que la página ha de tener algún plugin que detecta la automatización... En realidad no sé si exista un plugin que detecte eso...
    Adjunto la prueba que he realizado...
    Prueba.xlsm
  16. Like
    Luis paz got a reaction from sretamalb in Scraping VBA   
    Por lo que veo, el problema proviene de la confiabilidad de la página. Estoy haciendo pruebas y en google chrome puedo ver la pg con el url que usas, pero en el navegador de mi pc no, lo cual quiere decir que está siendo bloqueada o algo por el estilo... Seguiré intentando un poco más para ver que se puede hacer, y te informo
  17. 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!
     
     
  18. 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 😆
     
     
  19. Like
    Luis paz got a reaction from Gerson Pineda 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. 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.

  21. Haha
    Luis paz got a reaction from Jose BN 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🤣
  22. Like
    Luis paz got a reaction from Gerson Pineda 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
  23. Haha
    Luis paz reacted to Antoni in varias hojas con dos valores a buscar   
    Archivo Excel, no imágenes.
  24. 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!
  25. 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!
     
×
×
  • Create New...

Important Information

Privacy Policy