Victor Rodriguez

Tienes varias opciones. Para mi la más cómoda es CTRL+ALT+F9, pero también puedes hacelo por código mediante Application. Calculate que puedes ponerlo en el evento que más útil te sea (workbook_open, worksheet_change, etc)

En vez de hacerlo para todas las filas, podrías hacerlo para todas las filas que contengan datos con: ultlinea = Sheets("Hoja2").Range("A" & Rows.Count).End(xlUp).Row While i <= ultlinea Deberás editar según necesites los datos en negrita. Para este...

Lo único que debes hacer es cambiar la celda origen según l aoclumna que te encuentres, es decir, para la celda C2 la ceda origen es B2 Para la celda E2, substituye B2 por D2 en la fórmula y te funcionará Y así sucesivamente

Te resultará muy fácil si utilizas una tabla dinámica

Tienes que cambiar #,##0 por: ##,##0.00 y esto: ActiveCell.Value = Round(ActiveCell.Value / 1000, 0) por: ActiveCell.Value = Round(ActiveCell.Value / 100, 0)

Por lo que comentas, parece como si tuvieras la macro en Thisworkbook asociado a un evento como worksheet_change o parecido, ya que sino no entiendo como se puede ejecutar automáticamente. ¿Es así?

Prueba desinstalando e instalando la impresora nuevamente

Para listas desplegables, una muy buena opción es utilizar la fórmula DESREF para obtener siempre el rango exacto que contiene la lista. Aquí está muy bien explicado y seguramente solucionará tu problema...

Si he entendido bien la cuestión, utilizando filtros ya podrás conseguir tus tablas. Para tu ejemplo, filtrando la columna N por "BACILOSCOPIA MUESTRA 1" y la columna O por "BACILOSCOPIA 1" ya obtendrías el listado

Tienes que revisar los rangos de las fórmulas y mirar si son absolutas o relativas (con o sin el signo $) y modificarlos según te convenga