Jump to content

Luis paz

Members
  • Content Count

    145
  • Joined

  • Last visited

  • Days Won

    5
  • Country

    United States

Luis paz last won the day on January 16

Luis paz had the most liked content!

About Luis paz

  • Rank
    Advanced Member

Profile information

  • Gender
    Hombre
  • Localización:
    México
  • Interests
    Aprender cosas nuevas y dificiles

Converted

  • Campos
    ,

Recent Profile Visitors

418 profile views
  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 = 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. 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 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
  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 ejemplo). For i = 2 To UFO 'Entonces el for acaba hasta Next y vuelve a empezar pero ahora con el siguiente valor, 'si la primera vez i=2 entonces la segunda será i=3 y así hasta llegar a UFO 'Aquí tenemos la condición Si tipo=Servicio entonces... If Origen.Cells(i, 6).Value = "SERVICIO" Then 'Detectamos la última fila de la hoja destino para saber en donde colocamos el siguiente dato UFD = Destino.Cells(Rows.Count, 3).End(xlUp).Row + 1 'En lugar de copiar, sólo pasamos los valores de las celdas de Origen a Destino Destino.Cells(UFD, 3).Value = Origen.Cells(i, 7).Value End If Next i End Sub
×
×
  • Create New...

Important Information

Privacy Policy