convertir columna a may

Hola pepe,

Lo mas facil seria usar la funcion MAYUSC(), p.ej.:

=MAYUSC(A1)

y la copias hacia abajo.

Saludos,
KL

"pepe" wrote in message
news:075f01c536c7$7c979d70$
Buenos dias a todos los amigos del foro.
Quisiera convertir la columna A, hasta donde tenga datos
en mayuscula si es posible al dar clic en el nombre del
titulo de ella "A" o sino de otra forma.
Muchisimas gracias por su colaboración.
Saludos Pepe

...o si sigues queriendo hacerlo mediante el clic sobre el titulo de la
columna [A], prueba hacer lo siguiente:

1) clic derecho sobre el nombre de la hoja en cuestion, el cual aparece en
una de las pestañas en la parte inferior izquierda de la ventana de Excel
2) elige Ver Codigo para abrir el Editor de VBA
3) pega el siguiente codigo en la ventana mas grande a la derecha

'-Inicio Codigo--
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address <> Range("A:A").Address Then Exit Sub
For i = 1 To Me.Cells(65536, "A").End(xlUp).Row
Me.Cells(i, "A") = UCase(Me.Cells(i, "A"))
Next i
End Sub
'-Fin Codigo--

4) pulsa Alt+F11 para volver a la hoja
5) prueba hacer clic sobre el titulo de la columna [A] - "A"

Nota importante: Para que el codigo funcione los macros deben habilitarse al
abrir el
fichero.

Saludos,
KL

"KL" wrote in message
news:

Hola pepe,

Lo mas facil seria usar la funcion MAYUSC(), p.ej.:

=MAYUSC(A1)

y la copias hacia abajo.

Saludos,
KL

"pepe" wrote in message
news:075f01c536c7$7c979d70$
Buenos dias a todos los amigos del foro.
Quisiera convertir la columna A, hasta donde tenga datos
en mayuscula si es posible al dar clic en el nombre del
titulo de ella "A" o sino de otra forma.
Muchisimas gracias por su colaboración.
Saludos Pepe

Gracias KL por tu ayuda la primera de =mayusc(A1) me da un
error de referencia a la misma celda y la segunda trabaja
perfecto ,y si yo quisiera seleccionar un rango en la
columna A y que este cambiara a mayuscula como seria el
codigo ,pues hay algunos libros que tienen oculta los
titulos A;B,C etc. y los numeros de las filas tambien, yo
se que en opciones se habilitan pero los que trabajan con
ellas les gusta de esa forma ,pienso que seria mejor si se
pudiera seleccionar el rango.
Saludos Pepe

o si sigues queriendo hacerlo mediante el clic sobre

el titulo de la

columna [A], prueba hacer lo siguiente:

1) clic derecho sobre el nombre de la hoja en cuestion,

el cual aparece en

una de las pestañas en la parte inferior izquierda de la

ventana de Excel

2) elige Ver Codigo para abrir el Editor de VBA
3) pega el siguiente codigo en la ventana mas grande a la

derecha

'-Inicio Codigo--
Private Sub Worksheet_SelectionChange(ByVal Target As

Excel.Range)

If Target.Address <> Range("A:A").Address Then Exit

Sub

For i = 1 To Me.Cells(65536, "A").End(xlUp).Row
Me.Cells(i, "A") = UCase(Me.Cells(i, "A"))
Next i
End Sub
'-Fin Codigo--

4) pulsa Alt+F11 para volver a la hoja
5) prueba hacer clic sobre el titulo de la columna [A] -

"A"

Nota importante: Para que el codigo funcione los macros

deben habilitarse al

abrir el
fichero.

Saludos,
KL

"KL" wrote in

message

news:

Hola pepe,

Lo mas facil seria usar la funcion MAYUSC(), p.ej.:

=MAYUSC(A1)

y la copias hacia abajo.

Saludos,
KL

"pepe" wrote in

message

news:075f01c536c7$7c979d70$
Buenos dias a todos los amigos del foro.
Quisiera convertir la columna A, hasta donde tenga

datos

en mayuscula si es posible al dar clic en el nombre del
titulo de ella "A" o sino de otra forma.
Muchisimas gracias por su colaboración.
Saludos Pepe

.

Hola Pepe,

la primera de =mayusc(A1) me da un
error de referencia a la misma celda

Espero que no pongas la formula dentro de la misma celda que quieres
convertir (o sea =mayusc(A1) dentro de la celda [A1]). Lo que tienes que
hacer es introducir una nueva columna vacia, digamos [B]. Luego en la celda
[B1] pones =mayusc(A1) y copias hacia abajo hasta el final de tus datos en
la columna [A]. Seleccionas la columna [B] entera, pulsas Ctrl+C, vas al
menu Edicion>Pegado Especial>Valores>Aceptar. Ahora puedes eliminar la
columna [B].

si yo quisiera seleccionar un rango en la
columna A y que este cambiara a mayuscula como seria el
codigo

Prueba esteÑ

'-Inicio Codigo--
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range, celda As Range
Set rng = Intersect(Target, Me.Range("A:A"))
If rng Is Nothing Then Exit Sub
For Each celda In rng
celda = UCase(celda)
Next celda
End Sub
'-Fin Codigo--




Saludos,
KL

fe de erratas:
En la primera parte de mi respuesta quise decir "Ahora puedes eliminar la
columna [A]." y no "Ahora puedes eliminar la columna [B]."

Saludos,
KL

"KL" wrote in message
news:

Hola Pepe,

la primera de =mayusc(A1) me da un
error de referencia a la misma celda

Espero que no pongas la formula dentro de la misma celda que quieres
convertir (o sea =mayusc(A1) dentro de la celda [A1]). Lo que tienes que
hacer es introducir una nueva columna vacia, digamos [B]. Luego en la
celda [B1] pones =mayusc(A1) y copias hacia abajo hasta el final de tus
datos en la columna [A]. Seleccionas la columna [B] entera, pulsas Ctrl+C,
vas al menu Edicion>Pegado Especial>Valores>Aceptar. Ahora puedes eliminar
la columna [B].

si yo quisiera seleccionar un rango en la
columna A y que este cambiara a mayuscula como seria el
codigo

Prueba esteÑ

'-Inicio Codigo--
Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
Dim rng As Range, celda As Range
Set rng = Intersect(Target, Me.Range("A:A"))
If rng Is Nothing Then Exit Sub
For Each celda In rng
celda = UCase(celda)
Next celda
End Sub
'-Fin Codigo--




Saludos,
KL