De minuscula a mayuscula

Puedes usar la función MAYUSC
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Password en hojas" escribió en el mensaje news:

saludos.

como logro cambiar los caracteres de una o varias celdas en excel, de
minuscula a mayuscula.

agradecere su ayuda.

esmerlin Morillo.

Esmerlin, si necesitás hacer el cambio en la misma celda,
lo mejor es que empleés un macro. Aquí te mando el
código:

Sub MayPlus()
' Creado el 27/11/2003 por David García
Dim NFi(128), NCo(128), CFi(128), Cco(128), Nr, Ni, Nj,
r, i, j As Integer
Dim Texto As String
AreaCount = Selection.Areas.Count
If AreaCount < 128 Then
i = 1
For Each A In Selection.Areas
NFi(i) = A.Row
NCo(i) = A.Column
CFi(i) = A.Rows.Count
Cco(i) = A.Columns.Count
i = i + 1
Next A
Nr = i - 1
r = 1
i = 1
j = 1
Do While r <= Nr
Ni = CFi(r)
i = NFi(r)
Nj = Cco(r)
j = NCo(r)
Do While i < NFi(r) + CFi(r)
Do While j < NCo(r) + Cco(r)
Texto = UCase(Cells(i, j).Value)
Cells(i, j) = Texto
j = j + 1
Loop
j = NCo(r)
i = i + 1
Loop
r = r + 1
Loop
Else
MsgBox "No aplica a más de 128 áreas, y usted
seleccionó " & AreaCount & ".", vbDefaultButton1, "David
le recuerda:"
End If
End Sub

Con este macro, que podés asignar a algún botón en tus
barras de herramientas, sólo tenés que seleccionar el
bloque de texto que deseás modificar (pueden ser varios
con CONTROL), lo ejecutás, y listo! Tenés en la celda
original el dato convertido a mayúscula.

Saludos!

Puedes usar la función MAYUSC
Un saludo.


Fernando Arroyo
MS MVP - Excel


"Password en hojas"

escribió en
el mensaje news:D009F23C-D82F-410D-A048-

saludos.

como logro cambiar los caracteres de una o varias

celdas en excel, de

minuscula a mayuscula.

agradecere su ayuda.

esmerlin Morillo.

.

David me gusta tu macro, pero Esmerlin si solo quieres cambiar una celda, es
mas corta esta macro

Sub Mayuscula()
ActiveCell.Value = UCase(ActiveCell.Value)
End Sub

Un saludo
Alfork


"David" escribió:

Esmerlin, si necesitás hacer el cambio en la misma celda,
lo mejor es que empleés un macro. Aquí te mando el
código:

Sub MayPlus()
' Creado el 27/11/2003 por David García
Dim NFi(128), NCo(128), CFi(128), Cco(128), Nr, Ni, Nj,
r, i, j As Integer
Dim Texto As String
AreaCount = Selection.Areas.Count
If AreaCount < 128 Then
i = 1
For Each A In Selection.Areas
NFi(i) = A.Row
NCo(i) = A.Column
CFi(i) = A.Rows.Count
Cco(i) = A.Columns.Count
i = i + 1
Next A
Nr = i - 1
r = 1
i = 1
j = 1
Do While r <= Nr
Ni = CFi(r)
i = NFi(r)
Nj = Cco(r)
j = NCo(r)
Do While i < NFi(r) + CFi(r)
Do While j < NCo(r) + Cco(r)
Texto = UCase(Cells(i, j).Value)
Cells(i, j) = Texto
j = j + 1
Loop
j = NCo(r)
i = i + 1
Loop
r = r + 1
Loop
Else
MsgBox "No aplica a más de 128 áreas, y usted
seleccionó " & AreaCount & ".", vbDefaultButton1, "David
le recuerda:"
End If
End Sub

Con este macro, que podés asignar a algún botón en tus
barras de herramientas, sólo tenés que seleccionar el
bloque de texto que deseás modificar (pueden ser varios
con CONTROL), lo ejecutás, y listo! Tenés en la celda
original el dato convertido a mayúscula.

Saludos!


>Puedes usar la función MAYUSC
>Un saludo.
>
>
>Fernando Arroyo
>MS MVP - Excel
>
>
>"Password en hojas"
escribió en
el mensaje news:D009F23C-D82F-410D-A048-

>> saludos.
>>
>> como logro cambiar los caracteres de una o varias
celdas en excel, de
>> minuscula a mayuscula.
>>
>> agradecere su ayuda.
>>
>> esmerlin Morillo.
>.
>