Macro para colocar fecha en columna
Hola
No se si la pregunta esta bien formulada por que ya me confundí.
la pregunta anterior decia con como cambiar el formato de fecha de mm/dd/aaaa a dd/mm/aaaa.
ahora es como colocar ese dato en la fila y columna correspondiente
For i = 1 To 24
ActiveCell.Offset(0, i - 1).Value = Me.Controls("TextBox" & i).Value
If TextBox6 <> "" And IsDate(TextBox6) Then
Cells(0, "f") = CDate(TextBox6)
End If
Next i
Gracias
1 respuesta
Respuesta de Dante Amor
1
En tu formulario frmmodi, así debe quedar el código, te puse la muestra para los textbox1, 2, 3 y 5, deberás hacer lo mismo para los demás textbox.
'Actualizar el registro Private Sub btn_modificar_Click() 'act.por.Dante Amor Fila = ActiveCell.Row Cells(Fila, "A") = TextBox1 Cells(Fila, "B") = TextBox2 If TextBox3 <> "" And IsDate(TextBox3) Then Cells(Fila, "C") = CDate(TextBox3) End If If TextBox5 <> "" And IsDate(TextBox5) Then Cells(Fila, "E") = CDate(TextBox5) End If Dim Ruta As String, Nombre As String, Version As String Application.StatusBar = "Guardando BACKUP..." Ruta = "C:\Users\RON\Documents\listados" Nombre = Left(ActiveWorkbook.Name, 12) + " " + Format(Now, "yyyy.mm.dd hh.mm") & " bp.xlsm" 'Ruta = ActiveWorkbook.Path 'Nombre = Left(ActiveWorkbook.Name, 13) & "_BP.xlsm" ActiveWorkbook.SaveCopyAs Filename:=Ruta & "\" & Nombre Application.StatusBar = False 'Application.DisplayAlerts = False 'Application.EnableEvents = False ActiveWorkbook. Save Unload Me End Sub
Saludos.Dante Amor
Recuerda valorar la respuesta.
