dtorrado

Puedes hacerlo con el método Application.ScreenUpdating, False para desactivar y True para activar.

Prueba a introducir el valor de la fórmula en una variable y aplicarlo luego a la celda, creo que así ya no debería dar error, algo así: Dim str As String str = "=BDSUMA($E$2:$G$" & tamtabla + 3 & ";" & Chr(34) & "MANP" & Chr(34) & ";P7:P8)"...

Lo más profesional (y estándar) para estas cosas es poner el cursor del ratón en modo espera (reloj de arena) y al final volverlo a default. Esto se hace con la propiedad Cursor: Application.Cursor = xlWait (Proceso) Application.Cursor = xlDefault

Con esta macro puedes renombrar todas las hojas, suponiendo que tienen un formato "dd-mm-yy" te cambia el mes a uno más (tendrías que modificarla para Diciembre). Sub RenombrarHojas() For Each hoja In Worksheets Dim sNombre As String sNombre =...

Para hacer una pausa podrías hacer algo así: Sub Pausa(lSegundos As Long) Dim lInicio As Long lInicio = Timer Do While Timer < lInicio + lSegundos DoEvents Loop End Sub

Creo que te sería más fácil si dejas que esto lo haga el propio Excel. Tienes dos opciones: Tener una celda de altura suficiente para 2 líneas y en Propiedades-Alineación marcas la casilla "Ajustar texto". Otra sería insertar un Cuadro de Texto...

Es fácil calcular la diferencia entre dos fechas en días o en años, pero si la quieres en meses tendría que preguntarte qué tipo de meses (de 28, 30 o 31 días). En fin te contestaré cómo calcularla en días y tú decides el resto. Mediante fórmula, si...

Esta pregunta quizás sería más apropiada para un foro de ASP, ya que lo que necesitas deberías programarlo en la página aspx. Lo suyo sería, desde la página, crear un objeto "Excel.Application" y con él abrir la hoja excel e insertar los datos que...

Yo más que en el LostFocus (al perder el enfoque) lo haría en el evento Click, y haría algo así: Private Sub Cuadro_combinado1_Click() If Cuadro_combinado1.Text = "UnCiertoValor" Then CuadroTexto1.Enabled = True CuadroTexto1.Visible = True End If End Sub

Para vincular una tabla de otra base de datos puedes hacerlo a través de los drivers ODBC. En "Archivo-Vincular tablas" en "Tipo de Archivo" debes seleccionar "ODBC Databases" y en el asistente crear un nuevo origen de datos con los datos de la...

La fórmula sería así: =MIN(SI(A1:A10>0;A1:A10;"")) Pero debes introducirla con ctrl+shift+intro en vez de con intro (la guardará encerrada entre {}), por ser una "array fórmula".

Pues abríendolo y cerrándolo cuando acabes, algo así: Workbooks.Open "MiLibro.xls" 'todas las demás operaciones Workbooks("MiLibro.xls").Close SaveChanges:=True