santiagomf

Puedes usar un código de este estilo a nivel de página: Private Sub Worksheet_Change(ByVal Target As Range) Dim nuevoColor As Integer ' Comprobamos que en la celda B5 aparezca el texto DAR DE BAJA ' si es así, el nuevo color será el 3 (rojo), en caso...

La solución más sencilla es que borres el fichero antes de salvar el nuevo libro. Pero... ¿y si no existe? En ese caso nos daría un error, pero es fácil de evitar. Resumiendo, delante de la línea del "SaveAS" ponle esto: on error resume next kill...

La fórmula está mal escrita. Una cosa, si quieres que los rangos de años de antigüedad puedan variar podrías ponerlos en formato "Desde"-"Hasta". En ese caso tendrías: C D E Desde Hasta Incremento 17 0 2 0% 18 3 5 5% 19 6 999 10% Con este formato, tu...

Se me ocurren dos posibilidades. La más fácil sería crear en una columna aparte la unión de los 2 valores anteriore (=B2 & O2). Hecho eso sería más fácil saber si un valor ha aparecido antes usando la función buscarv. La otra solución es definirte...

Yo haría lo siguiente: La función Dlookup devuelve nulo cuando no encuentra el registro, por lo que añadiría a tu código la función nz() Me.TITULAR = nz(DLookup("[titular]", "[datos]", "[dnitit]= " & Me.DNITIT),"") Con ello me aseguro que el titular...

Para lo que quieres hacer, lo que necesitas es crear una consulta de selección. Supongamos que tienes una tabla de "ventas" con los siguientes datos: codigoCliente, fechaVenta e importe. El código SQL para ver todos los datos sería: SELECT...

Tendrías dos formas sencillas para hacerlo. Una sería crear un campo de tipo OLE en la tabla y copia/pegar el documento en el mismo. La ventaja, que guardarías el documento en la base de datos y si te llevas la base a otro sitio también te llevas el...

Prueba a incluir el siguiente código en el editor de Visual Basic en la página que se trate: Option Explicit Private Sub Worksheet_Change(ByVal Target As Range) Dim i As Integer ' Si no estás en la columna A no hacemos nada If Target.Column <> 1 Then...

No se me había ocurrido hacer algo así, pero ahí va. Este código tienes que ponerlo en el código VB del workbook: Option Explicit Dim snCambiandoNombre As Boolean Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) Dim...

Supongamos que tus datos están en la hoja1, columnas A-E y queremos que cuando marques una celda de la columna A te busque los datos en la Hoja2 y los copie a la hoja1 en las celdas G1:H10. El código podría ser algo así: Option explicit Private Sub...