¿Como cambiar de mayusculas a minusculas?

se puede con la fórmula =Minusc(Celda)


"Carlos Baruch Santiago S." escribió en el mensaje
news:

¿Donde puedo conseguir una macro, para cambiar de mayusculas a minusculas

en

determinadas celdas?
o ¿como se podria hacer automaticamente en excel? gracias por su ayuda!

Aquí te van dos líneas de código, la primera convierte a minúsculas, la
segunda a mayúsculas.
Tiene la limitante que solo funciona en la celda actual, es decir que debes
primero seleccionar la celda antes de ejecutar la macro.

Sub minusculas()
ActiveCell = LCase(ActiveCell)
End Sub
Sub mayusculas()
ActiveCell = UCase(ActiveCell)
End Sub

Espero te sirva.

Un Saludo.

Javier G.

"Carlos Baruch Santiago S." escribió en el mensaje
news:

¿Donde puedo conseguir una macro, para cambiar de mayusculas a minusculas

en

determinadas celdas?
o ¿como se podria hacer automaticamente en excel? gracias por su ayuda!

Lo suyo sería "actuar" sobre todo un rango seleccionado de celdas, y luego
con For each Cells in range "modificar" todo el rango seleccionado.
No pongo el código, porque lo he intentado y no me ha salido.
Seguro que alguno de los "monstruos" nos da la pista buena.

"Javier G" escribió en el mensaje
news:

Aquí te van dos líneas de código, la primera convierte a minúsculas, la
segunda a mayúsculas.
Tiene la limitante que solo funciona en la celda actual, es decir que

debes

primero seleccionar la celda antes de ejecutar la macro.

Sub minusculas()
ActiveCell = LCase(ActiveCell)
End Sub
Sub mayusculas()
ActiveCell = UCase(ActiveCell)
End Sub

Espero te sirva.

Un Saludo.

Javier G.

"Carlos Baruch Santiago S." escribió en el mensaje
news:
> ¿Donde puedo conseguir una macro, para cambiar de mayusculas a

minusculas

en
> determinadas celdas?
> o ¿como se podria hacer automaticamente en excel? gracias por su ayuda!
>
>

para modificar el rango seleccionado:

For Each obj In Selection
obj.Value = UCase(obj.Value)
Next obj


Saludos
PD: No soy ningún mounstro... aunque.. fisicamente.. no estoy tan alejado
ja!


"Cheeky" escribió en el mensaje
news:#

Lo suyo sería "actuar" sobre todo un rango seleccionado de celdas, y luego
con For each Cells in range "modificar" todo el rango seleccionado.
No pongo el código, porque lo he intentado y no me ha salido.
Seguro que alguno de los "monstruos" nos da la pista buena.

"Javier G" escribió en el mensaje
news:
> Aquí te van dos líneas de código, la primera convierte a minúsculas, la
> segunda a mayúsculas.
> Tiene la limitante que solo funciona en la celda actual, es decir que
debes
> primero seleccionar la celda antes de ejecutar la macro.
>
> Sub minusculas()
> ActiveCell = LCase(ActiveCell)
> End Sub
> Sub mayusculas()
> ActiveCell = UCase(ActiveCell)
> End Sub
>
> Espero te sirva.
>
> Un Saludo.
>
> Javier G.
>
> "Carlos Baruch Santiago S." escribió en el mensaje
> news:
> > ¿Donde puedo conseguir una macro, para cambiar de mayusculas a
minusculas
> en
> > determinadas celdas?
> > o ¿como se podria hacer automaticamente en excel? gracias por su

ayuda!

> >
> >
>
>

Carlos, probá el siguiente código. Te puede convertir
texto a minúsculas, incluso si seleccionas uno o varios
rangos de datos.

Debes tener en cuenta que la tercera línea del código (la
que empieza con "Dim NFi", continúa hasta la
sentencia "Integer", es una sola línea. Lo mismo sucede
al final de la macro, la línea que principia
con "MsgBox", termina en "recuerda:"" (incluyendo las
últimas comillas)

Saludos ;-)

Sub MinPlus()
' 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 = LCase(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

¿Donde puedo conseguir una macro, para cambiar de

mayusculas a minusculas en

determinadas celdas?
o ¿como se podria hacer automaticamente en excel?

gracias por su ayuda!

.