jrgces

Prueba con algo parecido a: If Not Application.Intersect(Target, Me.[P8:AC8]) Is Nothing Then

=sumaproducto((A1:A20=C1)*(B1:B20<>""))

=SUMAPRODUCTO(--(IZQUIERDA(A1:A500;2)="10")) Para contar todos los números que empiezan por 10 =SUMAPRODUCTO(--(DERECHA(A1:A500;2)="10")) Para contar todos los números que terminan en 10

Podrías declarar la variable como pública, pero en este caso creo que es más elegante pasarle el número de fila como argumento al sub que se encarga de poner en negrita, algo parecido a: Sub Principal() Dim Fila As Long For Fila = 1 To 5 PonerNegrita...

No sé si será posible modificar el valor de un elemento de una colección una vez creada, así que las colecciones no creo que te sirvan. Es cierto lo que dices de que VBA no permite la declaración de matrices públicas en módulos de objeto, pero...

Entiendo que lo que buscas son las combinaciones de un conjunto de 14 elementos en grupos de 6, lo que arroja 3003 combinaciones. Suponiendo que los 14 números están en el rango A1:N1 de Hoja1, el siguiente código debería hacer el trabajo: Sub...

Si sólo se trata de comparar ambos datos y no tienes que operar matemáticamente con ellos, puedes dar formato de texto a la celda o anteponerle un apóstrofo ' a los datos. Por si te interesa, yo tengo un trabajo sobre este tema:...

Dim strHojaActual As String strHojaActual = ActiveSheet.Name Sheets("nombre_fijo_de_hoja_calculo").select Range("xxx").Select Selection.Copy 'Aca necesito un comando para volver ala hoja de calculo original Worksheets(strHojaActual).Select Paste end sub

Suponiendo que la lista de valores para la validación fuera A1:A5 y que se aplicara a cada una de las celdas el formato que se desee para las celdas de la columna H, el siguiente código debería hacer el trabajo: Option Explicit Private Sub...

Suponiendo que las hojas con las tablas se llaman tabla1 y tabla2, pruebe la siguiente fórmula matricial (hay que introducirla pulsando mayúsculas control entrada al mismo tiempo):...