DETERMINAR LETRA CONSECUTIVA

Hola nuevamente.

No he probado la función que da Ivan, pero esta te trabaja hasta la ZZ
y independientemente si es mayúscula o minúscula.

Function letras(ant As String)
Dim cod As Integer

If Len(ant) > 1 Then
If Right(ant, 1) = "Z" And Left(ant, 1) = "Z" Then
letras = ""
Else
If Right(ant, 1) = "Z" Then
letras = Chr(Asc(Left(ant, 1)) + 1) & "A"
Else
If Right(ant, 1) = "z" Then
letras = Chr(Asc(Left(ant, 1)) + 1) & "a"
Else
letras = Left(ant, 1) & Chr(Asc(Right(ant, 1)) +
1)
End If
End If
End If
Else
If ant = "Z" Then
letras = "AA"
Else
If ant = "z" Then
letras = "aa"
Else
letras = Chr(Asc(ant) + 1)
End If
End If
End If

End Function


Comentas como te va.

Saludos

Boris

Gracias Boris, perfecta tu solucion para mi, pues solo necesito hasta "AT"

"Boris" escribió:

Hola Brenda.

Mientras viene Juan, prueba con la siguiente fórmula, que sólo te
sirve hasta la AZ, ya tendrías que modificarla para más.

=SI(LARGO(A11)>1,"A"&CARACTER(CODIGO(DERECHA(A11,1))
+1),SI(CODIGO(A11)<90,CARACTER(CODIGO(A11)+1),SI(CODIGO(A11),"AA")))

Saludos

Boris

hola, Brenda !

... perfecta tu solucion para mi, pues solo necesito hasta "AT" ..

si lo que buscas es determinar "la columna siguiente" utilizando solo la letra de columna para la anterior...
prueba: =sustituir(sustituir(celda("address",desref(indirecto(a1&1),,1)),"$",""),1,"")

saludos,
hector.