jrgces

Si te sirve: Worksheets("Hoja1").PageSetup.PrintArea = "$A$1:$J$18" Application.Dialogs(xlDialogPrinterSetup).Show Worksheets("Hoja1").PrintOut Copies:=1, Collate:=True

No sé si te he entendido bien, pero prueba con las siguiente fórmulas: En D16: =indice(d201:d316, coincidir(c16, c201:c316, 0)) En E16: =indice(e201:e316, coincidir(c16, c201:c316, 0))

Pega el siguiente código en el módulo del libro (ThisWorkbook): Private Sub Workbook_Open() If LCase([Hoja1!A3].Value) = "si" Or _ LCase([Hoja1!A3].Value) = "sí" Then _ MsgBox "RECUERDA QUE ESTE MES CIERRAS CONTRATACIÓN.", vbInformation + vbOKOnly,...

Si fuese posible, yo cambiaría el tipo de variable Align para que sea Long en vez de String, o sea: Dim align As Long De esta forma sería posible asignarle el valor de la constante de Excel que le corresponda: Select Case Tempval Case "L" align =...

No sé si será esto lo que necesitas, pero suponiendo que el rango A1:A10 de una hoja tuviera estos valores 1 2 3 1 4 5 1 6 7 1 La siguiente fórmula matricial (hay que introducirla pulsando Mayúsculas + Control + Entrada):...