Saltar al contenido

¿Eres usuario? Conéctate
Conéctate a Ayuda Excel

Recuérdame No recomendado en ordenadores compartidos

¿Has olvidado tu contraseña?

O conéctate con uno de estos servicios

Macros y programación VBA

Te enseño 7 de los trucos que me permitieron trabajar 2 horas menos al día >>>

Contar celdas seguidas con el mismo color de fondo

JUANCOAR

Por JUANCOAR
el 14 de febrero en Macros y programación VBA

Recommended Posts

JUANCOAR

Novato

JUANCOAR

publicado el 14 de febrero

publicado el 14 de febrero

Un saludo a todos.

Hace unos meses planteé una cuestion en este foro, que MACRO ANTONIO me solucionó satisfactoriamente.

Se trataba de que todos los dias añado una columna nueva a una hoja, en la que existen celdas con numeros y algunos de ellos tienen un unico color de fondo. Mi problema entonces era, una macro que me indicara en la columna de la izquierda que filas tenian tres o mas celdas consecutivas.

Pero ahora, me gustaria que me contase cuantos bloques de tres o mas celdas consecutivas tienen color de fondo, en cada fila. ¿Será posible?

[TABLE=width: 300]

[TR]

[TD=class: xl64, width: 80, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 26, bgcolor: transparent][/TD]

[TD=width: 80, bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]RESULTADOS

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]2

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]1

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent]1

[/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=class: xl63, bgcolor: #00b0f0][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[TR]

[TD=class: xl64, bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[TD=bgcolor: transparent][/TD]

[/TR]

[/TABLE]

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

Ir al listado de temas

109 ¿Te parecen útiles los tips de las funciones? (ver tema completo)
1. 1. ¿Te parecen útiles los tips de las funciones?
  - Sí
  - No
  - Ni me he fijado en ellos
- Por favor conéctate o regístrate para votar en esta encuesta.
- Ver tema
Ayúdanos a mejorar la comunidad
- Mantenimiento de la comunidad
  
  Donaciones recibidas este mes: 0.00 EUR
  Objetivo: 130.00 EUR
Archivos
- Agenda Calendario Lunar 2025
  Por pegones1
  2 0
- Calculadora de premios de la Lotería de Navidad española
  Por pegones1
  1 0
- Un juego solitario en Excel
  Por pegones1
  4 0
- XUtilities
  Por digitalboy
  4 0
- Información de hojas con Macros de Excel 4.0
  Por pegones1
  7 0
Estadísticas de descargas
- Archivos
  
  186
- Comentarios
  
  96
- Revisiones
  
  28
Última descarga

Agenda Calendario Lunar 2025
Por pegones1
2 0
Mensajes
- "Arrastrar" número del indicador de columnas en el BUSCARV
  
  Por Victor7 · publicado el jueves a las 13:33
  
  Hola a ambos, Varias opciones: En el ejemplo presentado, se observa que las posiciones abscisa/ordenada son las mismas en las tablas fuente y destino. Si va a ser así, bastaría con: =I3:L6 fórmula que, colocada en F26 devolvería los resultados. Otra forma abreviada podría ser: =BUSCARV(D26;H$3:L$6;{2\3\4\5};) fórmula que habría que insertar en F26, y copiarla verticalmente hasta F29 para obtener los mismos resultados. Pero eso sí: siempre que el orden de las columnas también sea el mismo que el de la tabla fuente. Y por último, ya que tienes Excel-365, también podrías emplear: =EXCLUIR(REDUCE(0;D26:D29;LAMBDA(a;b;APILARV(a;BUSCARV(b;H3:L6;{2\3\4\5};))));1) fórmula única, que introducida en F26, devolverá una matriz dinámica con todos los resultados. Si entre esto y la aportación de @Israel Cassales ya queda resuelta tu petición, perfecto. En el caso de que el problema pueda abarcar otras vertientes y exceder en complejidad (filas o columnas en posiciones diferentes, por ejemplo), mi recomendación es que subas otro archivo, pero esta vez con el escenario más difícil que pueda existir, para ver de aportar nuevas posibilidades de solución. Saludos a ambos,
- Tabla dinámica crea un Workbook
  
  Por Héctor Miguel · publicado el jueves a las 06:10
  
  el comportamiento que describes se ha reportado desde hace varios años y en toda version de excel, algunas (posibles) causas... - el complemento PDFMaker (y muy probablemente otros) - cerrar un libro con un UserForm 'cargado' en memoria (aunque no este visible) - hacer consultas (SQL) al mismo libro (segun version de creacion) - crear instancias de excel > abrir libros para consultar > y cerrar con su ventana oculta - definir y asignar variables de objeto y NO 'terminar/destruir' al final de los procesos
- "Arrastrar" número del indicador de columnas en el BUSCARV
  
  Por Matías86 · publicado el jueves a las 01:32
  
  La segunda alternativa con COLUMNA() me gustó, muchas gracias Israel!
- "Arrastrar" número del indicador de columnas en el BUSCARV
  
  Por Israel Cassales · publicado el miércoles a las 23:26
  
  Duda BUSCARV - AYUDA EXCEL.xlsx
- "Arrastrar" número del indicador de columnas en el BUSCARV
  
  Por Israel Cassales · publicado el miércoles a las 23:25
  
  Espero haberlo entendido Una idea COINCIDIR: Otra COLUMNA:
Visualizado recientemente
- No hay usuarios registrado para ver esta página.

×

¿Eres usuario? Conéctate

×

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.