Mayuscula

por formula
=mayusc(celda)

Saludos.

Como logro poner los caracteres minusculos en mayusculos.


gracias.


Esmerlin Morillo.
.

Esmerlin, probá con el siguiente código. Seleccionás el
rango que contiene los datos que querés convertir a
mayúsculas (podés utilizar CONTROL para seleccionar
varios bloques), y luego ejecutás el macro. Después de
probarlo, podés asignarlo a un botón para que te sea más
cómodo...

OJO: La tercera y cuarta línea son en realidad una sola.
Lo mismo sucede con las líneas del final, en la
instrucción msgbox hasta "le recuerda:"...



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

Saludos.

Como logro poner los caracteres minusculos en mayusculos.


gracias.


Esmerlin Morillo.
.