Saltar al contenido

AYUDA CON FORMULA PARA LETRA ABECEDARIO


Recommended Posts

publicado

Buenas, estoy intentando ver una formula que va contando del 0 al 100 pero cada ves que llegue a 5 me coloque una A es decir seria= A5, despues continue con el A6... hasta que llegue al A9, despues siga con el B10... hasta el B14, después con el C y asi sucesivamente, como lo haria?

publicado

Tengo un for del 0 al 100 que va cambiando una celda A1=0, A2=1 conforme va corriendo el bucle, pero al llegar al conteo 5 que añada la letra A al inicio, al llegar al conteo 10 que cambie con la B10 y asi, que cada conteo de 5 en cinco añada la siguiente letra del abecedario

publicado

Hola

Tal vez así?

Sub Conteo()
    Application.ScreenUpdating = False
    Dim X As Byte, Y As Byte
    Y = 64
    For X = 0 To 100
        If X > 0 And X Mod 5 = 0 Then
            Y = Y + 1
        End If
        Range("A" & X + 1).Value = IIf(Y > 64, Chr(Y), "") & X
    Next
    Application.ScreenUpdating = True
End Sub

 

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.