Jump to content

Luis paz

Members
  • Content Count

    145
  • Joined

  • Last visited

  • Days Won

    5

Everything posted by Luis paz

  1. Puedes visitar https://www.excelymas.com/p/gestor-de.html Puedes descargar su archivo gratis y usar el código, también tiene videos explicando paso a paso cómo crearlo... Saludos
  2. 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 =
  3. 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. Hola @Maria_80 no estoy seguro de haber entendido bien, pero adjunto tu archivo,Ej_foro.xlsm Saludos
  5. Lo que entendí que buscas es esto.. espero estar cercaRegistro Monitoreo 2.xlsx Saludos
  6. 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?
  7. Te comento que eliminé unos datos porque no lo podía subir... Sólo agrégalos de nuevo al archivo que te envié
  8. 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!!!
  9. 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
  10. Hola Nalito, Te comparto una solución que puede tomar de 4 a 5 minutos aproximadamente Saludos Datos.xlsm
  11. 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
  12. 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
  13. 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
  14. @Maria_80 Entiendo, todas pasamos por lo mismo al principio... Te explico un poco Sub ConFor() 'Declaramos las variables Dim UFO As Variant, UFD As Variant, i As Variant 'Para que funcione la macro debes cambiar el nombre de las Hojas. Ve la Imagen adjunta UFO = Origen.Cells(Rows.Count, 1).End(xlUp).Row 'For es un repetidos o bucle, que va en función a los datos que señales, en este caso 'le indicamos la variable i, pero podría ser cualquier otra como var, cel,dksn, etc. 'la palabra "to UFO" hace referencia a que "i" irá desde el 2 (i=2) hasta UFO(10 por e
  15. 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
  16. 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 par
  17. Podrías hacernos un favor, y cuando tengas un archivo el cual consideres que tenga las medidas de seguridad necesarias como para no acceder al código, compartirlo para hace las pruebas de seguridad... puede ser un archivo en blanco, el objetivo solo es encontrar la formas de acceder y tú poder encargarte de las fallas... Saludos
  18. Hola!! Con mucho gusto intentamos apoyarte a resolver tu duda, Sólo que no podemos hacer mucho si no adjuntas un archivo con el que podamos hacer pruebas. Saludos
  19. Hola @Marcos14 Libro1.xlsm
  20. Lo mejor sería dejar aquí el tema Muchas gracias por tus comentarios, siempre son de gran utilidad
  21. Excelente, que gusto que ya tienes la solución amigo! Por allí debiste haber empezado: investigando Saludos!
  22. No encuentro el sentido de lo que quieres realizar, por lo que te comparto lo que me imagino: Sub Encontrar() Dim i, Final, rl As Variant Dim tm As Date tm = Now Final = ActiveSheet.Cells(Rows.Count, "A").End(xlUp).Row rl = 0 For i = 2 To Final If Cells(i, 3).Value = "Planificado" Then rl = rl + 1 End If Next i Range("E1").Value = "Tiempo de ejecución " & Now - tm & " segundos" Range("f2").Value = rl End Sub
  23. 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🤣
×
×
  • Create New...

Important Information

Privacy Policy