Visual Basic para Aplicaciones - Error 461 al ejecutar un boton de UserForm (No se encontró el método o el dato miembro)

Life is soft - evento anual de software empresarial
   
Vista:

Error 461 al ejecutar un boton de UserForm (No se encontró el método o el dato miembro)

Publicado por Ezequiel Mariano (4 intervenciones) el 14/04/2016 17:22:56
Buenos dias,
Tengo un problema. Armé un formulario, y en el botón "aceptar" le cargué el código que necesito. Ya lo he hecho en otros archivos sin problemas, pero en este no me funciona ya que me tira un error "No se encontró el método o el dato miembro". Espero que puedan ayudarme a encontrar el problema.
Va el codigo:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Private Sub UFOkey_Click()
Dim iFila As Long
Dim ws As Worksheet
Set ws = Worksheets("KPI")
' Encuentra la siguiente fila vacía
iFila = ws.Cells(Rows.Count, 1) _
.End(xlUp).Offset(1, 0).Row
' Copia los datos del formulario a la tabla Excel
ws.Cells(iFila, 1).Value = Me.UFNegocio.Value
ws.Cells(iFila, 2).Value = Me.UFPozo.Value
ws.Cells(iFila, 3).Value = Me.UFEtapa.Value
ws.Cells(iFila, 4).Value = Me.UFGeometria.Value
ws.Cells(iFila, 5).Value = Me.UFCompañia.Value
ws.Cells(iFila, 6).Value = Me.UFCaudalD.Value
ws.Cells(iFila, 7).Value = Me.UFPPAD.Value
ws.Cells(iFila, 8).Value = Me.UFModo.Value
ws.Cells(iFila, 9).Value = Me.UFDiseño.Value
ws.Cells(iFila, 10).Value = Me.UFPunzados.Value
ws.Cells(iFila, 11).Value = Me.UFAcido.Value
ws.Cells(iFila, 12).Value = Me.UFFluidos.Value
ws.Cells(iFila, 13).Value = Me.UFArena.Value
ws.Cells(iFila, 14).Value = Me.UFArenaform.Value
ws.Cells(iFila, 15).Value = Me.UFAisla.Value
ws.Cells(iFila, 16).Value = Me.UFQprom.Value
ws.Cells(iFila, 17).Value = Me.UFOverflush.Value
ws.Cells(iFila, 18).Value = Me.UFPPAFin.Value
ws.Cells(iFila, 19).Value = Me.UFBolita.Value
ws.Cells(iFila, 20).Value = Me.UFSweep.Value
ws.Cells(iFila, 21).Value = Me.UFOcasionSw.Value
ws.Cells(iFila, 22).Value = Me.VolumenSw.Value
ws.Cells(iFila, 23).Value = Me.UFArenamiento.Value
ws.Cells(iFila, 24).Value = Me.UFFlowback.Value
ws.Cells(iFila, 25).Value = Me.UFSOOK.Value
ws.Cells(iFila, 26).Value = Me.UFMallaSO.Value
ws.Cells(iFila, 27).Value = Me.UFPPASO.Value
ws.Cells(iFila, 28).Value = Me.UFComentarios.Value
 
Unload Me
ActiveSheet.Protect ("ESTINOC")
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
Imágen de perfil de Miltinho

Error 461 al ejecutar un boton de UserForm (No se encontró el método o el dato miembro)

Publicado por Miltinho miguicastro@hotmail.com (3 intervenciones) el 15/04/2016 17:59:52
Hola E...
Sin el archivo es difícil adivinar la causa, sin embargo, teniendo en cuenta que mencionas que ya ha funcionado en otros archivos, y asumiendo que esos otros archivos están en otras máquinas, es posible que la versión de Excel no sea compatible, particularmente cuando se desarrolla un código en Excel de 32 bits y se pretende utilizar en una máquina con Excel de 64 bits.

Miltinho - ALS
Así Lo Solucioné
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar