Código Mes y Año VBA Excel

Tengo un botón de comando que al momento que se presione debe replicar la fórmula a continuación en rangos diferentes sin embargo me sale error por dice que tengo dos (2) veces la opción "For" y cuando trato de modificarla no me funciona.

Código #1 - Trato de copiar la fórmula y me sale que no puedo usar dos veces "For".

Dim Mes As String
ult = Cells(Rows.Count, 11).End(xlUp).Row
For Y = 300 To ult
Select Case Month(Cells(Y, 66))
Case 1: Mes = "Enero"
Case 2: Mes = "Febrero"
Case 3: Mes = "Marzo"
Case 4: Mes = "Abril"
Case 5: Mes = "Mayo"
Case 6: Mes = "Junio"
Case 7: Mes = "Julio"
Case 8: Mes = "Agosto"
Case 9: Mes = "Septiembre"
Case 10: Mes = "Octubre"
Case 11: Mes = "Noviembre"
Case 12: Mes = "Diciembre"
End Select
Cells(Y, 69) = Mes
Dim Mes As String
ult = Cells(Rows.Count, 80).End(xlUp).Row
For Y = 300 To ult
Select Case Month(Cells(Y, 135))
Case 1: Mes = "Enero"
Case 2: Mes = "Febrero"
Case 3: Mes = "Marzo"
Case 4: Mes = "Abril"
Case 5: Mes = "Mayo"
Case 6: Mes = "Junio"
Case 7: Mes = "Julio"
Case 8: Mes = "Agosto"
Case 9: Mes = "Septiembre"
Case 10: Mes = "Octubre"
Case 11: Mes = "Noviembre"
Case 12: Mes = "Diciembre"
End Select
Cells(Y, 138) = Mes

Next

Código #2 - Luego hice esto pero no me funciona.

Dim Mes As String
ult = Cells(Rows.Count, 11).End(xlUp).Row
ult = Cells(Rows.Count, 80).End(xlUp).Row
For Y = 300 To ult
Select Case Month(Cells(Y, 66))
Case 1: Mes = "Enero"
Case 2: Mes = "Febrero"
Case 3: Mes = "Marzo"
Case 4: Mes = "Abril"
Case 5: Mes = "Mayo"
Case 6: Mes = "Junio"
Case 7: Mes = "Julio"
Case 8: Mes = "Agosto"
Case 9: Mes = "Septiembre"
Case 10: Mes = "Octubre"
Case 11: Mes = "Noviembre"
Case 12: Mes = "Diciembre"
End Select
Cells(Y, 69) = Mes
Next

1 respuesta

Respuesta
1

Te anexo la corrección, según entiendo tienes 3 for, después del primer for, te faltaba el next

Sub CodMes()
    'Código #1 - Trato de copiar la fórmula y me sale que no puedo usar dos veces "For".
    Dim Mes As String
    ult = Cells(Rows.Count, 11).End(xlUp).Row
    For Y = 300 To ult
        Select Case Month(Cells(Y, 66))
            Case 1: Mes = "Enero"
            Case 2: Mes = "Febrero"
            Case 3: Mes = "Marzo"
            Case 4: Mes = "Abril"
            Case 5: Mes = "Mayo"
            Case 6: Mes = "Junio"
            Case 7: Mes = "Julio"
            Case 8: Mes = "Agosto"
            Case 9: Mes = "Septiembre"
            Case 10: Mes = "Octubre"
            Case 11: Mes = "Noviembre"
            Case 12: Mes = "Diciembre"
        End Select
        Cells(Y, 69) = Mes
    Next
    '
    ult = Cells(Rows.Count, 80).End(xlUp).Row
    For Y = 300 To ult
        Select Case Month(Cells(Y, 135))
            Case 1: Mes = "Enero"
            Case 2: Mes = "Febrero"
            Case 3: Mes = "Marzo"
            Case 4: Mes = "Abril"
            Case 5: Mes = "Mayo"
            Case 6: Mes = "Junio"
            Case 7: Mes = "Julio"
            Case 8: Mes = "Agosto"
            Case 9: Mes = "Septiembre"
            Case 10: Mes = "Octubre"
            Case 11: Mes = "Noviembre"
            Case 12: Mes = "Diciembre"
        End Select
        Cells(Y, 138) = Mes
    Next
    'Código #2 - Luego hice esto pero no me funciona.
    ult = Cells(Rows.Count, 11).End(xlUp).Row
    ult = Cells(Rows.Count, 80).End(xlUp).Row
    For Y = 300 To ult
        Select Case Month(Cells(Y, 66))
            Case 1: Mes = "Enero"
            Case 2: Mes = "Febrero"
            Case 3: Mes = "Marzo"
            Case 4: Mes = "Abril"
            Case 5: Mes = "Mayo"
            Case 6: Mes = "Junio"
            Case 7: Mes = "Julio"
            Case 8: Mes = "Agosto"
            Case 9: Mes = "Septiembre"
            Case 10: Mes = "Octubre"
            Case 11: Mes = "Noviembre"
            Case 12: Mes = "Diciembre"
        End Select
        Cells(Y, 69) = Mes
    Next
End Sub

Si tienes dificultades con el código, explícame lo que necesitas y te apoyo con la macro.

Saludos. Dante Amor

Si es lo que necesitas. No olvides valorar la respuesta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

VBA Excel Funcion Mes Completo

Estoy aprendiendo el diseño de macros a través de VBA Excel y solicito su apoyo. Consulta: ¿Cómo obtener el nombre completo del mes basado en el dato de una celda? Tengo un userform que busca la última fila vacía para registrar una serie de datos. En...
2 respuestas

¿Cómo guardar sólo una hoja de excel con un nombre predefinido mas la fecha?

Quisiera saber como lo puedo hacer para guardar una hoja de excel en el escritorio con un nombre predefinido mas la fecha correspondiente al mes en que se guardo mas el año ej: hoja de cuenta noviembre 2012 o hoja de cuenta diciembre 2012... Etc.
1 respuesta

Macro para calculo de promedio Excel 2003 (va dirigida a Dante Amor)

Lo que necesitaría es obtener una macro en la cual me permita calcular los totales con sus promedios según se le indiquen, puede ser 2, 3, 6, 8 o 12 meses.- Ej. - Supongamos que estoy en el Mes de Marzo y quiero saber los consumo y promedio de los...
1 respuesta

Valor automático en celdas según variable

Tengo una tabla de excel con doce filas correspondiente a los meses del año. Necesito que depende la fecha actual me coloque cuando el pago es trimestral, el importe en los meses correspondientes. Por ejemplo, ahora mes de diciembre que lo pusiera en...
1 respuesta

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,...
1 respuesta

Excel: Lista desplegable con meses

Se puede crear una Lista desplegable en celda c2 con los meses del año, rellenar A1:A31 con los días del mes EJ: C2: Julio A1:A31 01-06 sáb 02-06 dom 03-06 lun etc 31-06 dom He tratado con BUSCARV y no me ha salido...
1 respuesta

Macro para calcular consumos mensuales y promedio en Excel 2003

Estoy trabajando en una planilla de Excel 2003 donde se registran las salidas de elementos (Salidas.xls) en ella figura el código, la fecha, el cliente, y por ultimo la cantidad solicitada. También arme otra planilla (ConsumoAnual.xls) en ella se...
1 respuesta

¿Como enlazar Combobox dependientes y unir con Textbox al finalizar filtro?

Soy bastante novato y estoy aprendiendo sobre este lenguaje. Tengo un formulario en cual tengo 6 combobox los cuales están enlazados entre sí, es decir, cuando selecciono algún valor en el primer combobox este condiciona el segundo y así...
1 respuesta

Pasar un campo calculado a una tabla

Siento molestarte, pero como tu resolviste mi duda sobre como calcular la estación del año en función de la fecha introducida en otro campo, quizás puedas ahora ayudarme a que la estación no sólo salga en el formulario sino también en la tabla. En...
1 respuesta

Macro que sume de acuerdo al primer dígito

Muy buenos días: Estoy en busca de una macro, "No Fórmula de excel", que realice suma de acuerdo al primer dígito como se ve en la ilustración, lo que esta resaltado en color seria el resultado de la macro. ¿Esto se puede?
1 respuesta