antares18

Si son números aleatorios Public Function suma_columna(Rango As Range, Hasta_Donde As Double) As Double 'El Hasta_Donde es para poner quiero que me sumes hasta el 3er valor. 'Pones un 3 y te suma los 3 primeros Dim i As Double i = 0 suma_columna = 0...

A lo mejor no es , pero antes de Loop no has de poner Kolumna=Kolumna+1? Y NobreArchivo que significa o te has equivocado al escribir

Hay una función llamada min que te pone el mínimo. si pones =min ya te sale

Prueba a poner unload frmopcions sin el me. Prueba sin el vbmodal porque no afecta para nada.

En vez de &A1& prueba &caracter(61)&. Es el código ascii del =.

Estoy suponiendo de que quieres que se ponga el userform cuando se abra al abrir el libro. Te lo he hecho así. O no se si que me des tu dirección para mandarte el libro, porque no se hasta que punto sabes de excel. Si no sabes nada te lo explicaré....

A ver si lo entendido bien. ¿Quieres qué te muestre en C4 lo último que tiene? ¿Antes del cambio de código de 1 a 2?

Para la 1a parte la solución es Para coger sólo alfa está antesdelimitador Y para coger beta está despuesdelimitador Si quieres coger hasta luego tendrás que anidar 2 despuesdelimitador Function AntesDelimitador(Texto As String, Delimitador As...

Una duda cuando pones blanco - familiar es en una misma columna o diferente

Function sumar_letra(Rango, letra) For Each Item In Rango If (Left(Item, 1) = letra) Then sumar_letra = sumar_letra + CDbl(Right(Item, Len(Item) - 1)) End If Next Item End Function