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
Leer las respuestas