Adriel Ortiz Mangia

Tengo la siguiente macro, que abre el libro2 lo compara por código y luego cuenta por 12 criterios y los resultados debe posicionarse en las columnas correspondientes del LIBRO1. En el libro2 en la columna "Q" están los diferentes criterios a...

Pintar datos repetidos de diferentes colores en una columna excel vba Consultando a mi pregunta anterior como lo haría con array

Feliz Día del Padre. Los datos reptidos estas ordenados de menor a mayor y deseo pintar datos repetidos de diferentes colores en la columna "H" Sub PintarCeldas() For i = 7 To 500 ant = Cells(7, "H") If Cells(i, "H") = ant Then Cells(i,...

Al ejecutar la macro me sale error 6 DESBORDAMIENTO. Se detiene en la siguiente línea wx = (h3.Cells(i, "K") / h3.Cells(i, "L")) macro Sub cal_prom() ' Dim i As Integer Dim wx As Long Set h3 = Sheets("DOCENTES") ini1 = "Inicial - Cuna-jardín" ini2 =...

La siguiente macro separa hora y minuto al digitar 3 y 4 dígitos. Pero me da dificultades cuando dígito 1800 y me arroja 0.:75 debería 18:00, también con 12:00 y me arroja 0::.5 y otros. If Target.Count > 1 Then Exit Sub If Not Intersect(Target,...

Tengo una hojas de resultados y necesito extraer cuantos puntos tiene comparando con las alternativas correctas de la 2da fila. Yo lo hice con contar. Si pero necesito minimizar el trabajo en sacar el resultado directamente.

[Buen día a todos Necesito distribuir varias cantidades totales como ejemplo en la imagen, 15 es el total y necesito distribuir en 4 rangos con cantidades de 1 y 2

¿Cómo puedo hacer para que la palabra "alguna vez" CUENTE en columnas dinámicas de B HASTA L? Tengo esto, pero no se como hacerlo dinámico =CONTAR.SI.CONJUNTO('[Encuesta Alumnos (respuestas).xlsx]river'!$A:$A;"COMUNICACIÓN";'[Encuesta Alumnos...

Requiero una función de recuento en una columna vba. Aquí un ejemplo

[Hola a todos los experimentados en la programación necesito cargar datos al combobox de acuerdo a la categoría. Según el ejemplo busco la categoría B a través de un textbox y debe cargar el comboxbox (3,4,5,6) Private Sub TextBox1_Exit(ByVal Cancel...