Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Macros en excel

18/04/2008 - 10:34 por Ira | Informe spam
Hola,

Tengo una macro en excel que funciona perfectamente en todos los pcs menos
en dos.
Les he instalado todas las actualizaciones del office pero no va. He vuelto
a reinstalar office y tampoco. Estoy usando excel 2000.

La macro es esta:

Private Sub Worksheet_Activate()
With Sheets("Introducción Datos")
LblFecha.Caption = .Range("Fecha")
LblNPedido.Caption = .Range("NPedido")
LblCliente.Caption = .Range("Cliente")
LblMaxCarga1.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga2.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga3.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga4.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga5.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga6.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga7.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga8.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCarga9.Caption = .Range("MaxCarga") & " kg" & vbCrLf & "MAX"
LblMaxCargaModulo.Caption = .Range("MaxCargaCalle") & " kg" & vbCrLf &
"MAX. CARGA CALLE"
LblAlturaNivel1.Caption = .Range("AlturaNivel1") & " mm"
LblAlturaNivel2.Caption = .Range("AlturaNivel2") & " mm"
LblNNiveles.Caption = "NIVEL " & .Range("NNiveles")
End With
End Sub

Y en los dos pcs que no me funcionan en la 3 linea me aparece 'No se
requiere el objeto'.
Los archivos son los mismos para todos porque están en una carpeta en red.

¿Alguna idea?.

Gracias
 

Preguntas similares