Error en el metodo Value de objeto Range

En un botón de guardar, me sale el error en el método Value de Objeto Range. Se ha producido el error 2147417848 (080010108) en tiempo de ejecución.

Continuar finalizar depurar ayuda

Y se cierra el archivo sin guardar.

La línea que me da fallo es esta

Sheets("PARTIDOS").Range("B" & ultimo).Value = Me.TextBox1.Value

Pongo todo el código para más información

'BOTÓN GUARDAR

Private Sub CommandButton1_Click()
Dim TABLAPARTIDOS As ListObject
Dim ultimo As Integer
Set TABLAPARTIDOS = Sheets("PARTIDOS").ListObjects("tabla2")
ultimo = TABLAPARTIDOS.Range(TABLAPARTIDOS.Range.Rows.Count, 1).Row + 1
MsgBox (ultimo) ' Para saber si es la ultima fila 
Sheets("PARTIDOS").Range("B" & ultimo).Value = Me.TextBox1.Value
Sheets("PARTIDOS").Range("C" & ultimo).Value = Me.TextBox2.Value
Sheets("PARTIDOS").Range("D" & ultimo).Value = Me.TextBox3.Value
Sheets("PARTIDOS").Range("E" & ultimo).Value = Me.TextBox4.Value
Sheets("PARTIDOS").Range("F" & ultimo).Value = Me.TextBox5.Value
Sheets("PARTIDOS").Range("G" & ultimo).Value = Me.TextBox6.Value
Sheets("PARTIDOS").Range("H" & ultimo).Value = Me.TextBox7.Value
Sheets("PARTIDOS").Range("I" & ultimo).Value = Me.TextBox8.Value
TextBox1.Value = Empty
TextBox2.Value = Empty
TextBox3.Value = Empty
TextBox4.Value = Empty
TextBox5.Value = Empty
TextBox6.Value = Empty
TextBox7.Value = Empty
TextBox8.Value = Empty
End Sub

1 respuesta

Respuesta

I. Hola Jesús, sólo quisiera trasladarle la información en Inglés que vi sobre su consulta por si pudiese serle de alguna utilidad mientras le atiende un experto o experta de primera mano, los que si desea podríamos citar o 'invocar' en caso de que no recibiese respuestas, ya que no soy conocedor pero sí lector habitual de la página. Le ruego me disculpe todas las molestias de lectura y el tipo de respuesta. Ánimo.


https://www-mrexcel-com.translate.goog/board/threads/method-default-of-object-range-failed.1205218/?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://stackoverflow.com/questions/21790762/excel-visual-basic-1004-error-method-value-of-object-range-failed

https://stackoverflow.com/questions/3902818/select-method-of-range-class-failed-via-vba 

https://stackoverflow.com/questions/30560372/value-error-while-using-range-object-in-vba-excel 

https://www-vbforums-com.translate.goog/showthread.php?895766-Excel-VBA-method-quot-Value-quot-of-object-range-failed&_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://www-experts--exchange-com.translate.goog/questions/28991523/method-value-of-object-range-failed-error.html?_x_tr_sl=en&_x_tr_tl=es&_x_tr_hl=es&_x_tr_pto=sc 

https://es.stackoverflow.com/questions/595474/se-ha-producido-el-error-2147417848-80010108-en-tiempo-de-ejecuci%C3%B3n-error

https://stackoverflow.com/questions/39823819/variable-range-and-keep-getting-method-range-of-object-worksheet-failed 

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas