Modificar rango de celdas automáticamente al escribir valores

[96andres96]

Buenas tardes,

tengo varias tablas con un rango de celdas de fecha cada uno para facturas.

Es decir, tengo una tabla de enero para las facturas de enero, otra de febrero para las facturas de febrero, etc.

En cada tabla tengo una columna para añadir las fechas. Y quería saber si existe alguna opción de autocompletar una fecha al introducir el día. 

Es decir, si estoy en la tabla de enero e introduzco en una de las casillas de fechas, el valor "5", que dicha celda se autocomplete automáticamente a 05/01/2024.

Gracias.

[Israel Cassales]

Lo que entendí sin libro de ejemplo

[Israel Cassales]

Para algo como lo anterior una idea es una sentencia VBA, aunque debe personalizar para termine de funcionar de acuerdo a sus necesidades.

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Cell As Range
    Dim ws As Worksheet
    Set ws = Worksheets("Hoja1")
    
    If Not Intersect(Target, ws.Range("A2:A10")) Is Nothing Or Not Intersect(Target, ws.Range("B2:B10")) Is Nothing Then
        Application.EnableEvents = False
        For Each Cell In Target
            If Not IsEmpty(Cell) And IsNumeric(Cell.Value) Then
                If Cell.Column = 1 Then ' Columna A
                    Cell.Value = DateSerial(2024, 1, Cell.Value)
                ElseIf Cell.Column = 2 Then ' Columna B
                    Cell.Value = DateSerial(2024, 2, Cell.Value)
                End If
            End If
        Next Cell
        Application.EnableEvents = True
    End If
End Sub

 

Editado el el 19 de noviembre por Israel Cassales
Insertar código

[Israel Cassales]

Otra opción más sencilla siempre y cuando su diseño lo permita, es agregar una columna adicional con la función FECHA() que tome el dato que se introduzca y haga lo que busca, pero ya es otra columna dentro de la tabla. Para la misma celda no tiene tantas opciones.

 

Es lo que puedo aportar en su consulta, saludines

Editado el el 19 de noviembre por Israel Cassales

[96andres96]

Sí, perfecto, era eso lo que buscaba.

Sobre lo que comentas de agregar otra columna con la función fecha, lo había barajado, al igual que tener una macro que accionar, pero quería que fuese un cambio automático y no lograba dar con la solución.

Muchas gracias.

[Israel Cassales]

hace 20 horas, 96andres96 dijo:

Sí, perfecto, era eso lo que buscaba.

Me da gusto, concluyo mi participación en la consulta. Saludines

[Victor7]

Hola a ambos,

Otra opción podría ser aplicar previamente a las celdas implicadas este formato personalizado:

#.###"/01/24"

Bastará con incluir el día (7, 30, 18,... el que sea) y la celda recogerá visualmente el resultado deseado.

Si la situación termina aquí, puede adoptarse, si se desea, este procedimiento.  Pero tengamos presente que en las celdas implicadas no habrá una fecha, sino un número (el día introducido).  Quiere decir que no puede haber cálculos dependientes de esa celda, ya que no darán los resultados esperados.

– Nota:  Modificar 01/24 por el mes y año deseados.

Saludos,