Luis Mondelo

Por ejemplo con esta macro estamos limitando el uso de hoja DATOS para que solo se pueda trabajar en el rango A1:B10 Sub ejemplo() Sheets("datos").ScrollArea = "a1:b10" End Sub no olvides finalizar

Mándame tu archivo con los datos y un ejemplo para poder ayudarte [email protected]

En el siguiente enlace te dejo un ejemplo programado http://share.cx.com/pH7QTs No olvides finalizar la consulta

En un rato te contesto

Marca con el ratón el rango A2:¿E? Entra en formato condicional----opción fórmula---- y escribe allí lo siguiente: =y($E2=9899;$B2<fechanumero("1/1/2012")) Después elige un color de relleno pulsa aceptar Y ya está.

Prueba con esta macro: Sub ejemplo() 'por luismondelo rango = "a1:f" & Range("a65000").End(xlUp).Row ActiveSheet.PageSetup.PrintArea = rango ActiveSheet.PrintOut copies:=1 End Sub no olvides finalizar la consulta

Mándame el archivo con los datos y un ejemplo para poder ayudarte [email protected]

Claro que me acuerdo, pero yo te puede ayudar a trabajar todo desde excel, la carta y los datos variables. ¿Estás de acuerdo?

Sería algo así: sub ejemplo() range("c1").select do while activecell.value <> 0 activecell.offset(1,0).select loop end sub no olvides finalizar la pregunta.

Te mando mi solución con estas dos macros, una para cada textbox1 y 2 Con estas macros ya no es necesario pulsar ningún botón. Private Sub TextBox1_AfterUpdate() If TextBox1.Value <> "" And TextBox2.Value <> "" Then If CDbl(TextBox1.Value) >...