santiagomf

A ver si lo entiendo bien y consigo explicarme. Diremos que un valor de "L" (supongamos en L2) está en el primer rango cuando sea mayor o igual que el valor en "A" y menor o igual que "B". Estará en el segundo rango si cumple las mismas condiciones...

Para saber el número total de caracteres de una celda tienes la función "largo". Así, si pones "=largo(A1)" (sin las comillas) te indicará el número total de caracteres de dicha celda. Ahora bien, si lo que quieres es contar el número de dígitos de...

Los parámetros que quieres pasar al procedimiento los tienes que poner el la instrucción "Run", separados del nombre del procedimiento por comas. Por ejemplo, para llamar al procedimiento 'calcularFactorial' pasando el valor 6 como parámetro,...

Si hubiera alguna forma de habilitar automáticamente las macros, se podría colar cualquier virus con total facilidad. La forma que tienes para que no te pregunte es que bajes la seguridad en 'Herramientas - Opciones - Seguridad - Seguridad de...

Un detalle: si copias de la fila 6 a la 23 son 18 filas en lugar de 17. El código que puedes poner a tu macro es el siguiente: Option Explicit Sub copiarFila5() Dim aux As String Dim nFilas As Integer aux = Cells(1, 6) If Not IsNumeric(aux) Then...

Aunque no he probado el código, creo que estará bien. Supongamos que tu botón se llama 'exportarColumnaE', el código que tendrías que poner es el siguiente: Option Explicit Private Sub exportarColumnaE_Click() exportarDatosEnFicheroTexto 5 ' La...

Si tuvieras primero el número y después la comunidad, podrías usar la función "buscarv", pero si quieres mantener los datos como están, puedes definirte una función como la siguiente: Option Explicit Function encontrarComunidad(ByVal valorBuscado,...

Suponiendo que los datos del cuadro están en las columnas "A:C", en la columna DE podrías poner el sueldo+antigüedad usando la siguiente fórmula (Para la celda D2): =B2*(1+SI(C2<=2;0;SI(C2<=5;0,05;10)))

En donde se construye el nombre de salida (creo que la variable se llamaba nomSalida), le asignabas: nomSalida = sheets("INICIO").cells(1,1) Para añadir el Path del libro actual delante tendrías que poner: nomSalida = thisworkbook.Path & "\" &...

Si he entendido bien lo que quieres, este sería el código: Option Explicit Sub copiarTodasLasPaginasEnLibroNuevo() Dim i As Integer Dim libroAct As String Dim libroNew As String Dim snPrimero As Boolean Dim nomPag As String Dim nomSalida As String '...