Sub cambiarseleccion()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub
domingo, 24 de mayo de 2020
Cambiar minusculas a mayusculas en excel macro
https://www.youtube.com/watch?v=vxGXA2-odyg
Sub cambiarseleccion()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub
Sub cambiarseleccion()
Dim Rng As Range
For Each Rng In Selection.Cells
If Rng.HasFormula = False Then
Rng.Value = UCase(Rng.Value)
End If
Next Rng
End Sub
Suscribirse a:
Entradas (Atom)