Fórmula para denominar celdas por mes (en palabra), en Excel 2003.
Quisiera preguntar si se puede escribir en una celda (A1) la palabra de un mes, por ejemplo ENERO, y crear una fórmula =(A1+3) y que en otra celda (B1) aparezca ABRIL, en vez de utilizar el clásico 16/01 y luego 16/03, sino que figurase 16 de Enero, y luego 16 de Marzo.
1 respuesta
Pero ya hay un formato así, puedes escribir 16/1 ó 16-01 ó 16 ene y luego cambias el formato de la celda, elige del menú: Formato / Celdas, en categoría selecciona "Personalizar" y en Tipo: escribe lo siguiente:
[$-80A]d" de "mmmm
Entonces las fechas te aparecen así : 16 de enero
Saludos. Dam
Si es lo que necesitas.
Dam, muchas gracias por tu respuesta, aunque no me sirve, con perdón.
Lo que ando buscando es cuando en una celda escribo ENERO (sólo Enero), que en otra me aparezca MARZO (si en esta he escrito la fórmula A1+2, siendo A1 Enero. ¿me explico?. Gracias.
Te envío una función para lo que necesitas.
Instrucciones para Función
1. Abre tu hoja de excel
2. Para abrir VBa y poder pegar la función, Presiona Alt + F11
3. En el menú elige Insertar / Módulo
4. En el panel del lado derecho copia la función
5. En cualquier celda utiliza la función, como cualquier otra función de excel
Function meses(celda, incremento)
'Regresa el nombre de un mes
'Por.Dam
If incremento > 11 Then
MsgBox "Error en el número, no debe ser mayor a 11"
meses = "#N/A"
End If
Select Case celda
Case "enero", "ENERO"
mes = 1
Case "febrero", "FEBRERO"
mes = 2
Case "marzo", "MARZO"
mes = 3
Case "abril", "ABRIL"
mes = 4
Case "mayo", "MAYO"
mes = 5
Case "junio", "JUNIO"
mes = 6
Case "julio", "JULIO"
mes = 7
Case "agosto", "AGOSTO"
mes = 8
Case "septiembre", "SEPTIEMBRE"
mes = 9
Case "octubre", "OCTUBRE"
mes = 10
Case "noviembre", "NOVIEMBRE"
mes = 11
Case "diciembre", "DICIEMBRE"
mes = 12
End Select
mesfin = mes + incremento
If mesfin > 12 Then
mesfin = mesfin - 12
End If
Select Case mesfin
Case 1
meses = "ENERO"
Case 2
meses = "FEBRERO"
Case 3
meses = "MARZO"
Case 4
meses = "ABRIL"
Case 5
meses = "MAYO"
Case 6
meses = "JUNIO"
Case 7
meses = "JULIO"
Case 8
meses = "AGOSTO"
Case 9
meses = "SEPTIEMBRE"
Case 10
meses = "OCTUBRE"
Case 11
meses = "NOVIEMBRE"
Case 12
meses = "DICIEMBRE"
End Select
End FunctionIndicaciones:
En la función debes poner 2 parámetros, el primero es para la celda en donde se encuentra el nombre del mes, en el Segundo parámetro, debes poner el número que quieres incrementar.
Ejemplo con función:
A B
1 ENERO =meses(A1,2)
2
Resultado
A B
1 enero marzo
2
Otro ejemplo:
A B
1 MARZO =meses(A1,5)
2
Resultado
A B
1 marzo agosto
2
Saludos. Dam
