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

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:

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 clara

No me gusta: Está pregunta no esta clara o no es útil

Responder

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

Publicado por Miltinho (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 clara

No me gusta: Está respuesta no esta clara o no es útil

Comentar