santiagomf

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 '...

Entra a diseñar el formulario que después usas como subformulario. Incorporale este código: Option Compare Database Private Sub Form_DblClick(Cancel As Integer) DoCmd.OpenForm "formularioDetalle", acNormal, , "id=" & Me.id, , acDialog End Sub...

Supongamos que tienes una conexión a la base de datos llamada 'cn'. Yo haría algo así (nota, lo escribo aquí directamente sin probarlo. Espero no equivocarme). dim rs as new adodb.recordset dim txtSql as string txtSql = "select * from...

Primero comprobaría si es una fecha ¿válida?. Y lo pongo así porque traga con casi todo. Después, sabiendo que la fecha es válida haría lo siguiente: convertirla a fecha y después a texto. Si el resultado es igual que lo que han escrito es porque no...