ivnxls

Utiliza formato condicional... Primero selecciona el primer registro de tu base de datos, pincha en menú FORMATO / FORMATO CONDICIONAL Segundo escribe en CONDICIÓN FÓRMULA lo siguiente: =$D$2>0 (Suponiendo que quieras colorear los registros con algún...

Sub actualizar() If Selection.Rows.Count < 65536 Then MsgBox "Seleccione la columna para que se pueda efectuar el cambio" Exit Sub End If MsgBox "a partir de aquí tu código" End Sub

Añade debajo del otro reemplazo éste otro... Selection. Replace What:="[MORELOS_" &UCASE( Format(fecha1, "MMMM")) &"_" &format(fecha1,"yyyy") &"_" &format(fecha1,"dd"), Replacement:=""[MORELOS_" &UCASE( Format(fecha2, "MMMM")) &"_"...

A veces no caben todas las fórmulas (máximo 255 caracteres) =a1+a2+...+a1500 (error) Entonces utiliza dos (o más) celdas con varios sumatorios parciales, las escondes u ocultas y el resultado es el mismo: =b1+b2+b3 donde b1=a1+a2+..+a500...

Suponiendo que en una lista (a4:c18) tengas los campos ID, NOMBRE, TELEF y en otra lista (e4:f18) tengas los ID, ACCIONES y quieras añadirle los nombres... en g4 escribes =BUSCARV(E4;$A$4:$C$18;2;0) si quieres los tfnos. =BUSCARV(E4;$A$4:$C$18;3;0)

Mejor inténtalo al revés... Rellena primero los datos en la hoja 2 (la Base de Datos), y la plantilla de la factura (hoja1) la referencias toda al campo NUMFACTURA utilizando la fórmula =BUSCARV(NUMFACTURA;hoja2!datos;columnabasededatos;0) por...

cambia... contador=contador+cells(fila,16).value (Contador empieza a cero, y aquí actualiza el contador sumándole lo que tiene en la columna 16) Por... contador=contador+1 (Añade de 1 en 1 cada vez que encuentra un proyecto del comercial, de las...

Cambia en tu código: If Target.Address(False, False) = "A1" Then 'controla el cambio en A1 por If (Target.column = 1 and Target.row <=60) Then 'controla el cambio de A1 a A60

Inserta esta macro EN LA HOJA 1: Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) if Case Target.Address(RowAbsolute:=False, columnAbsolute:=False)="A2" then hoja4.Range("b4").Select Exit Sub End If Cancel = False End Sub

Usa BUSCAR Y REEMPLAZAR, buscando en todo el libro, dentro de fórmulas En tu ejemplo: Buscar '010109' y reemplazar por '020109' Si le das a Buscar todo te detalla en que hojas y celdas existe el texto buscado para que puedas comprobarlo antes de...