santiagomf

La forma correcta sería crear una tabla con: - IdOrden (clave y orden del grupo) - NombreGrupo - EdadInicial - EdadFinal Puedes cruzar esa tabla con tus datos poniendo en criterios de la "edad" "between [EdadInicial] and [EdadFinal]".

=si.error(buscarv(referencias!Axxx;descripciones!$A$B;2;falso);"No encontrado") Pon el "Axxx" la celda que contenga la referencia y, si no me equivoco, la función devuelve lo que buscas. Por cierto, entiendo que no debería haber referencias...

Sólo se me ocurren 2 opciones: Que el formulario acceda a la tabla con una consulta (o su SQL en 'origen del registro'), o bien que tengas puesto un filtro en el formulario. Revisa esos dos puntos y si no encuentras el problema sube la base de datos...

Yo crearía una página con los cambios diarios y una función que me busque el cambio en función de la divisa y fecha. La función sería: Option Explicit Function buscarUltimoCambio(ByVal fecha As Date, ByVal divisa As String) As Double Dim i As Integer...

Así, sin más, no adivino el motivo del error. Habría que ver la ejecución. En cuanto al usuario del ordenador puedes crear fácilmente una función como esta: function nombreUsuario() as string nombreUsuario=environ("username") end function Con eso no...

Prueba a ver si te gusta más este código: Dim rs As Recordset Dim txtSql As String Dim n As Integer txtSql = "select max(NUMEXPTE) as maxNum from Entrada " & _ "where NUMEXPTE like '*/" & Format$(Me.fecha, "yyyy") & "'" Set rs =...

No sé si te servirá este código: Sub copiarCadaMediaHora() Dim i As Integer Dim sh As Worksheet Dim celda As Range Set sh = ActiveSheet ' Copiamos la linea 132 en la 133 hasta la 182 For i = 133 To 182 Set celda = ActiveCell sh.Rows(132).Copy...

Supongamos que estás guardando un archivo cuyo nombre está en la variable "nomSalida". Justo delante de la instrucción que graba la salida pon: On Error Resume Next kill nomSalida ' Borra el fichero On Error Goto 0 Ese código borra el fichero y no da...

sub multiplicaPor2() dim i as integer for i = 1 to 12 Cells(i, 2) = cells(i, 2) * 2 ' Multiplica por 2 lo que hay en la fila "i" columna 2 (B) y lo deja en la misma celda next i end sub Creo que es lo que buscas.

¿A qué te refieres con 'varias líneas al tiempo'? ¿Tienen distinto formato las líneas? ¿Cómo sabes que formato aplicar a cada línea? Si en alguna columna marcas el formato que lleva, supongamos 1, 2 y 3, puedes llamar a una función que formatee cada...