Foro Excel

Hola buenos dias
Nuevamente necesito de vuestra ayuda

Necesito un formato dinámico para una columna
Quisiera que al escribir un número (por ejemplo 444) me salga automaticamente
de la siguiente manera >>> 07/444. El 07 es por el Año actual

Quisiera que me valiera para los próximos Años, y no tener que cambiar todos los Años el formato de la columna

Actualmente tengo el siguiente Formato "07/"Standard


Gracias anticipadamente
Un saludo Ana Jara

Hola Ana,

1.- Los formatos personalizados no permiten hacer referencia a valores no propios de la celda a la cual le aplicas el formato. Por lo cual no conozco ninguna forma de efectuarlo sin código VBA.

2.- Puedes utilizar una macro de evento para aplicar el formato pero primero debes definir el criterio para el año.

[tab]a)Todo valor en esa columna debe de cambiar en relación a la fecha del PC
[tab]b)Solo los valores que se entran/capturan a partir del 1er. Dí­a del año se afectan
[tab]c)Que sucede si editas un valor que fue entrado/capturado en un año previo al actual

Saludos

Hola sailepaty

No entiendo muy bien lo que me quieres decir
Podrias ser tan amable y ponerme un ejemplo?
Gracias y perdona por la petición
Saludos Ana Jara

Hola Ana,

Actualmente tengo el siguiente Formato "07/"Standard

Me imagino que ese formato lo definiste en Formato->Celdas->Numero->Personalizado y tecleaste "07/"Standard.

1.- Los formatos personalizados no permiten hacer referencia a valores no propios de la celda a la cual le aplicas el formato. Por lo cual no conozco ninguna forma de efectuarlo sin código VBA.

Bueno a lo que me refiero es que el valor "07" no lo puedes condicionar en esa opción del menú. Se pueden efectuar condiciones pero solo si están relacionadas a valores de la celda.

Ejemplo: [>500]"07/"General;"08/"General. En este caso el formato de la celda es [b]“08/â€

Hola sailepaty,
espero haberte comprendido bien.
Criterio no se me ocurre ninguno.
Lo que te digo es que este formato lo desearia, para numerar las facturas

De todas formass te agradezco tú interés
Gracias y saludos
Ana Jara

Hola Ana

Te adjunto la segunda posibilidad que inicialmente te sugirió sailepaty.

Revisa el adjunto.

Para introducir datos tan sólo pon el número de factura (por ejemplo 1), te aparecerá 07/0001.
Si introduces más de cuatro caracteres te escribirá el texto tal y como lo hayas puesto (incluidos números).
Si editas una fecha de otro año (una corrección deberás escribirla entera.

Un saludo desde Vitoria

Bueno , todo bien....pero ya que estaba, se me ocurrio otra version....
La idea es que al abrir el archivo el Primer dia (el dia del año que sea el primero que abras) de cada Año nuevo, en la columna de carga , a partir de la primera celda a utilizar, se cargue el formato anual correspondiente y a partir de ahi sin retoques hasta el nuevo año.....

Hay una Macro para correrla una vez y nada mas ....

Código: Seleccionar todo

Sub CargarAño()
Dim año As Long
On Error Resume Next
año = Year(Date)
ActiveWorkbook.CustomDocumentProperties("AñoCarga").Delete
With ActiveWorkbook.CustomDocumentProperties
.Add Name:="AñoCarga", Type:=msoPropertyTypeNumber, LinkToContent:=False, Value:=año
End With
End Sub

y en el Modulo Thisworkbook esta otra:

Código: Seleccionar todo

Private Sub Workbook_Open()
Dim año As Long, añoVigente As Long, strAñoVigente As String, formato As String
On Error Resume Next
año = ActiveWorkbook.CustomDocumentProperties("AñoCarga")
añoVigente = Year(Date)

If año = añoVigente Then Exit Sub
strAñoVigente = Right(añoVigente, 2)
formato = Chr(34) & strAñoVigente & "/" & Chr(34) & "00000"

With Sheets(1)
.Range(.Cells(Rows.Count, 1).End(xlUp).Offset(1, 0), .Cells(Rows.Count, 1)).NumberFormat = formato
End With

With ActiveWorkbook.CustomDocumentProperties
ActiveWorkbook.CustomDocumentProperties("AñoCarga").Delete
.Add Name:="AñoCarga", Type:=msoPropertyTypeNumber, LinkToContent:=False, Value:=añoVigente
End With

End Sub