Error en macro al ejecutar el botón aceptar
Necesitaría la colaboración para resolver el error que sucede al ejecutar el botón aceptar
Set mifila = Hoja2.ListObjects(1).ListRows.Add
Lo que yo agregue solamente a la base fue una columna al inicio ("A") anteriormente se llamaba Tabla6 y yo ahora le coloque "telepeaje"
La macro del botón es:
Private Sub Aceptar_Click()
Application.ScreenUpdating = False
Codigo = TextID.Value
Fecha = TextFecha.Value
Autopista = TextAutopista.Value
Comprobante = TextComprobante.Value
Vencimiento = TextVencimiento.Value
Importe = TextCosto.Value
'Set mifila = Hoja2.ListObjects(1).ListRows.Add 'AlwaysInsert:=True
'With mifila
.Range(1) = Codigo
.Range(2) = CDate(TextFecha.Value)
.Range(3) = Autopista
.Range(4) = Comprobante
.Range(5) = CDate(TextVencimiento.Value)
.Range(6) = Importe
If Me.Oppago = True Then
.Range(9) = "PAGO"
End If
If Me.Opimpago = True Then
.Range(9) = "IMPAGO"
End If
End With
TextID = "" 'Empty
TextAutopista = "" 'Empty
TextComprobante = "" 'Empty
TextVencimiento = "" 'Empty
TextCosto = "" 'Empty
TextFecha.SetFocus
End Sub
1 respuesta
I. Hola Compañero, disculpe la intromisión, por mi parte no puedo ayudarle de ninguna manera por desconocimiento, pero si lo desea, en caso de que no reciba una respuesta durante los próximos días podría facilitarle comunicación directa con varios expertos que creo podrán ayudarle de primera mano, tan sólo bastaría con citarlos para que vean su mensaje.
De nuevo le pido perdón por las molestias, ánimo.
