Código lento de VBA

04/05/2010 - 04:04 por Bennet | Informe spam
Buenas noches de ante mano ml gracias por la colaboración:
En un command button de un userform tengo el sgte código para volcar
información a una hoja de cálculo:

Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "A7"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 8
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If

'_________________________________________________________

'Comienza a copiar los valores del UserForm a la hoja Volcado_1
Cells(fila, col) = " "
Cells(fila, col + 2).Value = TextBox1.Value
Cells(fila, col + 3).Value = TextBox2.Value
Cells(fila, col + 4).Value = TextBox3.Value

Hasta aquí todo bien, el problrema surge cuando en la hoja usuarios coloco
la sgte fórmula para calcular la edad de un paciente al presionar el botón de
comando dmora más de 15 segundos para efectuar el volcado.:

=fecha(I1;Hoy();"md") =fecha(I1;Hoy();"ym") =fecha(I1;Hoy();"y")

Por su puesto que en el mismo userform tengo un combobox que carga los datos
de las fechas.
 

Leer las respuestas

#1 Bennet
15/05/2010 - 19:37 | Informe spam
"Bennet" wrote:

Buenas noches de ante mano ml gracias por la colaboración:
En un command button de un userform tengo el sgte código para volcar
información a una hoja de cálculo:

Dim CeldaInicial As Variant
Dim col As Integer
Dim fila As Integer
CeldaInicial = "A7"
Set CeldaInicial = Range(CeldaInicial)
col = CeldaInicial.Column
'Busca cuál es la última fila
If CeldaInicial.Offset(1, 0).Value = "" Then
fila = 8
Else
fila = CeldaInicial.End(xlDown).Row + 1
End If

'_________________________________________________________

'Comienza a copiar los valores del UserForm a la hoja Volcado_1
Cells(fila, col) = " "
Cells(fila, col + 2).Value = TextBox1.Value
Cells(fila, col + 3).Value = TextBox2.Value
Cells(fila, col + 4).Value = TextBox3.Value

Hasta aquí todo bien, el problrema surge cuando en la hoja usuarios coloco
la sgte fórmula para calcular la edad de un paciente al presionar el botón de
comando dmora más de 15 segundos para efectuar el volcado.:

=fecha(I1;Hoy();"md") =fecha(I1;Hoy();"ym") =fecha(I1;Hoy();"y")

Por su puesto que en el mismo userform tengo un combobox que carga los datos
de las fechas.




Buenas tardes: le he hecho algunos ajustes y me èsta funcionado mucho mejor,
creo que ya podemos cerrar èste hilo.




Preguntas similares