Editar fila desde un listbox

Perdona e intentado hacerlo y aun no me funciona me dice que tengo un error en un rango de fecha

'FECHA
Cells(fil, col) = TextBox1

así lo tengo formulado, mi intención es anular un registro colocando varios textbox en 0 y cambiar el registro con estos rangos en 0

Private Sub CommandButton5_Click()
Dim fil As String
Dim col As String
If TextBox1.Value = "FECHA" Then
MsgBox "Selecciona un dato de la lista"
Exit Sub
End If
Dim PT As Double
Workbooks("APPS DESPACHO.xlsm").Activate
If ListBox1.ListIndex = -1 Then
        MsgBox "Selecciona un dato de la lista"
        Exit Sub
End If
Dim mensaje As String
mensaje = MsgBox("DESEA ANULAR EL REGISTRO" & TextBox2.Value & " DE LA BASE?", vbOKCancel, "CONFIRMACION")
If mensaje = vbOK Then
Sheets("BASE").Visible = True
'Call incertarfila
'FECHA
With TextBox1
    .Value = Format(.Value, "dd/mm/yyyy")
End With
TextBox4.Value = "0"
TextBox5.Value = "0"
TextBox6.Value = "0"
TextBox11.Value = "0"
TextBox13.Value = "ANULADO"
TextBox17.Value = "0"
TextBox18.Value = "0"
TextBox19.Value = "0"
fil = Range("BASE").Cells(1, 1).Row + ListBox1.ListIndex
col = Range("BASE").Cells(1, 1).Column
'FECHA
Cells(fil, col) = TextBox1
'ENTREGA
Cells(fil, col + 1) = TextBox5.Value
'CLIENTE
Cells(fil, col + 2) = TextBox15.Value
'OC
Cells(fil, col + 3) = TextBox8.Value
'PLACA
Cells(fil, col + 4) = TextBox16.Value
'CONDUCTOR
Cells(fil, col + 5) = TextBox3.Value
'MATERIAL
Cells(fil, col + 6) = TextBox17.Value
'M3
Cells(fil, col + 7) = TextBox4.Value
'ORIGEN
Cells(fil, col + 8) = TextBox18.Value
'DESTINO
Cells(fil, col + 9) = TextBox19.Value
'ALTO
Cells(fil, col + 10) = TextBox2.Value
'ALTOTM
Cells(fil, col + 11) = TextBox14.Value
'IMMA
Cells(fil, col + 12) = TextBox7.Value
'RECIBE
Cells(fil, col + 13) = TextBox6.Value
'PRECIO
Cells(fil, col + 14) = CDbl(TextBox11.Value)
'VALOR TOTAL
Cells(fil, col + 15) = CDbl(TextBox11.Value) * CDbl(TextBox4.Value)
'MES
Cells(fil, col + 16).ActiveCell.FormulaR1C1 = "=TEXT(RC[-16],""MMMM"")"
'MOVIMIENTO
Cells(fil, col + 17) = TextBox9.Value
'OBSERVACION
Cells(fil, col + 18) = TextBox13.Value
 ListBox1.RowSource = "BASE"
'Sheets("BASE").Visible = xlVeryHidden
Else
End If
End Sub

espero me puedas ayudar .

pd: e cambiado string por double y me deja modificar pero solo me modifica la primera columna. Como veras trato de solucionar a prueba error.

1

1 respuesta

Respuesta
1

Enviame tu hoja con el formulario porque estás haciendo lío ;)

(Los correos aparecen en la portada de mi sitio que dejo al pie)

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas