Jump to content

Luis paz

Members
  • Content Count

    140
  • Joined

  • Last visited

  • Days Won

    5
  • Country

    United States

Everything posted by Luis paz

  1. Lo que entendí que buscas es esto.. espero estar cercaRegistro Monitoreo 2.xlsx Saludos
  2. 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?
  3. Te comento que eliminé unos datos porque no lo podía subir... Sólo agrégalos de nuevo al archivo que te envié
  4. 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!!!
  5. 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
  6. Hola Nalito, Te comparto una solución que puede tomar de 4 a 5 minutos aproximadamente Saludos Datos.xlsm
  7. 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
  8. 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
  9. 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
  10. @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
  11. 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!
  12. 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 😆
  13. 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
  14. 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
  15. Hola @Marcos14 Libro1.xlsm
  16. Lo mejor sería dejar aquí el tema Muchas gracias por tus comentarios, siempre son de gran utilidad
  17. Excelente, que gusto que ya tienes la solución amigo! Por allí debiste haber empezado: investigando Saludos!
  18. 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
  19. 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🤣
  20. Hola @diego208 En lo personal, no conózco alguna manera para trabajar como tú esperas, sólo las que mencionas, Sólo compartiendo un archivo excel y visualizandolo online, te aparece una opción que dice, abrir en escritorio... Sólo eso se me ocurre, pero no es una solución como tal. Epero alguién más pueda apoyarte, saludos!
  21. Disculpa que ni terminé de leer tu tema, pero podrías subir un archivo similir, y si quieres cambiarle los datos en caso de ser confidenciales? Saludos
  22. Estimado, creo que no entendiste el archivo que te envié.. Puedes revisarlo de nuevo nos comentas historico de ventas.xlsx
  23. @Ridisc Reaccionaste a los comentarios, pero te sirvió? Se puede cerrar el tema?
  24. 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


CTA Templates.png