calvuch

Si es posible mediante un bucle La idea seria: 1 poner el código en la celda respectiva del área a imprimir 2 tus fórmulas rellenan lo demás 3 imprimir 4 pasar al segundo código de la lista y volver a 1 Para eso necesitas El rango de la lista de...

El siguiente macro abre el libro2 copia el rango a4:k4 en el libro1 ( que es el nombre del libro activo desde el cual llamaste el macro) Luego cierra el libro2 Te puede dar una idea: Sub Macro2() Workbooks.Open ("C:\libro2.xls") Range("A4:K4").Select...

La intentar la controlas manejando los sgtes valores: StartUpPosition ' indica el modo de posicionar el form el valor 0 indica que sera manualmente Así: Private Sub UserForm_Initialize() Me.StartUpPosition = 0 End Sub Al inicializar el formulario...

Con las funciones de excel se puede, salvo el nombre del mes solo te puedo dar el número Seria: =si(mes(a1)=mes(b1);"semana del " & dia(a1) & " al " & dia(b1) & " de " & mes(a1) & " de " & año(a1);si(mes(a1)<>mes(b1);"semana del " & dia(a1) & " de "...

Acá los macros En un modulo pones esto: Sub proteccion() Dim n As Long ' contar elementos n = Application.WorksheetFunction.CountA(Sheets(1).Range("A:A")) + 1 'desbloquea hoja ActiveSheet.Unprotect Password:="1234" 'desbloquea celda sgte Range("A" &...

Ok. Dime que celdas debo tomar de cada hoja y como debe quedar dispuesto en el resumen Da un ejemplo practico.

Acá esta: Sub Totales() Dim total As Long total = Application.Sum(ActiveWorkbook.Worksheets("Hoja1").Range("A:A")) MsgBox "Suma Total: " & FormatNumber(total, 2) End Sub No olvides cerrar la pregunta

En columna C desde fila 1 pon esto: =SI(AH1<>"";"!";"") Copia hacia abajo y ya, si en la col Ah existen datos aparecerá el signo ! De lo contrario no aparecerá nada

Prueba esto: en col B =SI(A1>=0 =Y(A1<=3);0,67;SI(A1>3 =Y(A1<=5);0,815;SI(A1>5 =Y(A1<=10);0,66;0))) En donde la secuencia esta en col A

Acá tienes el modulo completo: Option Explicit Dim existe As Boolean Sub ejemplo() Sheets("ENERO-AGOSTO 2011 POR TIENDAS").Select Range("E1").Select Dim d As String d = InputBox("BUSCAR:", "buscador") If Len(d) = 0 Then Exit Sub filtrar (d) If existe...