alvarolop

Dante Amor respondió: Te anexo la macro para cambiar los nombres, en todas las hojas, que digan "Print_Area" a "Área_de_impresión" Sub CambiarNombres() 'Por.Dante Amor For Each h In Sheets For Each p In h.Names If InStr(1, p.Name, "Print_Area") > 0 Then p.Name =...

Elsa Matilde respondió: Escribime la macro del InputBox para que te agregue las líneas necesarias y no tengas necesidad de ejecutar 2 macros.

jopil001 respondió: Tienes que combinar la función SI con contar. Si. Conjunto, ej: Suponiendo que metemos el boletín en D: =si(si(contar.si.conjunto(A2:A30;D2)=1;A1);SI(contar.si.conjunto(B2:B30;D2)=1;B1);SI(contar.si.conjunto(C2:C30;D2)=1;C1;"otros")) Saludos y no...

jrgces respondió: Public Function NUMERODESEMANA(ByVal x As Date) As Byte NUMERODESEMANA = Int((x - DateSerial(Year(x - Weekday(x - 1) + 4), 1, 3) + Weekday(DateSerial(Year(x - Weekday(x - 1) + 4), 1, 3)) + 5) / 7) End Function

Elsa Matilde respondió: Te dejo una rutina que evalúa valores en col B, el rango a graficar es A:B Esta rutina la grabé con versión 2007, no sé si en tu versión correrá. Lo importante es que tomes las instrucciones previas, para obtener el rango a graficar. Sub...