Marcial C. C.

Pon esta fórmula en la columna Fracción de facturas, teniendo el libro Catálogo abierto: =BUSCARV(A3;[Catálogo.xlsx]Hoja1!$A$3:$C$6;3) Cambia $A$3:$C$6 por el rango de tu libro catálogo. Si te ha valido la respuesta.

Para ponerla en ThisWorkbook haz lo siguiente: 1.- Pulsa ALT + F11 e irás al editor de VBA 2.- Haz doble clic sobre ThisWorkbook 3. Utiliza el evento Open de Workbook Y copia dentro de ella el código de tu macro. Si te ha valido la respuesta.

Copia esta macro en la/las hoja/s que quieras controlar la celda B4: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("B4")) Is Nothing Then Select Case [B4] Case "Proyecto_1": Proyecto_1 Case "Proyecto_2":...

Alguna de estas opciones: 1- Copia toda la información y pégala en un archivo nuevo. Por si hay cualquier cosa extraña, que pudiera tener el archivo. 2- Vete a Archivo->Información->Inspeccionar elemento, si hay contenido oculto que no has tenido en...

Es probable que el error se deba a actualizaciones de Windows y se soluciona borrando los archivos con extensión exd de office. No pasa nada por borrarlos, porque en cuanto arranques una aplicación Office, se vuelven a crear. Puedes buscarlos con el...

El error se debe a actualizaciones de Windows y se soluciona borrando los archivos con extensión exd de office. No pasa nadapor borrarlos, porque en cuanto arranques una aplicación Office, se vuelven a crear. Puedes buscarlos con el buscador de...

Una manera es recorrer los libros abiertos de esta forma: Dim Libro As Workbook For Each Libro In Workbooks If LCase(Libro.Name) = "libro.xlsx" Then MsgBox "El archivo libro.xlsx está abierto" End If Next Cambia libro.xlsx por tu archivo. Por favor,...

El error se debe a actualizaciones de Windows y se soluciona borrando los archivos con extensión exd de office. No pasa nadapor borrarlos, porque en cuanto arranques una aplicación Office, se vuelven a crear. Puedes buscarlos con el buscador de...

Copia esta macro en la/las hojas que quieras controlar la celda C1: Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, Range("C1")) Is Nothing Then If Range("C1") = 123 Then Macro1 End If End If End Sub Por favor, si te ha...

prueba con esta fórmula: =SI(A1="1";"Ganó";SI(A1="X";"Empató";"Perdió")) Cambia el "1" y la "X" por tus condiciones y las cadenas "Ganó","Empató" y "Perdió" por los cálculos que tengas que hacer en tu hoja. Por favor, si te ha valido la respuesta,...