Jaime Segura

El método find devuelve un objeto... ese objeto hay que compararlo con un valor... no aplicarle el método activate... y eso tampoco se puede compara con un valor simple En lugar de .Activate podría haber sido .Value, pero como te mencionaba el método...

Me hicieron una pregunta con un tema relacionado hace unas horas ¿Cómo cargar Listbox con additem? Revisa lo que respondí.

Si tu colocar como rango la columna O:O Y luego creas la referencia rango.Range("O" & Rows. Count) eso ya no el columna Range("C:C") es la columna C Range("C:C"). Range("C:C") en la columna E... pues la segunda C es relativa con respecto a la...

listo... Aquí va: El subprograma aplica solo sirve para mostrarte como llamar a la verdera macro que es "junta" "junta" es una subrutina que tiene 3 argumentos: el rango a unir, el separador para que esos valores no salga juntos(normalmente un...

Ya has hecho la misma pregunta en otro post. Sería bueno que no las repitas. ¿Tu Excel es 2003 o 2013?

El problema de las funciones de valor agregado de Excel (SUMA, MAX, MIN, PROMEDIO, SUMAR. SI, etc) es que no "filtran" las filas ocultas de sus cálculos... asi que te van a mostrar siempre el resultado de TODO el total. La función SUBTOTALES si lo...

Has puesto con comentario (lo que significa que ya no se ejecuta esto) Application.DisplayAlerts = False lo que me hace pensar, que Excel podría necesitar tu confirmación para algo, pero al haber desconectado el screenUpdating ya no lo ves... Prueba...

Si lo valores no estan repetidos en la columna original... podrías marcar los datos de las 3 columnas y seleccionar en formato condicional Repetir valores, que es una pésima traducción de la opción en ingles Duplicated values (valores repetidos)...

Copia este código, adáptalo y ejecutalo. Sub parte() Dim fin As Long, i As Long Dim a As Variant Dim rang As Range Dim inter As Long Dim FILinic As Long, ultFILA As Long, fil As Long Dim COLinic As String inter = 50 ' aqui el intervalo ultFILA = 8000...

Creo que es un pequeño bug... VBA en el caso que sean más de 10 no puede asignarla una por una... tienes que crear un array y asignarlo toda de golpe... Algo así como: Dim miMatriz As Variant miMatriz = Range("A2:P30").Value Me.ListBox1.List =...