Luis_P

1 crea un nuevo libro 2 abre el editor de visual basic 3 inserta un modulo En este modulo pones esto: Option explicit public antes as integer sub color(fila as integer) if [iv65535]<> 1 then exit sub if antes=fila then exit sub if antes=0 then...

'4c7569735f50 Desde el editor de vbasic en el evento click del boton pones esto: Sheets("Factura"). Printout

Prueba esta: sub secuencia() dim i as integer dim f as integer '4c7569735f50 f=2 for i=2 to (sheets.count) f=(f+1) sheets(i).range("a3")=sheets(1).range("i" & f) doevents next

Posiciónate sobre la celda y presiona F2 allí veras todo el contenido Lo que pides no es posible, a menos que estes trabajando con un formulario

Si la idea es tener una macro disponible para cualquier libro, te sugiero utilizar los complementos de excel, debes crear un nuevo libro, en el grabas todas las macros y funciones que desees, luego este libro lo grabas como complemento es decir con...

Lo mas fácil sería que realices una conexión a la base, mediante el asistente de conexiones en la pestaña datos..., es muy sencillo seguir el wizard... Lo otro, seria trabajar la conexión directamente vía programación a través de los objetos...

Ok. ¿Pero cómo deseas ingresar los rangos a imprimir? ¿Mediante una consulta en pantalla? ¿Mediante valores anidados en alguna celda como texto? Ahora si el área de impresión siempre sera la misma, basta con que utilices el grabador de macros

Debes partir primero por normalizar la data, es decir si tienes datos no coincidentes en nada dificilmente puedes comparar. Te sugiero que codifiques los articulos atendiendo a su funcionalidad, asi si 3 proveedores diferentes te envian los datos de...

Prueba ahora Sub resumen() '4c7569735f50 Application.ScreenUpdating = False Worksheets("CtasxPagar").Range("A:D").Clear Worksheets("CtasxPagar2").Select Range("B8").Select Range(Selection, Selection.End(xlDown)).Select Selection.Copy...

Bueno la funcion contara() cuenta el numero de celdas no vacias... considerando esto utiliza esta forma: '4c7569735f50 =indirecto((direccion(contara(d:d);4)))+100