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
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://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
