caranbis

Sub abreycierra() Dim Neo As Object Set Neo = CreateObject("Word.Application") ' Neo.Visible = True Neo.Documents.Open Filename:="C:\EXPO.docx", ReadOnly:=True ' ' ' 'COMBINANDO CORRESPONDENCIA ' MsgBox "PRESIONE ACEPTAR PARA CERRAR WORD" ' 'CERRAR:...

Pruebe quitándole ese par de comillas y dejándolo así: Private Sub Workbook_Open() Ruta = ThisWorkbook.Path Ruta = Ruta & "\Ambar1.jpg" ActiveSheet.Shapes.AddPicture Ruta, True, True, 100, 100, 70, 70 End Sub 'Sin embargo a mí me funciona de las dos...

(Trabajando la respuesta)

Debes usar dos fórmulas: "PROMEDIO" Y "PROMEDIO.SI.CONJUNTO" pero esta última sólo aparece en office 2007. Debes hacer las 31 fórmulas de PROMEDIO. SI. CONJUNTO para cada días del mes, y luego meterlas todas dentro de PROMEDIO, separadas por punto y...

(anduve haciendo...) ;) Trabajando en la respuesta.

Trabajando en la respuesta...

Lo que tienes que hacer es rescatar los nombres de los libros que estas trabajando, cada uno en una variable string, algo así: Dim Libro1 as string Dim Libro2 as string 'desde el libro pricipal que abre los demás: rescatas su nombre Libro1 =...

=suma(si(y(a1<12;b1>13);b1-a1-1);si(y(a1<12;b1<=12);b1-a1);si(y(a1=12;b1>12);b1-a1-1);si(y(a1<=12;b1=13);b1-a1-1);si(y(a1>=13;b1>=13);b1-a1))

Basado en el ejemplo que das, la fórmula para calcular las horas diurnas (celda b3), es:...

Reemplaza: Range("b7" + i).Select Por: Cells(i, 2). Select 'El 2, se refiera a la segunda columna, o sea B., el 3 a C, el 4 a D etc etc.