Saltar al contenido

Israel Cassales

Miembro
  • Contador de contenido

    1392
  • Unido

  • Última visita

  • Días con premio

    71
  • País

    México

Israel Cassales ganó el día el 8 de enero

Israel Cassales had the most liked content!

4 Seguidores

Sobre Israel Cassales

  • Cumpleaños el 29 de noviembre

Información de perfil

  • Sexo
    Hombre
  • Localización:
    CDMX

Configuraciones

  • Campo que utilizas como separador de argumentos
    ,
  • Mi versión de Excel:
    0,6,7

Visitantes recientes del perfil

65386 visitas de perfil

Israel Cassales's Achievements

Mentor

Mentor (12/14)

  • + de 1 año
  • 500 comentarios
  • + 10 mejores respuestas
  • 100 reacciones
  • + de 1 mes

Insignias recientes

329

Reputación de la comunidad

26

Respuestas de la comunidad

  1. Hi, No voy a responder por el maestro porque ha sido claro, pero puedo agregar: Es en un dilema técnico y ético. No es debatir si se puede, simplemente no se debe. El Captcha está diseñado justo para eso, para que sea un humano quien pase la verificación, si lo hace una máquina entonces no sirve. ¿Qué vas a hacer cuando el Captcha te pida seleccionar imágenes? El que muestras puede parecer sencillo pero es posible que verifique el tiempo y la forma en la que se mueve el cursor para dar clic. En resumen, no es un tema de Excel ni de VBA, de mi parte tampoco podré contribuir en este tema. Una mejor opción sería preguntarle al proveedor si tienen una API disponible para acceso automatizado. Saludos.
  2. En lo que usted sube el archivo en base a lo que menciona esta podría ser una idea: Suponiendo que la ruta esta en B1 Public Sub Listaynombra_Manual() Dim ruta As String ' Obtiene la ruta de la celda B1 ruta = ActiveSheet.Range("B1").Value ' Verifica si la ruta no está vacía If ruta <> "" Then ' Llama a la función List_Fols_Files con la ruta obtenida List_Fols_Files ruta Else MsgBox "La celda B1 está vacía. Por favor, ingresa una ruta válida.", vbExclamation End If End Sub Es importante resaltar que si la ruta es válida pero la carpeta no existe tendrá un error, en ese supuesto caso para evitar que la macro falle, puede agregar una verificación adicional para asegurar que la carpeta existe antes de llamar a la función. Puede hacer eso utilizando la función Dir en VBA, que verifica la existencia del elemento. También algo tan sencillo como escribir en la celdas de manera nvertidas las diagonales // puede causar error. Saludos cordiales a ambos.
  3. Este tema es similar a este otro "Arrastrar" número del indicador de columnas en el BUSCARV Es posible que la función COLUMNA() le sirva.
  4. Espero haberlo entendido Una idea COINCIDIR: Otra COLUMNA:
  5. ¡Ah! Me ha gustado su aporte @Héctor Miguel a mí me costo trabajo ocupar el Displayformat por eso en la idea que presente use dos sentencias, en una tomé como base las condiciones del formato condicional del consultante pero la de usted me parece mejor. Gusto en saludarlo. De verdad que aquí se aprende bastante. ¡Saludos!
  6. Pues eso es lo que hace la combinación de las dos sentencias.
  7. ¡Vaya! Aunque la expectativa no ha cambiado sí que lo hace el escenario. Cosas como formato condicional, que la celdas no están vacías, que no todo lo colorea con condicional sino que aparte usted colorea de manera manual y aleatoria cambian bastante la posible solución. En términos simples BVA no alcanza de manera directa a leer el color del condicional pero aún así, sí se puede hacer algo, ahora el que usted pinte la celdas cambia la lectura del código, así que le recomiendo tener dos. Uno que primero cuente los condicionales y otro que le discrimine los coloreados manuales. Necesita dos códigos: Function ContarCeldasSinCadenas(rng As Range) As Long Dim celda As Range Dim conteo As Long Dim texto As String conteo = 0 For Each celda In rng texto = celda.Value If InStr(texto, "657") = 0 And InStr(texto, "666") = 0 And InStr(texto, "658") = 0 Then conteo = conteo + 1 End If Next celda ContarCeldasSinCadenas = conteo End Function Function ContarPorColor(rango As Range) As Long Dim celda As Range Dim contador As Long contador = 0 For Each celda In rango If celda.Interior.ColorIndex <> -4142 Then contador = contador + 1 End If Next celda ContarPorColor = contador End Function Y después a un resultado le resta el otro. Con eso debe llegar al resultado que busca. Saludines
  8. Como recomendación el ejemplo es mejor si deja un libro de Excel con el resultado a buscar, con la imagen lo que puedo aportarle es un código VBA. Function ContarCeldasSinColorNoVacias(rango As Range) As Long Dim celda As Range Dim conteo As Long conteo = 0 For Each celda In rango If celda.Interior.ColorIndex = xlNone And Not IsEmpty(celda.Value) Then conteo = conteo + 1 End If Next celda ContarCeldasSinColorNoVacias = conteo End Function AYUDAEXCEL.xlsb
  9. Buen día, Así como está explicado se puede suponer que la función CONTARA() debería ser útil y un VBA similar replicaría lo que hace esa función, no tiene mucho sentido. Ahora, si se trata de deducir (que no es lo mejor) tal vez es posible que usted tenga un rango con diferentes celdas en formato de diferente color y por discriminación necesita contar las celdas que se vayan "despintando", en ese caso la función mencionada NO SERVIRÁ. ¿El rango es fijo? ¿El rango cambia a selección del usuario? ¿Cualquier clase tipo de texto? ¿Se refiere a valores y texto? Por qué no muestra un ejemplo con el resultado a obtener, así es posible recibir mejores propuestas o ideas.
  10. @Fernando Reyes Chavarria Es importante seguir la recomendación del Moderador en ampliar los detalles para recibir más posibilidades de ideas. Con lo que describe me parece (o al menos eso entiendo) que busca tener dentro del gráfico dos siluetas donde el relleno se aumente o se disminuya de acuerdo al porcentaje de la operación que viene en su libro, algo como la imagen: Pero con siluetas humanas, creo. De ser así la idea es simple, en su gráfico debe remplazar las formas por las formas humanas transparentes, luego agrupar con las formas que tendrán el relleno auto ajustable que dependerán del resultado de la fórmula. Aunque puedo estar equivocado y queda esperar a que usted de una información más amplia. Saludines
  11. Un año más en este foro aprendiendo de los demás y tratando de aportar lo mejor posible, espero que se encuentren bien cada uno de los que participan en el foro, consultantes, miembros, maestros, moderadores, administradores... ¡bendiciones y buenos deseos! ¡Feliz Navidad 2024 y Año 2025! Saludines
  12. Saludos cordiales ¿Ya intentaste la opción más sencilla? Me refiero a desmarcar la casilla de advertencia, con eso ya te deja escribir libremente.
  13. Bueno, sin libro de ejemplo ni detalles del escenario a mostrar, lo único que en mi caso puedo recomendar a la consulta es que verifique que no hay filtros o si los hay que muestre los datos en blanco. También usar un campo en la tabla de los que se llaman calculados para forzar que siempre haya algo.
×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.